• Home
 · 
• Games
 · 
• Two player pong game that keeps score. W and S keys for player 1 and up and down arrow keys for

Two player pong game that keeps score. W and S keys for player 1 and up and down arrow keys for

Two player pong game that keeps score. "W" and "S" keys for player 1 and up and down arrow keys for player 2.

API Declarations



'You also need two rectangles at each end of screen (PaddleTwo at the left and PaddleOne at the right), a box around the playing field(boundry), a circle(ball), and two captions to record score(paddletwoscore and paddleonescore) and a timer(tmrMove) set to interval of 50, and a menu "start"



Rate Two player pong game that keeps score. W and S keys for player 1 and up and down arrow keys for

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Form1.SetFocus
    Select Case Keycode
        Case vbKeyUp
            If PaddleOne.Top > boundry.Top Then
                PaddleOne.Top = PaddleOne.Top - 300
            ElseIf PaddleOne.Top <= boundry.Top Then
            End If
        Case vbKeyDown
            If PaddleOne.Top + PaddleOne.Height < boundry.Top + boundry.Height Then
                PaddleOne.Top = PaddleOne.Top + 300
            ElseIf PaddleOne.Top + PaddleOne.Height >= boundry.Top + boundry.Height Then
            End If
        Case vbKeyW
            If PaddleTwo.Top > boundry.Top Then
                PaddleTwo.Top = PaddleTwo.Top - 300
            ElseIf PaddleTwo.Top <= boundry.Top Then
            End If
        Case vbKeyS
            If PaddleTwo.Top + PaddleTwo.Height < boundry.Top + boundry.Height Then
                PaddleTwo.Top = PaddleTwo.Top + 300
            ElseIf PaddleTwo.Top + PaddleTwo.Height >= boundry.Top + boundry.Height Then
            End If
    End Select
    
End Sub

Private Sub Form_Load()

    Pcase = 1
End Sub

Private Sub mnuDifficult_Click()

    tmrMove.Interval = 1
End Sub

Private Sub mnuEasy_Click()

    tmrMove.Interval = 50
End Sub

Private Sub mnuMedium_Click()

    tmrMove.Interval = 25
End Sub

Private Sub mnuStart_Click()

    ball.Visible = True
    Pcase = 1
    tmrMove.Enabled = True
    mnuStart.Enabled = False
    
End Sub


Private Sub tmrMove_Timer()
    
    Select Case Pcase
    
    Case 1
        ball.Move ball.Left + 85, ball.Top + 85
        If ball.Top + ball.Height >= boundry.Top + boundry.Height Then Pcase = 2
        If ball.Top + ball.Height >= PaddleOne.Top And ball.Left + ball.Width <= PaddleOne.Width + PaddleOne.Left And ball.Left + ball.Width >= PaddleOne.Left And ball.Top + ball.Height <= PaddleOne.Top + PaddleOne.Height Then Pcase = 4
        
    Case 2
        ball.Move ball.Left + 85, ball.Top - 85
        If ball.Top + ball.Height >= PaddleOne.Top And ball.Left + ball.Width <= PaddleOne.Width + PaddleOne.Left And ball.Left + ball.Width >= PaddleOne.Left And ball.Top + ball.Height <= PaddleOne.Top + PaddleOne.Height Then Pcase = 3
        If ball.Top <= boundry.Top Then Pcase = 1
        If ball.Left > boundry.Left + boundry.Width Then
            ball.Top = boundry.Top + boundry.Height / 2
            ball.Left = boundry.Left + boundry.Width / 2
            paddletwoscore.Caption = paddletwoscore.Caption + 1
            Pcase = 4
        End If
    Case 3
        ball.Move ball.Left - 85, ball.Top - 85
        If ball.Top <= boundry.Top Then Pcase = 4
        If ball.Top + ball.Height >= PaddleTwo.Top + 10 And ball.Left <= PaddleTwo.Width + PaddleTwo.Left And ball.Left >= PaddleTwo.Left And ball.Top + ball.Height <= PaddleTwo.Top + PaddleTwo.Height Then Pcase = 2
        
    Case 4
        ball.Move ball.Left - 85, ball.Top + 85
        If ball.Top + ball.Height >= PaddleTwo.Top + 10 And ball.Left <= PaddleTwo.Width + PaddleTwo.Left And ball.Left >= PaddleTwo.Left And ball.Top + ball.Height <= PaddleTwo.Top + PaddleTwo.Height Then Pcase = 1
        If ball.Top + ball.Height >= boundry.Top + boundry.Height Then Pcase = 3
        If ball.Left < boundry.Left Then
            ball.Top = boundry.Top + boundry.Height / 2
            ball.Left = boundry.Left + boundry.Width / 2
            paddleonescore.Caption = paddleonescore.Caption + 1
            Pcase = 1
        End If
        
    End Select
End Sub