Hvordan lage en pong spill med koden i VB

Enkelhet er nøkkelen til glans. Dataspill har fortsatt å vokse i kompleksitet siden starten, men tittelen som er et kjent navn blant spillere i alle generasjoner fortsetter å hypnotisere. Det spillet er Pong. Ved hjelp av moderne teknologi, slik som Visual Basic, kan du gjenskape din egen pong stil spill med all enkelhet og tilsetningsstoff galskap du kan eller ikke kan huske som et barn.

Bruksanvisning

1 Åpne Visual Basic og klikk på Opprett, som ligger i øverste venstre hjørne. Fra vinduet som velger Windows Form Application eller websiden per dine preferanser, og skriv inn tittelen på spillet i navnefeltet.

2 Velg Vis fra menyen etterfulgt av verktøykassen. Dobbeltklikk objekter du ønsker å bruke for spillet og dra dem til skjemaet på skjermen.

3 Skriv inn følgende kode i den resulterende koding siden:
Dim vmom As Integer 'holder ballen vertikale momentum
Dim hmom As Integer 'holder ballen horisontale momentum
Private Sub Form_Load ()
Tilfeldig
'Gjøre de vertikale og horisontale momentums tilfeldig
vmom = 100 + Int (Rnd

200)
hmom = 100 + Int (Rnd 200)
End Sub
Private Sub Form_MouseMove (Button As Integer, Shift As Integer, X som singel, Y As Enkeltrom)
'Flytte padle til musens posisjon
Shape1.Left = X - (Shape1.Width / 2)
End Sub
Private Sub Timer1_Timer ()
'Flytte ballen, basert på virtical og horisontal momenutm
Shape2.Top = Shape2.Top + vmom
Shape2.Left = Shape2.Left + hmom
'Se om ballen treffer overflaten av padle
Hvis (Shape2.Top + Shape2.Height)> Shape1.Top Deretter
Hvis Shape2.Left + Shape2.Width> = Shape1.Left Og Shape2.Left <= Shape1.Left + Shape1.Width Deretter
vmom = -vmom
Slutt om
Slutt om
'Se om ballen har truffet kanten av skjermen
Hvis (Shape2.Left + Shape2.Width)> Form1.Width Deretter
Shape2.Left = Form1.Width - Shape2.Width
hmom = -hmom 'dette reverserer det ballens retning
ElseIf Shape2.Left <0 Then
Shape2.Left = 0
hmom = -hmom 'dette reverserer det ballens retning
ElseIf Shape2.Top <0 Then
Shape2.Top = 0
vmom = -vmom 'dette reverserer det ballens retning
ElseIf Shape2.Top> Form1.Height Deretter
MsgBox "Du tapte!"
Timer1.Enabled = False
Slutt om
End Sub

4 Trykk F5 for å kjøre programmet.