VB中cos函数的问题

来源：百度知道 编辑：UC知道 时间：2024/07/05 20:53:54
我在做圆弧插补的程序，自学不精，所以请大家帮忙了！
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

End Sub

你试试将它改成弧度看看

COS(number)

Number 系指以弪度为单位的角度，您需要它的余弦。

注解

如果角度的单位是度，您只要将它乘上 PI()/180 或使用 COS 函数功能即可转换为弪度。