Dator
 |  Startsida |  Hårdvara |  Nätverk |  Programmering |  Programvara |  Felsökning |  System |   
Programmering
  • C /C + + -programmering
  • Computer Programspråk
  • Delphi Programmering
  • Java Programming
  • JavaScript programmering
  • PHP /MySQL Programmering
  • perl Programmering
  • python Programming
  • Ruby programmering
  • Visual Basics Programmering
  • * Dator Kunskap >> Programmering >> Visual Basics Programmering >> Content

    Hur man gör ett pong spel med koden i VB

    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

    Tidigare:

    nästa:
    relaterade artiklar
    ·Konvertera VBS Med FreeBASIC
    ·Visual Basic Tutorial på Eval Metod
    ·Hur att avsluta det aktuella programmet i Visual Basic …
    ·Hur man ansluter till en URL med VBS
    ·Basic Hjälp för Microsoft Visual
    ·Hur skicka variabler från Visual Basic till Access Que…
    ·Hur du använda Access för Visual Basic program
    ·Hur man programmerar Valuta i Vb.Net
    ·Så här byter du namn på formuläret i koden med Visu…
    ·Hur man skapar en avbild i Visual Basic
    Utvalda artiklarna
    ·Hur du använder RGB med Shape i VB
    ·Hur visa Python Matriser enkelt
    ·Konvertera Time Strängar i Vb.Net
    ·Lägga till element till en array i C - #
    ·Hur konvertera en sträng till ett diagram i C + +
    ·Hur Åsidosätt cPanel Globala inställningar för en P…
    ·Hur man skapar en Cipher i C
    ·Hur Hand Trace Genom programkod
    ·Hur man installerar en blandras Ruby 1.9.2
    ·Hur man gör en MSN Bot
    Copyright © Dator Kunskap http://www.dator.xyz