Visual Basic - El de arriba no vale y no se porque...

Life is soft - evento anual de software empresarial
   
Vista:

El de arriba no vale y no se porque...

Publicado por Jose Maria Baena Moya (2 intervenciones) el 02/12/2008 12:32:03
Hola, unos de los ejercicios de clase que me han mandado es un juego que trata de que si al darle al boton que crea dos numeros aleatorios en el cuadro de texto, si sale en alguno de los un 7 ganas pero el problema viene en que el de abajo cuando sale un 7 me dice que gana pero el de arriba le da igual que salga cualquier numero de los 10 primeros nunca dice nada os dejo el codigo a ver si alguien puede ayudarme gracias ;)

Option Explicit

Private Sub cmdjugar_Click()
txtnum1.Text = Int(Rnd * 10)
txtnum2.Text = Int(Rnd * 10)

If txtnum1.Text = "7" Then
txtganaste.Text = "GANASTE"
Else
txtganaste.Text = Empty

End If

If txtnum2.Text = "7" Then
txtganaste.Text = "GANASTE"
Else
txtganaste.Text = Empty

End If

End Sub

Private Sub cmdsalir_click()
End
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:El de arriba no vale y no se porque...

Publicado por Pedro Luis (878 intervenciones) el 02/12/2008 13:24:29
Naturalmente, el último que evaluas es el que se lleva el gato al agua, ocurra lo que ocurra siempre txtganaste tendra lo que resulte de la segunda evaluacion.

if text1="7" or text2="7" then
textganaste="GANASTES"
else
textgnastes=""
endif
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:El de arriba no vale y no se porque...

Publicado por Jose Maria Baena Moya (2 intervenciones) el 02/12/2008 13:39:29
Eternamente agredecido jejeje j
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar