Segundo programa: Ahorcado numérico

Ya estamos aquí de nuevo para hacer nuestro segundo programa para nuestros dispositivos WM6. La verdad que hacer el Hello World es muy bonito pero no aporta nada, así que me he propuesto enseñaros a hacer una especie de mini juego. Vamos a intentar hacer un programa para adivinar un numero del 0 al 99

Nuestro formulario va a constar de:

Form1

Text: Ahorcado Numérico

Label1

Text: Bienvenidos al programa del Ahorcado numérico.
Por favor introduzca un numero del 0 al 99.

AVISO: Tiene 10 intentos

Label2

Text:Número

Label3

Text: Intentos restantes

Label4

Text: 10

TextBox1

Text: 00

MaxLength: 2

Enabled: False

Button1

Text: Comprobar

Button2

Text: Pista

Button3

Text: Borrar

Como siempre dejo las fuentes a vuestra elección. Nos debería de quedar algo similar a esto:

Código:

Public Class Form1
Dim numero As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Enabled = True Then
If Label4.Text > 1 Then
If numero = TextBox1.Text Then
MsgBox(“Muy Bien, has acertado!!!!!”, , “Ahorcado”)
TextBox1.Enabled = False
ElseIf Label4.Text = 2 Then
Label4.Text = Label4.Text – 1
MsgBox(“Lo siento, has fallado. Todavía te queda ” & Label4.Text & ” intento”, , “Ahorcado”)
TextBox1.Focus()
TextBox1.SelectAll()
Else
Label4.Text = Label4.Text – 1
MsgBox(“Lo siento, has fallado. Todavía te quedan ” & Label4.Text & ” intentos”, , “Ahorcado”)
TextBox1.Focus()
TextBox1.SelectAll()
End If
Else
MsgBox(“Lo siento se te acabaron las oportunidades, inténtalo de nuevo”, , “Ahorcado”)
TextBox1.Enabled = False
End If
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Enabled = True
numero = Int(99 * Rnd())
Label4.Text = 10
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox1.Text < numero Then
MsgBox(“Me parece un numero muy pequeño. ¿No?”, , “Ahorcado”)
ElseIf TextBox1.Text > numero Then
MsgBox(“Me parece un numero muy grande. ¿No?”, , “Ahorcado”)
Else
MsgBox(“Que te quemas!!! :D”, , “Ahorcado”)
End If
TextBox1.Focus()
TextBox1.SelectAll()
End Sub
End Class

He intentado programarlo lo más simple que he podido, sin bucles, etc. Para no liaros mucho. Voy a destacar 2 partes del código que puede que no se entiendan (las otras son simples condiciones)

La primera es:

TextBox1.Focus()
TextBox1.SelectAll()

En estas 2 sentencias lo que hacemos es seleccionar el texto del TextBox1, así cuando no salga el mensaje el texto queda seleccionado para poder sobreescribirlo más rápidamente.

La segunda:

numero = Int(99 * Rnd())

Lo que hacemos es multiplicar 99 por un numero aleatorio (obtenido con Rnd()) que luego guardamos en la variable número para poder acceder a ella desde las sentencias condicionales.

Un saludo y a jugar al ahorcado.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s

A %d blogueros les gusta esto: