Question

设计一个VB程序,小球沿抛物线运动的动画，用Timer控件

要求：按开始按钮后，小球可以按抛物线运动。
提示：利用Timer控件。
知识点：Timer控件，绘图方法。

Answer 1

Dim SpaceTop As Integer
Dim StepB  As Double
Const PI = 3.1415926
Dim SFlag As Boolean
Dim MaxFle As Double
Dim MinFle As Double
Dim Bl As Integer
Private Sub Form_Load()
    Me.AutoRedraw = True
    Shape1.Height = 20
    Shape1.Width = 10
    Shape1.Shape = 3
    Bl = 40
    SpaceTop = 40
    MaxFle = 2 * PI
    MinFle = 0
    StepB = PI / 50
    Timer1.Interval = 10
    Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
    Timer1.Enabled = False
      Me.CurrentX = Timer1.Tag * Bl
      Me.CurrentY = SpaceTop + Sin(Timer1.Tag) * Bl
      Me.Print "."
    If Timer1.Tag <= MaxFle And Timer1.Tag >= MinFle Then
      Shape1.Left = Timer1.Tag * Bl - Shape1.Width / 2
      Shape1.Top = SpaceTop + Sin(Timer1.Tag) * Bl - Shape1.Width / 2
    
      If SFlag = False Then
        Timer1.Tag = Timer1.Tag + StepB
      Else
        Timer1.Tag = Timer1.Tag - StepB
      End If
    Else
      If SFlag = False Then
       SFlag = True
       Timer1.Tag = MaxFle
      Else
       SFlag = False
       Timer1.Tag = MinFle
      End If
    End If
    Timer1.Enabled = True
End Sub

新建工程 添加两个控件 1个Timer1,1个Shape1 把上面的代码复制过去就可以了

追问

运行时这一行出现问题 Me.CurrentX = Timer1.Tag * B1

还有开始按钮

谢谢了

Answer 2

没有严格按抛物线绘图，仅供参考
Private Sub command1_click()
Timer1.Interval = 100
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Cls
Circle (x + 10, Height / 15 - y - 100), 20
x = x + 10
If x < Width / 15 / 2 Then
y = y + 10
Else
y = y - 10
End If
If x >= Width / 15 - 30 Then
Timer1.Enabled = False
x = 0
y = 0
End If
End Sub

追问

运行只出来一个小圈，没有运动，再帮我看看，谢了

追答

dim x,y '复制时漏掉了该句
Private Sub command1_click()
Timer1.Interval = 100
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Cls
Circle (x + 10, Height / 15 - y - 100), 20
x = x + 10
If x = Width / 15 - 30 Then
Timer1.Enabled = False
x = 0
y = 0
End If
End Sub