Comment faire un jeu de pong avec le code de vb

Ouvrez Visual Basic et cliquez sur Créer, situé dans le coin supérieur gauche. De la fenêtre qui apparaît sélectionnez Application Windows Form ou un site Web selon votre préférence, et tapez le titre du jeu dans le champ Nom.

Sélectionnez Afficher dans le menu suivie par la boîte à outils. Double-cliquez sur les objets que vous souhaitez utiliser pour votre jeu et faites-les glisser à la forme sur l'écran.

Entrez le code suivant dans la page de codage résultant:
Dim vmom As Integer 'détient élan vertical de la balle
Dim hmom As Integer 'détient mouvement horizontal de la balle
Private Sub Form_Load ()
Randomiser
«Faire les élans verticaux et horizontaux aléatoire
vmom = 100 + Int (Rnd 200)
hmom = 100 + Int (Rnd 200)
End Sub
Private Sub Form_MouseMove (Bouton As Integer, Maj As Integer, X As Single, Y As Single)
«Déplacer la raquette à la position de la souris
Shape1.Left = X - (Shape1.Width / 2)
End Sub
Private Sub Timer1_Timer ()
«Déplacer la balle, sur la base du momenutm virtical et horizontale
Shape2.Top = Shape2.Top + vmom
Shape2.Left = Shape2.Left + hmom
'Voir si la balle frappe la surface de la palette
Si (Shape2.Top Shape2.Height +) gt; Puis Shape1.Top
Si Shape2.Left + Shape2.Width gt; = Shape1.Left Et Shape2.Left lt; = Shape1.Left + Shape1.Width Puis
vmom = -vmom
End If
End If
'Voir si la balle a touché le bord de l'écran
Si (Shape2.Left Shape2.Width +) gt; Puis Form1.Width
Shape2.Left = Form1.Width - Shape2.Width
hmom = -hmom 'cette renverse la direction de la balle
ElseIf Shape2.Left lt; 0 Then
Shape2.Left = 0
hmom = -hmom 'cette renverse la direction de la balle
ElseIf Shape2.Top lt; 0 Then
Shape2.Top = 0
vmom = -vmom 'cette renverse la direction de la balle
ElseIf Shape2.Top gt; Puis Form1.Height
MsgBox "Tu as perdu!"
Timer1.Enabled = False
End If
End Sub

Appuyez sur F5 pour exécuter le programme.