Wie man ein Pong-Spiel mit dem Code in VB

Einfachheit ist der Schlüssel zur Brillanz. Videospiele haben seit ihrer Gründung in Komplexität wachsen weiter, aber der Titel, der ein bekannter Name unter den Spielern aller Generationen ist, weiterhin hypnotisieren. Das Spiel ist Pong. Mit Hilfe moderner Technologie wie Visual Basic, können Sie Ihr eigenes Spiel Pong-Stil mit der Einfachheit und Additive Wahnsinn neu erstellen können oder können nicht als Kind erinnern.

Anweisungen

1 Öffnen Sie Visual Basic, und klicken Sie auf erstellen, befindet sich in der oberen linken Ecke. Wählen Sie aus dem daraufhin angezeigten Fenster Windows Form-Anwendung bzw. Website pro Ihre Präferenz, und geben Sie im Feld Name den Titel des Spiels.

2 Wählen Sie Ansicht aus dem Menü, gefolgt von Tool-Box. Doppelklicken Sie auf Objekte, die Sie verwenden möchten, verwenden Sie für Ihr Spiel und ziehen sie in das Formular auf dem Bildschirm.

3 Geben Sie den folgenden Code in die resultierende Codierung Seite:Dim Vmom As Integer ' hält den Ball vertikale DynamikDim Hmom As Integer ' hält den Ball horizontale DynamikPrivate Sub Form_Load()Zufällige"machen Sie den vertikalen und horizontalen Messspule zufälligeVmom = 100 + Int (Rnd 200)Hmom = 100 + Int(Rnd 200)EndSubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)"verschieben Sie das Paddel an der MauspositionShape1.Left = X - (Shape1.Width / 2)EndSubPrivate Sub Timer1_Timer()"bewegen Sie den Ball, basierend auf der Virtical und der horizontalen MomenutmShape2.Top = Shape2.Top + VmomShape2.Left = Shape2.Left + Hmom"sehen, wenn der Ball die Oberfläche das Paddel treffenWenn (Shape2.Top + Shape2.Height) > Shape1.Top dannWenn Shape2.Left + Shape2.Width > = Shape1.Left und Shape2.Left < = Shape1.Left + Shape1.Width dannVmom = - VmomEndIfEndIf"sehen, wenn der Ball den Rand des Bildschirms getroffen hatWenn (Shape2.Left + Shape2.Width) > Form1.Width dannShape2.Left = Form1.Width - Shape2.WidthHmom - Hmom = ' dies kehrt es Balls RichtungElseIf Shape2.Left < 0 dannShape2.Left = 0Hmom - Hmom = ' dies kehrt es Balls RichtungElseIf Shape2.Top < 0 dannShape2.Top = 0Vmom - Vmom = ' dies kehrt es Balls RichtungElseIf Shape2.Top > Form1.Height dannMsgBox "Sie verloren!"Timer1.Enabled = FalseEndIfEndSub

4 Drücken Sie F5, um das Programm auszuführen.