Visual Basic - SE QUE ES FACIL...SUMA DE UNOS TEXTBOX

Life is soft - evento anual de software empresarial
 
Vista:

SE QUE ES FACIL...SUMA DE UNOS TEXTBOX

Publicado por JOHAN (13 intervenciones) el 03/09/2004 02:19:19
HOLA AMIGOS COMO ESTAN, ESPERO QUE MUY BIEN. SOY UN NOVATO EN ESTO
DE LA PROGRAMACIÓN Y CADA DÍA QUISIERA APRENDER MÁS DE ESTE MUNDO. UTILIZO
VISUAL BASIC 6

Mi pregunta es la siguiente:

Tengo 3 controles TextBox y un Command Button, deseo ingresar
en los dos primeros TextBox un número de una cifra en cada uno, y que
al pulsar el command Button este me calcule en el tercer TextBox la suma
de los números que se ingresaron en los dos anteriores, pero necesito
que al sumarlos solo me muestre la primera cifra de la suma.

Ejemplo:

TextBox1 (8)
TextBox2 (4)

8 + 4 = 12 pero necesito que solo me muestre el número 2

Si alguno me puede ayudar diciendome que tengo que hacer para
lograrlo le agradeceria mucho, que código debo utilizar y dicho código
dónde lo debo poner si en el formulario o cual de los TextBox y que debo
de colocar en el command Button.

De verdad mil gracias y mucha suerte para todos.

JOHAN
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:SE QUE ES FACIL...SUMA DE UNOS TEXTBOX

Publicado por Ruri (583 intervenciones) el 03/09/2004 02:29:31
JOHAN:
Por lo que decís querés recuperar las unidades de cada número e ignorar las decenas. El asunto no es complicado, primero calculamos la suma y luego la tratamos como cadena para recuperar el último caracter. Yo lo haría así:

Dim suma as long, unidad as string
'Calcula la suma
suma=val(TextBox1.text) + val(TextBox2.text)
'Convierte el resultado a texto
unidad=cstr(suma)
'Obtiene la unidad
unidad=right$(unidad,1)
'Pasa el resultado al tercer texto
TextBox3.text=s

Si lo que deseas es recuperar el primer número debés cambiar la línea
unidad=right$(unidad,1)
por
unidad=left$(unidad,1),

Saludos Ruri
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar