VB 关于圆周上移动的亮点的代码和论文 急用

来源：百度知道 编辑：UC知道 时间：2024/05/07 14:50:08
题目;画一圆,大小颜色自定,圆周上有一黄色小亮点在圆的轨迹上顺时针移动,移动速度受滚动条的value值控制.

要代码 还有论文的有关信息!越全越好 !谢谢拉

新建窗体，添加timer1,hscroll1
Const pi = 3.1415926
Dim angle As Integer
Private Sub Form_Load()
Me.ScaleMode = 3
Me.AutoRedraw = True
Timer1.Interval = 20
HScroll1.Min = 1
HScroll1.Max = 20
End Sub
Sub draw(ByVal ox As Integer, ByVal oy As Integer, ByVal orad As Integer)
Cls
angle = (angle + HScroll1.Value) Mod 360
xo = ox + orad * Cos(angle * pi / 180)
yo = oy + orad * Sin(angle * pi / 180)
DrawWidth = 1
DrawStyle = 2
Circle (ox, oy), orad, vbBlue
DrawWidth = 10
PSet (xo, yo), vbYellow
End Sub
Private Sub Timer1_Timer()
draw 200, 200, 100
End Sub