Ayuda con programa adivinador! VisualBasic 2012
Publicado por Jose Angel (1 intervención) el 04/09/2018 01:17:18
Mi profesor me ha pedido "Hacer un juego que permita adivinar un numero generado al azar entre 1 y 50 por la computadora. El jugador deberá de tener 5 intentos para adivinar dicho numero, al agostar sus intentos mostrar un mensaje con MsgBox de "Seguir intentando" y finalizar el programa. En caso de ganar indicarlo con un mensaje con MsgBox y mostrar cuantos intentos le quedaban."
He podido hacer el codigo hasta la parte de adivinar el numero (use Math.Truncate(Rnd(100) * 50 + 1), cuando acierto el numero (lo puse con una label en una esquina de la pantalla, si no pues nunca lo adivino) me sale todo correcto: el msgBox, los intentos restantes y se cierra el programa.
Mi problema es al fallar, en el primer intento fallido me pone el MsgBox y se cierra, pero yo no lo quiero al primer intento, quiero que salga eso al quinto y mi profesor se rehúsa a ayudarme, dice que tengo que "pensar analíticamente". Agradecería que me pudiesen ayudar con esto!
Saludos cordiales.
Public Class Form1
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
Label2.Text = Math.Truncate(Rnd(100) * 50 + 1)
End Sub
Private Sub TextBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles .TextBox1MouseClick
Dim contador As Integer
For contador = 4 To 0 Step -1
If TextBox1.Text = Label2.Text Then
MsgBox("Felicidades, has adivinado el numero, tenias " & contador & " intento(s) restante(s)", MsgBoxStyle.Information, "Ganaste")
End
End If
Next contador
If contador < 1 Then
MsgBox("Sigue intentando", MsgBoxStyle.Critical, "Fallaste")
End
End If
End Sub
End Class
(Doble click al Label1 para generar Label2, que es el numero que esta en la esquina de la pantalla)
(Doble click al TextBox1 para dar tu respuesta)
He podido hacer el codigo hasta la parte de adivinar el numero (use Math.Truncate(Rnd(100) * 50 + 1), cuando acierto el numero (lo puse con una label en una esquina de la pantalla, si no pues nunca lo adivino) me sale todo correcto: el msgBox, los intentos restantes y se cierra el programa.
Mi problema es al fallar, en el primer intento fallido me pone el MsgBox y se cierra, pero yo no lo quiero al primer intento, quiero que salga eso al quinto y mi profesor se rehúsa a ayudarme, dice que tengo que "pensar analíticamente". Agradecería que me pudiesen ayudar con esto!
Saludos cordiales.
Public Class Form1
Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
Label2.Text = Math.Truncate(Rnd(100) * 50 + 1)
End Sub
Private Sub TextBox1_MouseClick(sender As Object, e As MouseEventArgs) Handles .TextBox1MouseClick
Dim contador As Integer
For contador = 4 To 0 Step -1
If TextBox1.Text = Label2.Text Then
MsgBox("Felicidades, has adivinado el numero, tenias " & contador & " intento(s) restante(s)", MsgBoxStyle.Information, "Ganaste")
End
End If
Next contador
If contador < 1 Then
MsgBox("Sigue intentando", MsgBoxStyle.Critical, "Fallaste")
End
End If
End Sub
End Class
(Doble click al Label1 para generar Label2, que es el numero que esta en la esquina de la pantalla)
(Doble click al TextBox1 para dar tu respuesta)
Valora esta pregunta
0
