Ayuda con un codi
Publicado por Matias (1 intervención) el 28/10/2021 02:20:05
[b]
Buenas! Necesito ayuda con este ejercicio, soy estudiante de primer año, el tema es que me falta como limpiar los label en caso de error. Tengo este codigo:
Private Sub btnJugar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnJugar.Click
lbl1.Text = Int(100 * Rnd())
lbl2.Text = Int(100 * Rnd())
If lbl2.Text > lbl1.Text Then
MsgBox("BIEN")
Else : MsgBox("PERDISTE Numero 2 es Menor que 1")
End If
lbl3.Text = Int(100 * Rnd())
If lbl3.Text > lbl2.Text Then
MsgBox("BIEN")
Else : MsgBox("PERDISTE Numero 3 es Menor que 2")
End If
lbl4.Text = Int(95 * Rnd())
If lbl4.Text > lbl3.Text Then
MsgBox("BIEN")
Else : MsgBox("PERDISTE Numero 4 es Menor que 3")
End If
End Sub
Private Sub Numeros_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Buenas! Necesito ayuda con este ejercicio, soy estudiante de primer año, el tema es que me falta como limpiar los label en caso de error. Tengo este codigo:
Private Sub btnJugar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnJugar.Click
lbl1.Text = Int(100 * Rnd())
lbl2.Text = Int(100 * Rnd())
If lbl2.Text > lbl1.Text Then
MsgBox("BIEN")
Else : MsgBox("PERDISTE Numero 2 es Menor que 1")
End If
lbl3.Text = Int(100 * Rnd())
If lbl3.Text > lbl2.Text Then
MsgBox("BIEN")
Else : MsgBox("PERDISTE Numero 3 es Menor que 2")
End If
lbl4.Text = Int(95 * Rnd())
If lbl4.Text > lbl3.Text Then
MsgBox("BIEN")
Else : MsgBox("PERDISTE Numero 4 es Menor que 3")
End If
End Sub
Private Sub Numeros_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
Valora esta pregunta
0