| Home  | Casa  | Hardware  | Networking  | Programmazione  | Software  | Domanda  | Sistemi  |   
Programmazione  
  • C /C + + Programming

  • Computer Programming Languages

  • Delphi Programming

  • Java Programming

  • Programmazione Javascript

  • PHP /MySQL Programmazione

  • Perl Programming

  • Python Programming

  • rubino Programmazione

  • Nozioni di base di Visual Programming
  •  
    Conoscenza Informatica >> Programmazione >> Nozioni di base di Visual Programming >> Content
    Come fare un gioco pong con il codice in VB
    La semplicità è la chiave per la brillantezza . I videogiochi hanno continuato a crescere in complessità fin dalla loro creazione , ma il titolo che è un nome di famiglia tra i giocatori di tutte le generazioni ancora continua a ipnotizzare . Quel gioco è Pong . Utilizzando la tecnologia moderna come Visual Basic , è possibile ricreare il proprio gioco pong in stile con tutta la semplicità e additivo follia si può o non può ricordare come un bambino . Istruzioni
    1

    Aprire Visual Basic e fare clic su Crea , situato nell'angolo in alto a sinistra . Dalla finestra risultante selezionare Applicazione Windows Form o Web Site per la vostra preferenza , e digitare il titolo del gioco nel campo Nome .
    2

    Selezionare Visualizza dal menu seguito da Tool Box . Fare doppio clic su oggetti che si desidera utilizzare per il vostro gioco e trascinarli nel modulo a schermo
    3

    Inserisci il seguente codice nella pagina risultante codifica : . Dim vmom As Integer ' detiene, verticale hmom della palla momentumDim As Integer ' tiene orizzontale momentumPrivate Sub Form_Load della palla ( ) Randomize'make ' momenti verticali e orizzontali 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 ) ' spostare la racchetta al positionShape1.Left del topo = X - ( Shape1.Width /2) End Sub SubPrivate Timer1_Timer ()' muovere la palla , sulla base del virtical e orizzontali momenutmShape2.Top = Shape2.Top + vmomShape2.Left = Shape2.Left + hmom'see se la palla sta colpendo la superficie della pala Se ( Shape2.Top + Shape2.Height ) > Shape1.Top ThenIf Shape2 . sinistra + Shape2.Width > = Shape1.Left E Shape2.Left < = Shape1.Left + Shape1.Width Thenvmom = - vmomEnd IfEnd If'see se la palla ha colpito il bordo del screenIf ( Shape2.Left + Shape2 . di larghezza) > Form1.Width ThenShape2.Left = Form1.Width - Shape2.Widthhmom = - hmom ' questo inverte la sua palla directionElseIf Shape2.Left < 0 ThenShape2.Left = 0hmom = - hmom ' questo inverte la sua palla directionElseIf Shape2.Top < 0 ThenShape2.Top = 0vmom = - vmom ' questo inverte la sua palla directionElseIf Shape2.Top > Form1.Height ThenMsgBox "Hai perso ! " Timer1.Enabled = FalseEnd IfEnd Sub
    4

    premere F5 per eseguire il programma .

    Previous :

    next :
      Articoli Correlati
    ·Guida VBA 
    ·Come accedere a una DLL per Visual Basic 
    ·Come fermare un thread in Visual Basic 2005 
    ·Come disattivare il Task Manager in VB.Net 
    ·Come creare un set di dati da GridView 
    ·Come disattivare un server di sviluppo ASP.NET 
    ·Come dividere in VBA 
    ·Come leggere email utilizzando VBA 
    ·Come prevenire le vulnerabilità del codice Web 
    ·Come rimuovere Databindings Da una casella di testo 
      Articoli in evidenza
    ·Come copiare negli Appunti in Visual Basic 
    ·Come inviare e ricevere un SMS con VB 6 
    ·Come installare una estensione di MySQL per PHP Red Hat…
    ·Come aprire Sip file 
    ·Come utilizzare Visual Basic per Access 2007 
    ·Come salvare il file con un ora e data in LabVIEW 
    ·Progetti di Visual Basic 
    ·Come collegare Visual Basic 
    ·Tipi coprenti 
    ·Come creare un Login e Registrazione pagina per il tuo …
    Copyright © Conoscenza Informatica http://it.wingwit.com