Bienvenidos a el tercer tutorial sobre Visual Basic 2010, lenguaje principalmente gráfico y que facilita mucho la programación, lo cual no impide crear grandes aplicaciones e incluso juegos. A lo largo de este tutorial os enseñare otro ejemplo muy básico y que os servirá para seguir familiarizandos con el entorno de programación y el lenguaje, se trata de Clickbutton, un juego el objetivo del cual sera a través de clicks, averiguar hasta que numero eres capaz de llegar sin parar de clikear, para este tutorial usaremos por primera vez las variables y las matemáticas, sin mas allá vamos.

ClickButton (parte gráfica):

Bien, como todo proyecto nuevo lo primero que vamos a  hacer va a ser crear un nuevo proyecto del tipo windows form como vimos en el anterior tutorial, seguidamente (al igual que con el "Hello Word"), vamos a dejar lista lo que es la parte gráfica. Para este juego vamos a necesitar en su mayoría un "button", algún que otro "timer" y un "textbox" entre otros. Bien pues simplemente los localizamos en el ya conocido cuadro de herramientas y los arrastramos hasta nuestra ventana. Nos quedaría algo así:

claro esta, esto es el cuerpo del juego, luego cuando ya tengamos terminado el juego en si, haremos un menú para que quede mejor y no sea simplemente abrir y jugar.

Bueno como veis consta básicamente de un botón, un textbox, un label (informando) y un timer que aunque no se ve esta, al igual que los botones y cualquier otra herramienta lo encontrareis en la caja de herramientas, tan solo lo arrastráis hasta vuestra ventana (da igual la posición) y os aparecerá abajo el icono.

Dejada ya lista la parte gráfica de lo que es el cuerpo del juego, os voy a explicar un poco lo que haremos. Crearemos una variable del tipo integer (para almacenar números enteros) que contendrá el contenido del textbox (0) y cada vez que pulsemos el botón, le sumaremos uno a la variable, de manera que vaya en aumento, y vosotros diréis "buaa que fácil cualquiera podrá llegar hasta 1000 haciendo pausas" y yo os diré "el timer evitara esto", usaremos el timer para que si se deja de pulsar el botón durante mas de 3 segundos active un texto que nos diga que hemos perdido y nos devuelva al menú.

Así que ahora que ya tenemos la parte gráfica y una idea de lo que vamos a hacer solo queda ponernos manos a la obra con el código.

ClickButton (código):

Primero que nada explicaros que para declarar una variable se ha de poner "Dim", seguido del nombre que le queráis poner y por ultimo el tipo de variable que sea, un ejemplo:

Dim numero as integer = 0

esta nos servirá para nuestro juego así que ya podéis ir poniéndola:

Public Class Form1
    Dim numero As Integer = 0
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
 
    End Sub

Aclaración: los otros dos tipos de variables son double (decimales) y string (texto), mas adelante haremos uso de ellas.

Bien y ahora de momento vamos a poner el código necesario para que el botón haga su trabajo, doble y click y escribimos:

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        numero = numero + 1
    End Sub

Simplemente lo que hacemos es decir que al pulsar el botón la variable numero sea igual a la variable numero mas uno, y ahora para que funcione del todo nos faltara asignar al textbox que su contenido sea igual a la variable numero:

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        TextBox1.Text = numero
    End Sub

Para ello he usado el timer que tiene una cuenta atrás de unas milésimas y al llegar a 0 muestra la variable en el textbox, si creéis que me complico es solo que lo hago para que aprendáis mas el uso de las variables y a salir de situaciones complicadas.

Aclaración: El timer al principio aparece en false por lo que deberemos cambiarlo para que este en true, de esta manera cuando se ejecute la aplicación empezara la cuenta atrás, para ello solo tenemos que hacer click encima de el e ir a el cuadro de propiedades.

Como veis los parámetros mas importantes son enabled (del ya hablado) y interval (el contador de el timer, donde 1s = 1000).

Bueno pues ahora podemos ejecutarlo y probarlo, sin lugar a duda funcionara correctamente, el único inconveniente sera el de que puedes hacer pausas y por lo tanto "trampas" en el juego, así que vamos a solucionarlo añadiendo otro timer que tendrá una cuenta atrás de 3 segundos (3000) y se activara cuando pulsemos en el botón. Haremos algo así como que cada vez que se pulsa el botón se reinicie el contador de manera que si no pulsas el botón en 3s pierdes.

Sin mas, añadimos el otro timer y pulsamos doble click (en el botón), y a continuación de la suma de variable escribimos:

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        numero = numero + 1
        Timer2.Stop()
        Timer2.Start()
    End Sub

y ahora doble click en el timer (2) y escribimos:

Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick
        MsgBox("pierdes")
        Me.Close()
    End Sub

Vale, os voy a explicar que hemos hecho, Cada vez que pulsemos el botón, sumaremos uno a la variable y al mismo tiempo el timer se parara y empezara (reinicio) y entonces si se cumple la condición de cuenta atrás del timer2 se mostrara un mensaje diciendo que has perdido (MsgBox) y se cerrara la ventana (o en su defecto volveremos al menú).

Pues nada aquí lo tenéis, vuestro primer juego, como comprobareis todo funcionara tal como hemos previsto y si dejamos de pulsar durante tres segundos perderemos.

ClickButton (Menu/parte gráfica):

Bueno antes de despedirme quisiera acercaros un posible menú para el juego :

Para ello simplemente vamos a el explorador de soluciones y pulsamos botón derecho encima del nombre de nuestro juego (Clickbuttpn) -> agregar -> windows form

Ahora tendremos dos windows form, uno el menú y otro el cuerpo del juego, por mi parte para no liarnos le he cambiado el nombre de manera que quede asi:

Aclaración: He llamado al menú antecuerpo porque menú ya es una función en Visual Basic y por tanto podríamos tener problemas mas adelante a la hora de llamar al menú.

Ahora toca modificar el windows form del menú como mejor os parezca, por mi parte lo dejare de esta manera:

No esta muy trabajado, pero por el momento nos servirá. Lo único que cabe aclarar del menú es que usaremos [me.visible = false] para que cuando pulsemos en nuevo, el menú desaparezca y no se quede abierto y [cuerpo.show] para mostrar el cuerpo del juego, de manera que nos quedaría algo así (adaptado a mi menú):

Public Class Menu
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Me.Visible = False
        Cuerpo.Show()
    End Sub
 
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        MsgBox("Version 1.0")
    End Sub
 
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub
End Class

Bien pues ahora ya solo queda modificar para que cuando perdamos la partida en vez de cerrarse la ventana, vuelva al menú, para ello retomamos el código del timer2 y seguido de [me.close] pondremos:

Private Sub Timer2_Tick(sender As System.Object, e As System.EventArgs) Handles Timer2.Tick
        MsgBox("pierdes")
        Me.Close()
        Antecuerpo.Visible = True
    End Sub

Y bueno ahora si que si ya lo tenemos, por ultimo para que al ejecutar el juego se nos muestre primero el menú (en nuestro caso como hemos empezado por el cuerpo del juego pues primero mostrara este, pero como de normal se empieza por el menú pues este se mostrara primero) iremos a Proyecto -> propiedades de ClickButton (o como hayáis llamado a vuestra aplicación) y en formulario de inicio seleccionamos antecuerpo, guardamos, probamos y listo.

Os espero en la siguiente entrega donde complicaremos un poco mas el juego, poniendo niveles y ademas os enseñare también a crear un auto-instalador para vuestro juego/aplicación.