mayoría de los controles en Visual Basic tienen una función asociada "click " , como Button1_Click para un control de botón o PictureBox1_Click un PictureBox. Al escribir código de estas funciones de clic , el juego se puede responder a un evento de clic realizado por el jugador. Ejemplos de juegos Haciendo click incluyen opciones múltiples concursos, juegos de cartas y puzzles. Usted puede agregar algunos otros elementos de su juego para proporcionar retos adicionales, como una partitura y un temporizador . Esto mantendrá a sus jugadores jugar una y otra vez . Instrucciones
1
Abra Visual Basic y empezar un proyecto nuevo . Haga doble clic en el control " PictureBox " tres veces para agregar tres botones al formulario , llamado " PictureBox1 ", " PictureBox2 " y " PictureBox3 " . Haga clic y arrastre cada uno de alinearlos horizontalmente en el centro de el formulario. Cambie la propiedad de cada uno color de fondo en "red ".
2
doble clic en el control " Label " dos veces para añadir " Label1 " y " Label2 " al formulario. Arrastre cada uno por lo que están alineados verticalmente debajo de los tres cuadros de imagen . La etiqueta superior mostrará la puntuación del jugador . La etiqueta inferior mostrará el tiempo restante en el juego.
3
doble clic en el control " Timer" para añadir " Timer1 " al formulario. Como el propio control del temporizador no se presenta cuando el juego se ejecuta , no es necesario para organizar visualmente. Cambiar propiedad enabled del control a "true ". Cambie la propiedad de intervalo en " 100 ". Esto hace que sea el temporizador disminuir el tiempo restante en el juego cada décima de segundo.
4
Haga doble clic en un área en blanco en el formulario para abrir la ventana de código de la función " Form1_Load " . Escriba el siguiente código:
Randomize () = " Resultado : " Label1.Text y scoreLabel2.Text = "Tiempo restante :" & timegetNewColor ()
primero línea , llamada la función " aleatorio " , asegura a crear un número aleatorio cada vez que lo necesite. Las segunda y tercera líneas cambian el texto para ambas etiquetas . La cuarta línea llama a una función que va a crear para cambiar el color de la caja cuando el usuario recibe un punto.
5
Inserte el cursor debajo de la declaración de la clase . Escriba lo siguiente para declarar e inicializar las variables siguientes :
puntuación Dim As Integer = tiempo 0Dim Como Decimal = 10,0
La primera variable hace un seguimiento de la puntuación con un entero , que sólo permite a toda números . La segunda línea crea una variable decimal para controlar el tiempo restante en el juego. Los valores decimales permiten fracciones. Usted puede cambiar el tipo de datos para satisfacer sus necesidades o también cambiar inicializaciones para crear un juego más largo o más corto.
6
Inserte el cursor en la última línea después del código existente. Escriba el siguiente código : Private Sub
getNewColor () num As Integernum = CInt (Int ( ( 3 * RND ()) + 1 ) ) Si num = 1 ThenPictureBox1.BackColor = Color.GreenElseIf num = 2 ThenPictureBox2 . BackColor = Color.GreenElseIf num = 3 = ThenPictureBox3.BackColor Color.GreenEnd IfEnd Sub
Esta función llama a la función Rnd para cambiar aleatoriamente uno de los tres cuadros de imagen de rojo a verde. En este ejemplo, el mismo cuadro se puede repetir en teoría como en el cuadro verde más de una vez en una fila . Esto mantendrá a los jugadores de adivinanzas.
7
Abra la función " PictureBox1_Click " . Escriba el siguiente código:
Si PictureBox1.BackColor = Color.green Thenscore + = 1Label1.Text = " Resultado :" & scorePictureBox1.BackColor = Color.RedgetNewBox () End If
< p > la primera línea de controles para asegurarse de que el usuario ha hecho clic PictureBox1 cuando está verde. Si es así , incrementa la puntuación del juego del jugador por una , las actualizaciones de la etiqueta puntuación en consecuencia , se restablece PictureBox1 a rojo , a continuación, llama a la función " getNewBox " para cambiar una de las tres cajas de rojo a verde.
8
Abra la función " PictureBox2_Click " . Escriba el siguiente código:
Si PictureBox2.BackColor = Color.green Thenscore + = 1Label1.Text = " Resultado :" & scorePictureBox2.BackColor = Color.RedgetNewBox () End If
< br > 9
Abra la función " PictureBox3_Click " . Escriba el siguiente código:
Si PictureBox3.BackColor = Color.green Thenscore + = 1Label1.Text = " Resultado :" & scorePictureBox3.BackColor = Color.RedgetNewBox () End If
< br > 10
Abra la función " Timer1_Tick " . Escriba el siguiente código:
Si no tiempo = 0,0 Thentime - = 0.1Label2.Text = "Tiempo restante :" & timeElseTimer1.Enabled = FalsePictureBox1.BackColor = Color.RedPictureBox2.BackColor = Color.RedPictureBox3 . BackColor = Color.RedLabel1.Text = "Su puntuación final es :" & scoreEnd Si
la primera línea comprueba si el tiempo de juego ha terminado. Si no , se decrementa el valor de 0,1 y actualiza la etiqueta de tiempo . Si el tiempo ha expirado , el juego se apaga el temporizador , los cambios todo el PictureBox controles para rojo y muestra la puntuación final del jugador .
11
clic en el botón "Ejecutar" o presione "F5 " para comenzar a jugar el juego. El temporizador inicia la cuenta atrás desde 10 de inmediato y uno de los tres controles PictureBox es verde. Haga clic en el cuadro verde para sumar puntos hasta que se acabe el tiempo .
