Programación General > Visual Basic 6.0 e inferiores

 Comparar 2 Numeros

(1/1)

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

Bopo:

--- 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
--- Fin de la cita ---
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

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

rechy:
Gracias por su apoyo.
Estamos en contacto.

Hasta luego

Navegación

[0] Índice de Mensajes