VB圆弧编程的小问题

来源：百度知道 编辑：UC知道 时间：2024/06/02 19:27:02
我在做圆弧插补的程序，自学不精，所以请大家帮忙了！
Circle (x圆心, y圆心), R, vbBlue,起点 , 终点
用这个语句画了一段圆弧，怎么找到它的起点和重点坐标呢？？？我用
x起点 = x圆心 + R * Cos(起点)
y起点 = y圆心 + R * Sin(起点)
x终点 = x圆心 + R * Cos(终点)
y终点 = y圆心 + R * Sin(终点)
来求，结果偏离好远....
可问题出在哪里呢？我的编程是这样的：
Private Sub Command1_Click()

x步长 = 2
y步长 = x步长

x圆心 = 0
y圆心 = 0 '输入圆心坐标

R = 40 '输入半径

起点 = 1.5
终点 = 0

x起点 = R * Cos(1.5)
y起点 = R * Sin(1.5) '计算起点坐标

x终点 = x圆心 + R * Cos(终点)
y终点 = y圆心 + R * Sin(终点) '计算终点坐标

Circle (x圆心, y圆心), R, vbBlue, 终点, 起点
Line (0, 0)-(40, 0)

PSet (0, 0)
Circle (0, 0), 3

PSet (x终点, y终点)
Circle (x终点, y终点), 3

PSet (x起点, y起点)
Circle (x起点, y起点), 3

使用中英文混合编程啊？

你的计算公式都错了

窗体的的坐标系y 的正方向是向下的
而在数学中的直角坐标系y的正方向是想上的，把y坐标的加号改为减号即可

Private Sub Command1_Click()

x步长 = 2
y步长 = x步长

x圆心 = 50
y圆心 = 50 '输入圆心坐标

R = 40 '输入半径

起点 = 1.5
终点 = 0

x起点 = x圆心 + R * Cos(1.5)
y起点 = y圆心 - R * Sin(1.5) '计算起点坐标

x终点 = x圆心 + R * Cos(终点)
y终点 = y圆心 - R * Sin(终点) '计算终点坐标

Me.Circle (x圆心, y圆心), R, vbBlue, 终点, 起点
Me.Line (0, 0)-(40, 0)

PSet (0, 0)
Circle (0, 0), 3

PSet (x终点, y终点)
Circle (x终点, y终点), 5

PSet (x起点, y起点)
Circle (x起点, y起点), 3

End Sub