Published Jun 24th, 2012, 6/24/12 4:20 pm
- 85 views, 1 today
- 0 downloads, 0 today
0
Gender | Male |
Model | Steve |
1051749
5
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 Login16,188 | People Online |
4,464,762 | Total Members |
3,128,808 | Minecraft Submissions |
4,038,205,833 | Total Submission Views |
625,045,970 | 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