SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: rechy en Martes 10 de Febrero de 2004, 23:32

Título: Comparar 2 Numeros
Publicado por: rechy en Martes 10 de Febrero de 2004, 23:32

Hola amigos.
Mi duda es la siguiente:
Quiero comparar 2 numeros, en 2 textbox diferentes y si el numero que se meto en el text1.text es mayor al que meto en el text2.text me salga un mensaje.

Me sale bien, pero cuando pongo en el text1.text 93 y en el text2.text  100 me sale el mensaje de que el valor minimo es mayor al maximo cuando no es asi, les pongo el codigo para que me entiendan mejor:

Private Sub Command1_Click()    
       
    If (Text1.Text > Text2.Text) Then
    res = MsgBox("El valor minimo es mayor al maximo", , "Advertencia")
    Text1.Text = ""
    Text2.Text = ""
    End If  
       
End Sub

Me pueden decir en que estoy fallando si no es mucha molestia. Gracias

Título: Re: Comparar 2 Numeros
Publicado por: Bopo en Miércoles 11 de Febrero de 2004, 01:24

Cita de: "rechy"

Hola amigos.
Mi duda es la siguiente:
Quiero comparar 2 numeros, en 2 textbox diferentes y si el numero que se meto en el text1.text es mayor al que meto en el text2.text me salga un mensaje.

Me sale bien, pero cuando pongo en el text1.text 93 y en el text2.text  100 me sale el mensaje de que el valor minimo es mayor al maximo cuando no es asi, les pongo el codigo para que me entiendan mejor:

Private Sub Command1_Click()    
       
    If (Text1.Text > Text2.Text) Then
    res = MsgBox("El valor minimo es mayor al maximo", , "Advertencia")
    Text1.Text = ""
    Text2.Text = ""
    End If  
       
End Sub

Me pueden decir en que estoy fallando si no es mucha molestia. Gracias

define 2 variables y dee valor ponle textX.text

Private Sub Command1_Click()
Dim val1 As Integer
Dim val2 As Integer
val1 = val(Text1.Text)
val2 = val(Text2.Text)
If (val1 > val2) Then
res = MsgBox("El valor minimo es mayor al maximo", , "Advertencia")
Text1.Text = ""
Text2.Text = ""
End If

End Sub

Título: Re: Comparar 2 Numeros
Publicado por: javirues en Miércoles 11 de Febrero de 2004, 12:32

Si quieres simplificarlo evalua de la siguiente manera:
If (Val(Text1.Text) > Val(Text2.Text)) Then .....
Saludos

Título: Re: Comparar 2 Numeros
Publicado por: rechy en Miércoles 11 de Febrero de 2004, 16:39

Gracias por su apoyo.
Estamos en contacto.

Hasta luego