|
La simplicité est la clé de la brillance. Les jeux vidéo ont continué de croître en complexité depuis leur création , mais le titre qui est un nom de ménage parmi les joueurs de toutes les générations continue toujours de fasciner . Ce jeu est Pong. Grâce à la technologie moderne tels que Visual Basic , vous pouvez recréer votre propre jeu pong de style avec toute la simplicité et la folie des additifs que vous pouvez ou ne pouvez pas me rappeler comme un enfant. Instructions
1 Ouvrez Visual Basic et cliquez sur Créer , situé dans le coin supérieur gauche. De la fenêtre de sélection de l'application Windows Form résultant ou site web selon vos préférences , et tapez le titre du jeu dans le champ Nom .
2 Sélectionnez Affichage 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 vers le formulaire à l'écran
3 Entrez le code suivant dans la page de codage qui en résulte: . Vmom As Integer ' cales vertical momentumDim hmom de la balle As Integer ' détient horizontal momentumPrivate Sub Form_Load de la balle () Randomize'make les élans verticaux et horizontaux randomvmom = 100 + Int (Rnd * 200) = 100 + hmom Int (Rnd * 200) End Sub SubPrivate Form_MouseMove ( bouton As Integer , Shift As Integer , X As Single , Y As Single ) « déplacer la raquette à positionShape1.Left de la souris = X - ( Shape1.Width /2 ) Fin SubPrivate Sous Timer1_Timer () « déplacer la balle , basé sur la virtical et horizontale momenutmShape2.Top = Shape2.Top + vmomShape2.Left = Shape2.Left + hmom'see si la balle frappe la surface de la palette Si ( Shape2.Top + Shape2.Height ) > Shape1.Top ThenIf Shape2 . gauche + Shape2.Width > = Shape1.Left Et Shape2.Left < = Shape1.Left + Shape1.Width Thenvmom = - vmomEnd IfEnd If'see si le ballon a heurté le bord de la screenIf ( Shape2.Left + Shape2 . largeur ) > Form1.Width ThenShape2.Left = Form1.Width - Shape2.Widthhmom = - hmom ' ce renverse directionElseIf Shape2.Left de balle <0 ThenShape2.Left = 0hmom = - hmom ' ce renverse directionElseIf Shape2.Top de balle <0 ThenShape2.Top = 0vmom = - vmom ' ce renverse directionElseIf Shape2.Top de balle > Form1.Height ThenMsgBox " Vous avez perdu ! " Timer1.Enabled = FalseEnd IfEnd Sous
4 Appuyez sur F5 pour exécuter le programme. Photos
|
