Question

vb课设小球匀速运动sin曲线编程是怎么编的呀 最好有解说

Answer 1

Option Explicit
Const PI = 3.1415926
Dim circle_x As Double

Private Sub Form_Click()
Dim i As Integer '定义计数器
Dim j As Double '定义双精度计数器

Cls
Me.AutoRedraw = True
'绘制小球为白色背景，并以交叉直线填充之
DynamicBall.Scale (-1.1, 1.1)-(1.1, -1.1)
DynamicBall.FillStyle = 0
DynamicBall.FillColor = vbWhite
DynamicBall.Circle (0, 0), 1
DynamicBall.FillStyle = vbCross
DynamicBall.FillColor = vbRed
DynamicBall.Circle (0, 0), 1, vbRed
'绘制坐标系
Me.ScaleMode = 0
Me.Scale (-8, 2.2)-(8, -2.2)
Me.DrawWidth = 1
Me.Line (-7.5, 0)-(7.5, 0), vbBlack
Me.Line (0, -2)-(0, 2), vbBlack
Me.CurrentX = 7.6
Me.CurrentY = 0
Print "X"
Me.CurrentX = 0.1
Me.CurrentY = 2
Print "Y"
'绘制X轴刻度线
For i = -7 To 7
Me.Line (i, 0)-(i, 0.1)
Me.CurrentX = i - 0.2
Me.CurrentY = -0.1
Print i
Next i
'绘制Y轴刻度线
For i = -1 To 1
Me.Line (0, i)-(0.2, i)
Me.CurrentX = -0.5
Me.CurrentY = i + 0.1

If i <> 0 Then Print i
Next i
'绘制Sin曲线
For j = -2 * PI To 2 * PI Step PI / 500
Me.PSet (j, Sin(j)), vbRed
Next j
'开始滑动小球
circle_x = -2 * PI
Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()
Dim loca_x As Double, loca_y As Double
circle_x = circle_x + PI / 50 '除号后面的值越小，小球滑动越平滑，但是速度也会越慢

loca_x = circle_x - DynamicBall.Width / 2
loca_y = Sin(circle_x) + DynamicBall.Height / 2
DynamicBall.Move loca_x, loca_y

If circle_x >= 2 * PI Then
Timer1.Enabled = False
End If
End Sub