Question

求小球自由运动的VB代码

要求要让小球在框内自由运动 碰到框壁的时候可以自动改变方向

Answer 1

所需要控件:shape1,timer1,command1,command2

Dim degree As Single
Const pi = 3.1415926
Dim v As Integer
Dim r As Single

Private Sub Command1_Click()
Timer1.Enabled = False
Form_Load
End Sub

Private Sub Command2_Click()
Timer1.Enabled = True
End Sub

Private Sub Form_Load()
Me.Show
Shape1.Shape = 3
Timer1.Enabled = False
Timer1.Interval = 100
Shape1.Left = Me.Width * Rnd
Shape1.Top = Me.Height * Rnd
degree = 2 * pi * Rnd
v = 150
r = 1
Command1.Caption = "结束"
Command2.Caption = "开始"
End Sub

Private Sub Timer1_Timer()
If Shape1.Top > 0 And Shape1.Left > 0 And (Shape1.Left + Shape1.Width) < Me.Width And (Shape1.Top + Shape1.Height) < Me.Height Then
Shape1.Top = Shape1.Top + Sin(degree) * v * r
Shape1.Left = Shape1.Left + Cos(degree) * v * r
v = v * r
Else
Timer1.Enabled = False
Call chagestate

End If

End Sub

Public Sub chagestate()
If Shape1.Top <= 0 Or (Shape1.Top + Shape1.Height) >= Me.Height Then
degree = 2 * pi - degree
If Shape1.Top <= 0 Then Shape1.Top = 1
If (Shape1.Top + Shape1.Height) >= Me.Height Then Shape1.Top = Me.Height - Shape1.Height - 1
End If
If Shape1.Left <= 0 Or (Shape1.Left + Shape1.Width) >= Me.Width Then
If (Shape1.Left + Shape1.Width) >= Me.Width Then Shape1.Left = Me.Width - Shape1.Width - 1
If Shape1.Left <= 0 Then Shape1.Left = 1
If degree < pi / 2 Then degree = pi / 2 + degree
If degree > pi / 2 And degree < pi Then degree = 3 * pi / 2 - degree
If degree > pi Or degree < 2 * pi Then degree = 3 * pi - degree

End If
v = 150
Timer1.Enabled = True
End Sub

Answer 2

在Form1上画一个image控件Image1和一个时钟控件Timer1,Image1的Stretch设置为True,picture属性里加载一个蛋蛋的图片~^ ^,Timer1的Interval属性设为1.

代码区里写下边的就行咯~

Dim l As Integer '记录水平运动状态
Dim t As Integer '记录垂直运动状态

Private Sub Timer1_Timer()

If Image1.Left >= Form1.ScaleWidth - Image1.Width Then l = 1 '移动到了最右边,变向向左
If Image1.Left <= 0 Then l = 0 '移动到了最左边,变向向右

If Image1.Top >= Form1.ScaleHeight - Image1.Height Then t = 1 '移动到了最底端,变向向上
If Image1.Top <= 0 Then t = 0 '移动到了最顶端,变向向下

If l = 0 Then
Image1.Left = Image1.Left + 10
Else
Image1.Left = Image1.Left - 10
End If

If t = 0 Then
Image1.Top = Image1.Top + 10
Else
Image1.Top = Image1.Top - 10
End If

End Sub

不知道这样你用不用的上~

Answer 3

'一个Timer控件
'x0,y0为圆的坐标
'r1,r2为圆的横纵增量

Private Sub Timer1_Timer()
Static x0 As Integer, y0 As Integer, r1 As Integer, r2 As Integer
Me.Cls
x0 = x0 + r1
y0 = y0 + r2
If x0 > Me.ScaleWidth - 50 Then
r1 = -30
ElseIf x0 <= 50 Then
r1 = 30
End If
If y0 > Me.ScaleHeight - 50 Then
r2 = -30
ElseIf y0 <= 50 Then
r2 = 30
End If
Me.Circle (x0, y0), 100, vbBlue
End Sub

'祝你学习愉快。