UNKNOWN '************************************** ' Name: Code for a basic Pong style game ' ! ' Description:Makes a little pong style ' game ' By: Matthew Eagar ' ' ' Inputs:none ' ' Returns:none ' 'Assumes:Nothin much, just a very basic ' knowledge of VB programming. ' 'Side Effects:none 'This code is copyrighted and has limite ' d warranties. 'Please see http://www.Planet-Source-Cod ' e.com/xq/ASP/txtCodeId.1971/lngWId.1/qx/ ' vb/scripts/ShowCode.htm 'for details. '************************************** Dim vmom As Integer 'holds the ball's vertical momentum Dim hmom As Integer 'holds the ball's horizontal momentum Private Sub Form_Load() Randomize 'make the vertical and horizontal moment ' ums 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 an ' d 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