Aprire Visual Basic e creare un nuovo progetto . Fare doppio clic sul controllo " PictureBox " tre volte per aggiungere tre pulsanti per il modulo , chiamato " PictureBox1 ", " PictureBox2 " e " PictureBox3 " . Fare clic e trascinare ognuno per allinearli orizzontalmente nel mezzo di la forma . Cambiare di ciascuno proprietà BackColor "rosso ".
2
Fare doppio clic sul controllo " Label " due volte per aggiungere " Label1 " e " Label2 " per la forma . Trascinare ogni modo che siano allineati verticalmente sotto le tre caselle di immagine . L'etichetta superiore visualizzerà il punteggio del giocatore . L'etichetta inferiore visualizzerà il tempo rimanente nel gioco .
3 Fare doppio clic sul controllo "Timer " per aggiungere " Timer1 " per la forma . Come il controllo del timer stesso non si presenta quando il gioco gira , non c'è bisogno di organizzare visivamente. Modificare la proprietà Enabled del controllo su "true ". Modificare la proprietà intervallo a " 100 ". Ciò che rende così il timer diminuire il tempo rimanente nel gioco ogni 10 ° di secondo.
4
doppio clic su un'area vuota sul form per aprire la finestra del codice per la funzione " Form1 Load " . Digitare il seguente codice :
Randomize ( ) Label1.Text = " Risultato: " & scoreLabel2.Text = " Tempo rimanente : " & timegetNewColor ( ) per
Il primo linea, chiamata la funzione " Randomize " , assicura si crea un numero casuale ogni volta che avete bisogno di uno . La seconda e la terza riga modificare il testo per entrambi i marchi . La quarta linea richiama una funzione si creerà per cambiare il colore della casella quando l'utente ottiene un punto .
5
Inserire il cursore sotto la dichiarazione della classe . Digitare quanto segue per dichiarare e inizializzare le seguenti variabili :
Dim punteggio As Integer = tempo 0Dim come decimale = 10,0
La prima variabile tiene traccia del punteggio utilizzando un numero intero, che consente solo tutto numeri . La seconda riga crea una variabile decimale per tenere traccia del tempo rimanente nel gioco. Valori decimali consentono frazioni. È possibile modificare il tipo di dati in base alle proprie esigenze o anche cambiare inizializzazioni di creare un gioco più o meno lungo .
6
Inserire il cursore sull'ultima riga dopo il codice esistente . Digitare quanto segue :
Private Sub getNewColor ( ) Dim num Come Integernum = CInt (Int ( ( 3 * Rnd ( ) ) + 1 )) Se num = 1 ThenPictureBox1.BackColor = Color.GreenElseIf num = 2 ThenPictureBox2 . BackColor = Color.GreenElseIf num = 3 ThenPictureBox3.BackColor = Color.GreenEnd IfEnd Sub
Programmazione © www.354353.com