Enkelhet er nøkkelen til glans . Dataspill har fortsatt å vokse i kompleksitet siden deres begynnelse , men tittelen som er et kjent navn blant spillere i alle generasjoner likevel fortsetter å pirre . 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 additive galskap du kan eller ikke kan huske som et barn. Instruksjoner
en

Åpne Visual Basic og klikker på Opprett, som ligger i øvre 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 på objektene du vil bruke for spillet og dra dem til skjemaet på skjermen
3

Skriv inn følgende kode i den resulterende koding side : . Dim vmom As Integer ' holder ballens vertikale momentumDim hmom As Integer ' holder ballen horisontale momentumPrivate Sub Form_Load ( ) Randomize'make de vertikale og horisontale momentums randomvmom = 100 + Int ( Rnd * 200 ) hmom = 100 + Int ( Rnd * 200 ) Avslutt SubPrivate Sub Form_MouseMove ( Button As Integer , Shift As Integer , X As Single, Y As Single) ' flytte padle til musens positionShape1.Left = X - ( Shape1.Width /2 ) End SubPrivate Sub Timer1_Timer ()' flytte ballen , basert på virtical og horisontale momenutmShape2.Top = Shape2.Top + vmomShape2.Left = Shape2.Left + hmom'see hvis ballen treffer overflaten av padle Hvis ( Shape2.Top + Shape2.Height ) > Shape1.Top ThenIf Shape2 . venstre + Shape2.Width > = Shape1.Left Og Shape2.Left < = Shape1.Left + Shape1.Width Thenvmom = - vmomEnd IfEnd If'see hvis ballen har truffet kanten av screenIf ( Shape2.Left + Shape2 . bredde) > Form1.Width ThenShape2.Left = Form1.Width - Shape2.Widthhmom = - hmom ' dette reverserer det ballens directionElseIf Shape2.Left < 0 ThenShape2.Left = 0hmom = - hmom ' dette reverserer det ballens directionElseIf Shape2.Top < 0 ThenShape2.Top = 0vmom = - vmom ' dette reverserer det ballens directionElseIf Shape2.Top > Form1.Height ThenMsgBox " You lost ! " Timer1.Enabled = FalseEnd IfEnd Sub
4

Trykk F5 for å kjøre programmet .