Ako si vyrobiť Pong hru s kódom v VB

Jednoduchosť je kľúčom k brilanciu . Video hry aj naďalej rásť v komplexnosti od ich založenia , ale titul , ktorý je pojmom medzi hráčmi všetkých generácií stále pokračuje fascinovať . Táto hra je Pong . Použitie moderných technológií , ako je Visual Basic , môžete znovu vytvoriť vlastné pong v štýle hry so všetkou jednoduchosti a aditív šialenstvo môže alebo nemusí pamätať ako dieťa . Pokyny dovolená 1

Otvorte Visual Basic a kliknite na tlačidlo Vytvoriť , ktorá sa nachádza v ľavom hornom rohu . V nasledujúcom okne vyberte možnosť Windows prihláške k účasti alebo webové stránky podľa Vašich preferencií , a zadajte názov hry v poli Názov .
2

Vyberte Pohľad z ponuky nasleduje Tool Box . . Dvakrát kliknite na objekty , ktoré chcete použiť pre vaše hry a pretiahnite ich do formulára na obrazovke
3

Zadajte nasledujúci kód do výslednej kódovanie stránky : Dim vmom As Integer ' má lopta je vertikálna momentumDim hmom As Integer ' drží loptu v horizontálnej momentumPrivate Sub Form_Load ( ) Randomize'make vertikálne a horizontálne momentums randomvmom = 100 + Int ( Rnd * 200 ) hmom = 100 + Int ( Rnd * 200 ) End Sub SubPrivate Form_MouseMove ( Button As Integer , Shift As Integer , X As Single , Y As Single ) " presunúť pádlo na myši positionShape1.Left = X - ( Shape1.Width /2 ) End Sub SubPrivate Timer1_Timer ( ) " presunúť loptu , na základe virtical a horizontálne momenutmShape2.Top = Shape2.Top + vmomShape2.Left = Shape2.Left + hmom'see ak lopta biť povrchu pádla - li ( Shape2.Top + Shape2.Height ) > Shape1.Top ThenIf Shape2 . ľavý + Shape2.Width > = Shape1.Left A Shape2.Left < = Shape1.Left + Shape1.Width Thenvmom = - vmomEnd IfEnd If'see ak lopta zasiahol okraj screenIf ( Shape2.Left + Shape2 . šírka ) > Form1.Width ThenShape2.Left = Form1.Width - Shape2.Widthhmom = - hmom ' to obráti , že lopta je directionElseIf Shape2.Left < 0 ThenShape2.Left = 0hmom = - hmom ' to obráti , že lopta je directionElseIf Shape2.Top < 0 ThenShape2.Top = 0vmom = - vmom ' to obráti , že lopta je directionElseIf Shape2.Top > Form1.Height ThenMsgBox " Prehrali ste ! " Timer1.Enabled = FalseEnd IfEnd Sub
4

Stlačením klávesu F5 spustiť program .

• Predchádzajúca strana: Ako poslať Buffer zatvorte Socket 
• Ďalšia strana: Ako si vyrobiť kľúč Prítlačná S VB