by Elyk (1 Submission)
Category: Games
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Tue 11th October 2005
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
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"
VBcoders
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
No comments have been posted about Two player pong game that keeps score. W and S keys for player 1 and up and down arrow keys for. Why not be the first to post a comment about Two player pong game that keeps score. W and S keys for player 1 and up and down arrow keys for.