如何在VB的PictureBox 内按顺序连着画一组线段 已知每个线段的长度及与下一线段的角度

Question

1.长度A0,角度B0
2.长度A1,角度B1
3.长度A2,角度B2
4.长度A3,角度B3
...........
是否应该根据长度与角度计算出下一个点的坐标,然后用Line画,如果这样做的话每个点坐标如何计算,如果不是这样做的话有更好的办法也请给出,谢谢!

Answer 1

光有长度和角度，还不法绘制线段！
相同长度，相同角度的是一组平行线！
需要知道第1条线段的起始点的坐标，呢就可以了。

追问

第一条线的起点为(0,0)点,终点为第二条线的起点,每条线的长度都不同 与前一条线所成的角度也不一样 该如何实现

追答

那就没有问题了，我给个例子：
我不知道你的数据如何得到，假设是用赋值得到，例子里只有4个点的情况：
Private Sub Command1_Click()
Dim d(1 To 100, 1 To 2) As Single
Dim x1 As Single
Dim y1 As Single
Dim x2 As Single
Dim y2 As Single
Dim i As Integer

d(1, 1) = 2000 '第1条线的长度
d(1, 2) = 300 '第1条线的角度

d(2, 1) = 200 '第2条线的长度
d(2, 2) = 30 '第2条线的角度

d(3, 1) = 400 '第3条线的长度
d(3, 2) = 45 '第3条线的角度

d(4, 1) = 300 '第4条线的长度
d(4, 2) = 18 '第4条线的角度

x1 = 0
y1 = 0
For i = 1 To 4
x2 = x1 + Cos(d(i, 2) * 180 / 3.14) * d(i, 1)
y2 = y1 + Sin(d(i, 2) * 180 / 3.14) * d(i, 1)
Picture1.Line (x1, y1)-(x2, y2)
x1 = x2
y1 = y2
Next i

End Sub
因为，VB的坐标原点在左上角，所以第1条线段的数据很重要，否则会看不到的，最好把坐标重新设一下。

追问

d(i, 2)这个角度并不是它与坐标系所成的角度,而是与前一条线段所成的角度,所以
x2 = x1 + Cos(d(i, 2) * 180 / 3.14) * d(i, 1)
y2 = y1 + Sin(d(i, 2) * 180 / 3.14) * d(i, 1)

这样应该是不对的,d(i, 2) * 180 / 3.14这个并不是与坐标所成的弧度,已知它的长度后,它在X,Y轴上的偏置的计算不应该是这个角的余弦和正弦值,应该是它与坐标所成角的余弦和正弦值.

追答

我是假设d(i, 2)中存放的该线段与坐标X轴正向所构成的角度值，你现在是与前一线段所夹的角度，这个你可以自己修改一下，不就可以了吗？
其实，思路已经很明确了。
按照你的要求，每一次角度是前一角度与d(i, 2)的和。

Answer 2

根据倾斜角求出此角的正弦,余弦值
用长度除以正弦得纵坐标,用长度除以余弦得横坐标,
终点坐标确定

终点坐标确定后可以采取相对画线就可了。

追问

希望能详细得写一下
第一个坐标是好求,但第二个,第三个,第N个坐标怎么求,
VB的Picture 怎么相对画线 我只知道用两点可以画一条线 而且必须知道两个点的坐标,怎么根据前面的的线 相对画线呢

Answer 3

参考
Private Sub Command2_Click()
Line (500, 500)-(1500, 500) '画线
Line -Step(0, 1000) '相对画线
Line Step(0, 1000)-Step(200, 200)'相对画线
End Sub

追问

这样相对画线其实还是一样的 还是得知道两个点的坐标,只不过可以省略写前次画过的终点坐标而已, 关键是这个坐标怎么计算出来 有没有什么好的办法