Error al comparar 2 numeros introducidos a traves de un textbox[SOLUCIONADO]

[01munrra]

mi error es un poco tonto, pero igual me estoy ahogando en este vasito de agua, es lo suiguiente, estoy introduciendo 2 numeros es 2 textbox diferentes y reviso de que el primero sea menor que el segundo:

Código (vbnet) [Seleccionar] Expandir


if Trim(TextBox1.Text()) <= Trim(TextBox2.Text() then
  'almaceno
else
  msgbox("Ingrese los datos corectos")
end if


resulta que ingrese los siguiente:

Código (vbnet) [Seleccionar] Expandir


TextBox1.Text() = 90
TextBox2.Text() = 100

al ejecutar salta al Else de la condicion, al parecer me esta comparando como si fueran tipos de datos textos, puesto que 1 es menor a 9 en terminos de ASCII, que puedo hacer para que lo compare como si fueran 2 numeros.??

[m0rf]

Según msdn vía san google: https://msdn.microsoft.com/en-us/library/1aey0kb6(v=vs.90).aspx

Código (csharp) [Seleccionar] Expandir


int leInteger;

leInteger = Convert.ToInt32(textBox1.Text);

leInteger = int.Parse(textBox1.Text);


No te digo como tiene que quedar porque esta muy regurgitado el problema ya, no tienes ni que masticar.

Saludos.

[Eleкtro]

que puedo hacer para que lo compare como si fueran 2 numeros.??

La comparación de texto se compara caracter por caracter, y da los mismos resultados que se pueden ver en el ordenamiento lexicográfico, ya que "9" es mayor que "1", por ende "90" es mayor que "100".



Asumiendo que los valores introducidos siempre serán números dentro del rango aceptable para un valor de tipo Int32, entonces la manera más rápida en términos de rendimiento sería realizando un casteo (en la expresión a evaluar):

Código (vbnet) [Seleccionar] Expandir

TextBox1.Text = CStr(90)
TextBox2.Text = CStr(100)

If (CInt(TextBox1.Text) <= CInt(TextBox2.Text)) Then
   ' ...

Else
   ' ...

End If

De lo contrario, es decir, si los datos introducidos son inseguros, entonces puedes aplicar un control de errores básico para comprobar si los valores de texto se pueden convertir a enteros:

Código (vbnet) [Seleccionar] Expandir

TextBox1.Text = CStr(1)
TextBox2.Text = "qwerty"

Dim valueA As Integer
Dim valueB As Integer

If Not (Integer.TryParse(TextBox1.Text, valueA)) OrElse
  Not (Integer.TryParse(TextBox2.Text, valueB)) Then
   MessageBox.Show("Error")

Else
   '...

End If

Dicho esto, ten en cuenta que no es necesario utilizar la función Trim, las funciones de conversión a enteros ya se encargan de la lógica respecto al tratamiento de los espacios en blanco a la izquierda y derecha, utilizando Trim solo consigues hacer más pesado tu algoritmo, aunque realmente es algo que no tiene ninguna importancia cuando queremos comparar eventualmente 2 valores, pero mejor acostumbrarse a intentar ser lo más eficiente posible hasta cuando no sea necesario, ya que sabiendo estas cosas al menos ayudarán para cuando necesites aplicar un rendimiento elevado en comparaciones más intensivas o costosas.

De todas formas, en caso de que quieras usar Trim por el motivo que sea, en este u otros códigos me refiero, entonces deberías usar la extensión de método String.Trim();
actualmente estás utilizando la función Trim del espacio de nombres Microsoft.VisualBasic, el cual todo su contenido o miembros son una porquería deprecada en términos de rendimiento (a pesar de ser puro código .Net), intenta evitar usar nada como Left, Mid, y etc, puesto que tienes un equivalente altamente cualificado (para cualquier metodo de VB6) en el resto de la librería de classes de .Net Framework.

Saludos

[01munrra]

Eleкtro me funciono con 

Código (vbnet) [Seleccionar] Expandir

CInt gracias!!!...