Visual Basic - PARA FRAN Y CARLOS, Esto sigue mal

Life is soft - evento anual de software empresarial
 
Vista:

PARA FRAN Y CARLOS, Esto sigue mal

Publicado por Manolo (10 intervenciones) el 31/03/2002 13:59:32
Private Sub Form_Load()

Dim numero As Integer
Randomize ' Inicializa el generador de números aleatorios.

numero = Int((9999 * Rnd) + 1) ' Genera valores aleatorios entre 1 y 9999
Show
Print numero ' saco el numero en pantalla para verlo

Private Sub Command3_Click()

If numero = Val(Textnumero.Text) Then

MsgBox "si"
Else
MsgBox "no"
End If

End Sub

Command3_Click()<<<Este boton lo utilizo para al darle que compare los dos numeros

Textnumero.Text<<<Es donde yo untroduzco el numero a comparar con el que saca la funcion Rnd

Da igual que acierte el numero o no siempre sale el mensaje de No

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:PARA FRAN Y CARLOS, Esto sigue mal

Publicado por Daniel (75 intervenciones) el 31/03/2002 16:52:50
Manolo:

El problema es que la variable numero esta "cargada" o tiene valor dentro del sub Form Load, es decir que desde otra sub la variable numero esta vacia....

Para que la variable sea vista en todos las subs del formulario tienes que agregar la declaracion en la zona general - declaraciones
es decir arriba antes de la codificacion de las subs

aca te lo describo mejor:

Public numero As Integer

Private Sub Form_Load()
Randomize ' Inicializa el generador de números aleatorios.
numero = Int((9999 * Rnd) + 1) ' Genera valores aleatorios entre 1 y 9999

Debug.Print numero ' saco el numero en pantalla para verlo
End Sub

Private Sub Command3_Click()
If numero = Val(textnumero.Text) Then
MsgBox "si"
Else
MsgBox "no"
End If

End Sub

Bueno espero que te funcione el programa

Saludos desde Argentina

Daniel


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

eso era!!!!

Publicado por carlos javier alba (32 intervenciones) el 01/04/2002 00:33:11
lo que dijo Fran es totalmente acertado, con eso vas a la fija!
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