Inicio > Visual Basic > ralvaradot > Como resolver este problema de visual basic?

Como resolver este problema de visual basic?

Experto:
Usuario: Anónimo Fecha: 23/08/2008
Valoración: (5,00 sobre 5) Categoría: Visual Basic
22/08/2008
Usuario
Probablemente sea una cosa muy facil pero yo no lo puedo resolver.
Tengo 2 TextBox Text1(a) y Text2(b)(cuyo valor es 80 al iniciar el programa) basicamente lo que quiero es que el programa reste el valor que uno ingrese en el Text1 cada vez que uno pulse el boton command hasta dejarlo en 0 .Y de hecho lo hace el problema es que cada vez que se pulsa el boton toma el valor inicial de text2(es decir 80).En tonces la unica forma que llegue a cero es restarle 80
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
a = Text1.Text
b = 80 - a
Text2.Text = b
End Sub
Necesito que el codigo me permita ingresar numeros en un textbox y que los vaya restando al otro textbox que empezara con el valor 80.
Asi que cada vez que se pulse el boton command debera restarle el numero que este en el primer textbox en ese momento..es decir..
-Ingreso 10 en el texbox1 pulso command y en el textbox2 aparece 70.
-Ingreso 8 en el textbox1 pulso y en el textbox2 aparece 62.
Ingreso 1 en el textbox1 pulso y en el textbox2 aparece 61-.
Etc

Hice esta misma pregunta en yahoo y me dieron alguna respuesta que parecia logica pero al llevarla a la practica no funcionaba..ojala tenga mejor suerte aqui.
Saludos y desde ya gracias
23/08/2008
punisherarg, experto respondiendo en Visual Basic
Experto
Hola
Lo primero es que el textbox2.text debes asignarle el valro de 80 en el LOAD de la forma, asi la priemra vez empeiza con 80
El codigo quedari asi:
Private Sub Command1_Click()
Dim a As Single
Dim b As Single
a = Text1.Text
b = text2.text - a
Text2.Text = b
End Sub
Saludos,
 
23/08/2008
Usuario
Gracias por la respuesta es excelente y clara y sin una linea de codigo de más, perfecta para entenderla y aplicarla...Muchas Gracias de nuevo!!!!!!
23/08/2008
Usuario
Excelente. Una fantástica solución.
Enlaces patrocinados