直线绕一点旋转问题;大家进来看看
问题描述:
类似汽车车速仪表:
直线的一端固定,另一端按照一定的角度旋转;(角度,是一个时实接收的数据决定.比如是车速度80,角度是120度,当第二次进来数据时重新根据数据确定这次的角度)大家帮帮忙,代码意见都可以:
[解决办法]
Option Explicit
Const PI = 3.14159265358979
Private Sub Form_Click()
Dim d As Double
Dim x As Double
Dim y As Double
Cls
Circle (100, 100), 100
d = Rnd() * 180
x = 100 * Cos(d / 180 * PI)
y = 100 * Sin(d / 180 * PI)
Line (100, 100)-(100 + x, 100 - y)
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
Me.ScaleMode = vbPixels
Randomize
Form_Click
End Sub
