Enkelhet är nyckeln till briljans . Videospel har fortsatt att växa i komplexitet sedan starten , men titeln som är ett känt namn bland spelare i alla generationer ändå fortsätter att trollbinda . Det spelet är Pong . Med hjälp av modern teknik såsom Visual Basic , kan du återskapa din egen pong - liknande spel med all enkelhet och additiv galenskap du kan eller inte kan komma ihåg som barn . Instruktioner
1
Öppna Visual Basic och klicka på Skapa , som ligger i det övre vänstra hörnet . Från fönstret som visas väljer du Windows Form program eller en webbplats enligt dina önskemål , och skriv in titeln på spelet i fältet Namn .
2
Välj Visa på menyn följt av Verktygslådan . Dubbelklicka på objekt som du vill använda för ditt spel och dra dem till formuläret på skärmen
3
Skriv följande kod i den resulterande kodande sida . Dim vmom As Integer ' innehar bollens vertikala momentumDim hmom As Integer ' håller bollen horisontella momentumPrivate Sub Form_Load ( ) Randomize'make de vertikala och horisontella momentums randomvmom = 100 + Int ( Rnd * 200 ) hmom = 100 + Int ( Rnd * 200 ) End SubPrivate Sub Form_MouseMove ( Button As Integer , Shift As Integer , X As Single , Y As Single ) " flytta paddeln till musens positionShape1.Left = X - ( Shape1.Width /2 ) Avsluta SubPrivate Sub Timer1_Timer ( ) 'Flytta bollen , baserat på den virtical och horisontell momenutmShape2.Top = Shape2.Top + vmomShape2.Left = Shape2.Left + hmom'see om bollen träffar ytan på paddeln Om ( Shape2.Top + Shape2.Height ) > Shape1.Top ThenIf Shape2 . vänster + Shape2.Width > = Shape1.Left Och Shape2.Left < = Shape1.Left + Shape1.Width Thenvmom = - vmomEnd IfEnd If'see om bollen har drabbats kanten av screenIf ( Shape2.Left + Shape2 . bredd ) > Form1.Width ThenShape2.Left = Form1.Width - Shape2.Widthhmom = - hmom ' detta vänder det bollens directionElseIf Shape2.Left < 0 ThenShape2.Left = 0hmom = - hmom ' detta vänder det bollens directionElseIf Shape2.Top < 0 ThenShape2.Top = 0vmom = - vmom ' detta vänder det bollens directionElseIf Shape2.Top > Form1.Height ThenMsgBox " Du förlorade ! " Timer1.Enabled = FalseEnd IfEnd Sub
4
Tryck på F5 för att köra programmet . Addera
