Como limitar rango de numeros en un texbox

[luis456]

No funciona estoy tratando con esto pero no se como hacer que no me muestre el resultado como quiero

Código [Seleccionar] Expandir

Public Class Form1

    Dim r1 As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        r1 = Val(TextBox1.Text)
        TextBox2.Text = r1 + 10

        If Val(TextBox2.Text >= 60) Then
            Exit Sub

        End If
    End Sub
End Class

[Danyfirex]

estas aplicando mal el val con toda la expresión no va bien.

es así:

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

    Dim r1 As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        r1 = Val(TextBox1.Text)
        TextBox2.Text = r1 + 10

        If (Val(TextBox2.Text) >= 60) Then
            Exit Sub

        End If
    End Sub
End Class

PD: todavía no me queda claro que es lo que quieres lograr/hacer.

[luis456]

estas aplicando mal el val con toda la expresión no va bien.

es así:

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

    Dim r1 As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        r1 = Val(TextBox1.Text)
        TextBox2.Text = r1 + 10

        If (Val(TextBox2.Text) >= 60) Then
            Exit Sub

        End If
    End Sub
End Class

PD: todavía no me queda claro que es lo que quieres lograr/hacer.

Siempre en programación me paso" lo de que tu sabes lo que quieres jejej pero no explicas bien"


Bien ahora de esta forma ! quiero limitar que cualquier resultado de x suma de x numeros se limite a mostrar pongamos por ejemplo desde el numero 01 hasta el 80 y si esta suma pasa del numero 80 no se muestre en los resultados

gracias por tu atencion
luis

[Danyfirex]

también  me ha pasado jajaja.. y todavía no me queda claro.

entonces te refieres a esto:?

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

    Dim r1 As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        r1 = Val(TextBox1.Text)
'te refieres a esto

if r1+10 < 80 then 'si es menor a 80 se cumnple
        TextBox2.Text = r1 + 10

        If (Val(TextBox2.Text) >= 60) Then
            Exit Sub

        End If
endif 'cierro
    End Sub
End Class


la verdad esta difícil de comprender lo que quieres :S o es que soy muy tapao'

[luis456]

también  me ha pasado jajaja.. y todavía no me queda claro.

entonces te refieres a esto:?

Código (vbnet) [Seleccionar] Expandir

Public Class Form1

    Dim r1 As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        r1 = Val(TextBox1.Text)
'te refieres a esto

if r1+10 < 80 then 'si es menor a 80 se cumnple
        TextBox2.Text = r1 + 10

        If (Val(TextBox2.Text) >= 60) Then
            Exit Sub

        End If
endif 'cierro
    End Sub
End Class


la verdad esta difícil de comprender lo que quieres :S o es que soy muy tapao'

Hurra por ti jejej funciona

Gracias chaval

Luis