Holaa,


Apenas estoy iniciando con el mundo de programación y tengo un problema con un código. Acabo de hacer un código para un formulario el cual necesito que los números que se ingresen sean mayores de 0 y menores de 50, y a la vez sean enteros. Mi problema está en poder realizar el código en la parte de números enteros ya que no logro configurarlo. Adjunto el código que realicé:

Private Sub TextBox2_afterupdate()
If Val(TextBox2) < 1 Or Val(TextBox2) > 50 Or Val(TextBox2) Mod 1 = 0 Then
        MsgBox ("Dato incorrecto")
        TextBox2.Value = ""
    Else
        nota1 = TextBox2
End If
End Sub
 
 

Les agradecería mucho

[MOD] Usar las etiquetas GeSHi para publicar código.

Es importante saber primero si para tí es válido la introducción de valores decimales o no. Es decir si es válido que pueda truncarse o si debe ser rechazado...

Supongamos que es aceptable truncar un valor con decimales al valor entero, tú código vendría a ser:

Private Sub TextBox2_afterupdate()
    dim k as integer 
 
    k = val(textbox2.value)  ' el valor queda truncado al tipo de datos de destino... un entero al caso.
    If ((k < 1) Or (k > 50))  Then
        MsgBox ("Dato incorrecto")
        TextBox2.Value = ""
    Else
        nota1 = k.tostring  ' si es que quieres un string.
    End If
End Sub

Si para tí es inaceptable truncar el valor entonces el código cambia ligeramente:

Private Sub TextBox2_afterupdate()
    dim k as single  ' nota el cambio de tipo...
 
    k = val(textbox2.value)  ' el valor queda truncado al tipo de datos de destino... aora un 'single'.
    If ((k < 1) Or (k > 50) or ((k mod 1)<>0))  Then
        MsgBox ("Dato incorrecto")
        TextBox2.Value = ""
    Else
        nota1 = k.tostring  ' si es que quieres un string.
    End If
End Sub

OJO: la instrucción 'Val' acepta el '.' como separador decimal, pero no ',' luego para un texto como: val("123,45") devuelve 123'0
En cambio Convert.ToSingle("123.45") tiene en cuenta el idioma y lo interpreta como separador de miles (si es español), luego devuelve 12345'0.

Y en cualquier caso, pon mensajes más específicos... 'dato incorrecto', no determina que se espera que se introduzca... redacta mensajes específicos y al caso mejor diferenciar cuando el fallo es fuera de rango de cuando contiene decimales. Por ejemplo (en VB-NET):

    Private Sub TextBox1_Validating(ByVal sender As Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox1.Validating
        Dim k As Single
 
        k = Val(TextBox1.Text) 
        'k = Convert.ToSingle(TextBox1.Text)
        If ((k Mod 1) <> 0) Then
            MessageBox.Show("Debe ser un número entero. No se admiten decimales...")
        ElseIf ((k < 0) Or (k > 50)) Then
            MessageBox.Show("El valor a introducir debe estar en el rango 1-50.")
        Else
            nota1 = k.ToString ' ok...
        End If
    End Sub
 

Y aprovechando que estás aprendiendo... un consejo... utiliza los paréntesis para encerrar el orden de evaluación de las expresiones, es muy fácil para los que empiezan cometer este tipo de errores que luego no logran ver donde está le fallo, porque todo aparentemente está bien.

Aunque de entrada tienes un error semántico...
Se supone que si el resto es 0, entonces se trata de un número entero, para que 'caiga en ese saco' con los condiionantes indicando fuera de rango unidos por or, el operador debe ndicar distinto de 0, no igual a 0...
' Ambas expresiones son idénticas en cuanto a semántica.

?????...

Esto es falso... en todas las versiones de visual Basic, el operador mod está capacitado para devolver un valor decimal. Otra cosa es que VB trunca de modo automático el dato devuelto al tipo de destino, cuando es posible.

Además cuando existiere algún problema el operador mod puede ser sobrecargado, para que se comporte como uno pudiera esperar/desear...  (por ejemplo hacer un modulo a un tipo de datos de una estructura 'area-point' con decimales).

Operador mod (en español, que existe):
https://docs.microsoft.com/es-es/dotnet/visual-basic/language-reference/operators/mod-operator