Eenvoud is de sleutel tot schittering . Video games zijn blijven groeien in complexiteit sinds hun oprichting , maar de titel , dat is een begrip onder gamers van alle generaties nog steeds blijft betoveren . Dat spel is Pong . Met behulp van moderne technologie zoals Visual Basic , kunt u uw eigen pong - stijl spel opnieuw met alle eenvoud en additief waanzin u wel of niet herinneren als een kind . Instructies 1 Open Visual Basic en klik op Maken , gelegen in de linker bovenhoek . Uit de resulterende venster selecteert Windows Form Application of Website per uw voorkeur , en typ de titel van het spel in het veld Naam . kopen van 2 Selecteer Uitzicht vanaf het menu , gevolgd door Tool Box . Dubbelklik op objecten die u wilt gebruiken voor uw spel en sleep ze naar de vorm op het scherm 3 Voer de volgende code in de resulterende codering pagina : . Dim vmom As Integer ' houdt de bal de verticale momentumDim hmom As Integer ' horizontaal houdt momentumPrivate Sub Form_Load van de bal ( ) Randomize'make de verticale en horizontale momentums randomvmom = 100 + Int ( Rnd * 200 ) hmom = 100 + Int ( Rnd * 200 ) Einde SubPrivate Sub Form_MouseMove ( button As Integer , Shift As Integer , X Zoals Single , Y Zoals Single ) " verplaats de peddel aan positionShape1.Left de muis = X - ( Shape1.Width /2 ) End Sub SubPrivate Timer1_Timer () ' de bal te bewegen , op basis van de virtical en horizontale momenutmShape2.Top = Shape2.Top + vmomShape2.Left = Shape2.Left + hmom'see als de bal raakt het oppervlak van de peddel Als ( Shape2.Top + Shape2.Height ) > Shape1.Top thenif shape2 . Left + Shape2.Width > = Shape1.Left En Shape2.Left < = Shape1.Left + Shape1.Width Thenvmom = - vmomEnd IfEnd If'see als de bal de rand van de screenIf ( Shape2.Left + shape2 heeft geraakt . breedte ) > Form1.Width ThenShape2.Left = Form1.Width - Shape2.Widthhmom = - hmom ' deze keert het bal is directionElseIf Shape2.Left < 0 ThenShape2.Left = 0hmom = - hmom ' deze keert het bal is directionElseIf Shape2.Top < 0 ThenShape2.Top = 0vmom = - vmom ' deze keert het bal is directionElseIf Shape2.Top > Form1.Height ThenMsgBox " Je hebt verloren ! " Timer1.Enabled = FalseEnd IfEnd Sub 4 Druk op F5 om het programma uit te voeren .
|