• Home
 · 
• Games
 · 
• It's a very basic game. This Pong game is one of the best and easy game to play. It's kinda like a

It's a very basic game. This Pong game is one of the best and easy game to play. It's kinda like a

It's a very basic game. This Pong game is one of the best and easy game to play. It's kinda like a disco pong cause the ball switches color

Rate It's a very basic game. This Pong game is one of the best and easy game to play. It's kinda like a

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim hasard As Integer
Dim direction As Integer


Private Sub Form_Load()

point1.Caption = 0
point2.Caption = 0

Randomize (Timer)
hasard = Int(4 * Rnd(1)) + 1
direction = hasard

End Sub

Private Sub play_Click()
Timer1.Enabled = Not Timer1.Enabled

End Sub

Private Sub Timer1_Timer()


Select Case direction

Case 1
    ball.Left = ball.Left + 100
    ball.Top = ball.Top - 100
    If ball.Left + ball.Width >= field.Left + field.Width Then direction = 4
    If ball.Top <= field.Top Then direction = 2
    If ball.Top + ball.Height / 2 >= blade2.Top And ball.Left + ball.Width > blade2.Left And ball.Top + ball.Height <= blade2.Top + blade2.Height Then direction = 4
    If ball.Left + ball.Width >= field.Left + field.Width Then point1.Caption = point1.Caption + 1

Case 2
    ball.Left = ball.Left + 100
    ball.Top = ball.Top + 100
    If ball.Left + ball.Width >= field.Left + field.Width Then direction = 3
    If ball.Top + ball.Height >= field.Height Then direction = 1
    If ball.Top + ball.Height / 2 >= blade2.Top And balle.Left + balle.Width > palette2.Left And balle.Top + balle.Height <= blade2.Top + blade2.Height Then direction = 3
    If ball.Left + ball.Width >= blade.Left + blade.Width Then point1.Caption = point1.Caption + 1
    
Case 3
    ball.Left = ball.Left - 100
    ball.Top = ball.Top + 100
    If ball.Left <= field.Left Then direction = 2
    If ball.Top + ball.Height >= field.Height Then direction = 4
    If ball.Top + ball.Height / 2 >= blade1.Top And balle.Left < blade1.Left + blade1.Width And balle.Top + ball.Height <= blade1.Top + blade1.Height Then direction = 2
    If ball.Left <= field.Left Then point2.Caption = point2.Caption + 1
    
Case 4
    ball.Left = ball.Left - 100
    ball.Top = ball.Top - 100
    If ball.Top <= field.Top Then direction = 3
    If ball.Left <= field.Left Then direction = 1
    If ball.Top + ball.Height / 2 >= blade1.Top And ball.Left < blade1.Left + blade1.Width And ball.Top + ball.Height <= blade1.Top + blade1.Height Then direction = 1
    If ball.Left <= field.Left Then point2.Caption = point2.Caption + 1
    
End Select

Randomize (Timer)
hasard = Int(5 * Rnd(1)) + 1
couleur = hasard

Select Case color

Case 1
    ball.FillColor = &HFFFF&
    
Case 2
    ball.FillColor = &HFF&
    
Case 3
    ball.FillColor = &HFF0000
    
Case 4
    ball.FillColor = &HC000C0
    
Case 5
    ball.FillColor = &HFFFF00
    
End Select


End Sub


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 38 Then blade2.Top = blade2.Top - 150
If KeyCode = 40 Then blade2.Top = blade2.Top + 150
If KeyCode = 65 Then blade1.Top = blade1.Top - 150
If KeyCode = 90 Then blade1.Top = blade1.Top + 150

If KeyCode = 38 And blade2.Top <= field.Top Then blade2.Top = blade2.Top + 150
If KeyCode = 40 And blade2.Top + blade2.Height >= field.Height Then blade2.Top = blade2.Top - 150
If KeyCode = 65 And blade1.Top <= field.Top Then blade1.Top = blade1.Top + 150
If KeyCode = 90 And blade1.Top + blade1.Height >= field.Height Then blade1.Top = blade1.Top - 150

If KeyCode = 97 Then Timer1.Interval = 20
If KeyCode = 98 Then Timer1.Interval = 40
If KeyCode = 99 Then Timer1.Interval = 60
If KeyCode = 100 Then Timer1.Interval = 80
If KeyCode = 101 Then Timer1.Interval = 100

End Sub