Published Jun 24th, 2012, 6/24/12 4:20 pm
- 84 views, 2 today
- 0 downloads, 0 today
0
Gender | Male |
Model | Steve |
tools/tracking
1051749
5
me-1051749
Gender | Male |
Model | Steve |
We're a community of 4.4 million creative members sharing everything Minecraft since 2010! Even if you don't post your own creations, we always appreciate feedback on ours.
Create Account Login12,769 | People Online |
4,444,304 | Total Members |
3,120,701 | Minecraft Submissions |
4,014,536,141 | Total Submission Views |
622,279,935 | Downloads |
Create an account or sign in to comment.
Dim hmom As Integer 'holds the ball's horizontal momentum
Private Sub Form_Load()
Randomize
'make the vertical and horizontal momentums random
vmom = 100 + Int(Rnd * 200)
hmom = 100 + Int(Rnd * 200)
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
'move the paddle to the mouse's position
Shape1.Left = X - (Shape1.Width / 2)
End Sub
Private Sub Timer1_Timer()
'move the ball, based on the virtical and horizontal momenutm
Shape2.Top = Shape2.Top + vmom
Shape2.Left = Shape2.Left + hmom
'see if the ball is hitting the surface of the paddle
If (Shape2.Top + Shape2.Height) > Shape1.Top Then
If Shape2.Left + Shape2.Width >= Shape1.Left And Shape2.Left <= Shape1.Left + Shape1.Width Then
vmom = -vmom
End If
End If
'see if the ball has hit the edge of the screen
If (Shape2.Left + Shape2.Width) > Form1.Width Then
Shape2.Left = Form1.Width - Shape2.Width
hmom = -hmom 'this reverses it ball's direction
ElseIf Shape2.Left < 0 Then
Shape2.Left = 0
hmom = -hmom 'this reverses it ball's direction
ElseIf Shape2.Top < 0 Then
Shape2.Top = 0
vmom = -vmom 'this reverses it ball's direction
ElseIf Shape2.Top > Form1.Height Then
MsgBox "You lost!"
Timer1.Enabled = False
End If
End Sub