• Miércoles 16 de Octubre de 2024, 10:12

Autor Tema:  Comparar 2 Numeros  (Leído 11347 veces)

rechy

  • Miembro activo
  • **
  • Mensajes: 69
    • Ver Perfil
Comparar 2 Numeros
« en: Martes 10 de Febrero de 2004, 23:32 »
0
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

  • Miembro activo
  • **
  • Mensajes: 72
    • Ver Perfil
Re: Comparar 2 Numeros
« Respuesta #1 en: Miércoles 11 de Febrero de 2004, 01:24 »
0
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

javirues

  • Miembro activo
  • **
  • Mensajes: 46
    • Ver Perfil
Re: Comparar 2 Numeros
« Respuesta #2 en: Miércoles 11 de Febrero de 2004, 12:32 »
0
Si quieres simplificarlo evalua de la siguiente manera:
If (Val(Text1.Text) > Val(Text2.Text)) Then .....
Saludos

rechy

  • Miembro activo
  • **
  • Mensajes: 69
    • Ver Perfil
Re: Comparar 2 Numeros
« Respuesta #3 en: Miércoles 11 de Febrero de 2004, 16:39 »
0
Gracias por su apoyo.
Estamos en contacto.

Hasta luego