Mensajes

[idea]

Claro que te generará error. Como puse, está en PSEUDO-CODIGO-VB (no se enojen, es lo único que se me ocurre para bautizar el algoritmo expuesto de esa forma).

Es la idea de lo que puedes hacer. Ahora debes armarte un código que haga lo que dice el algoritmo... 

Saludos!

No pensaba que iban a ser tantas!

ups  me equivoque son 56364 coincidencias. 

Yo tampoco pensé que serian tantas :S.

saludos

[@MCKSys Argentina]

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:?

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'

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.

luis entonces no se si lo podrías hacer asi

Código (vbnet) [Seleccionar] Expandir

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