ups  me equivoque son 56364 coincidencias. 

Yo tampoco pensé que serian tantas :S.

saludos

Pasado a vb6 funciona bien

@MCKSys Argentina 56363 coincidencias 

que has logrado hasta ahorita?

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

entonces te refieres a esto:?

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'

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

es así:

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.

luis entonces no se si lo podrías hacer asi

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
      r1 = Val(TextBox1.Text)
 
      if (r1 mod 10=0) then r1-1
 
      TextBox7.Text = r1 + 10 <--aca el resultado condicionado
 
     End Sub

saludos

entonces tendrias que hacer algo como


if numero mod 2=0 then numero-1

así se cumpliría para todos los pares. hay que ver que realmente quieres hacer.

saludos

:S no me di cuenta que lograste también que solo pudieras entras 2 caracteres.

entonces no necesitas mas nada.

@Ikillnukes  el preguntaba sobre net no vb6.

@tincopasan  el único que leyó bien :S ( o completo)

saludos

Espero lo mires bien y entiendas bien el funcionamiento.


y sigue leyendo sobre vb6(aunque sea un poco viejo ya :S) gánale a tu profesora...

saludos

los nombres de los controles 

una mini explicación.

pasamos el la cantidad: ejemplo 2500


entonces en caso de que la cantidad sea >= 2000

hacemos mod:   
2500 mod 2000' que es 500 entonces lo retornamos

para sabes cuantos billetes son.

divimos 2500 /2000 que nos da 1.25
lo pasamos a entero int(1,25) y obtenemos 1
asi que es solo un billete de 2000

luego se hace lo mismo con el 500 que se retorno.

saludos