ayuda un programa basico sencillo porfa

[jenniyjavier]

tengo q hacer un programa que pida al usuario un numero de tres dígitos, lo separe e imprima la suma de los tres digitos

[alkage]

Estoy oxidado en vb. Pero seria algo asi, la idea. 1 textbox y 1 command botton. En el textbox colacas el nunero y al apretar el boton el codigo tomaria cada uno de los números por separado y los guardaria en variables numericas y las sumaria mostrando el resultado en un mensaje popup...

Enviado desde mi XT915 usando Tapatalk 2

[Cj2009z]

Aqui esta el código:

Código [Seleccionar] Expandir


Private Sub Command1_Click()
   Dim i As Integer, suma As Integer
   Dim s As String
   
   For i = 1 To Len(Text1.Text) 'comienza el ciclo desde el 1 hasta la cantidad que es
                                             'permita ingresar en el textbox osea 3
       suma = suma + Val(Mid(Text1.Text, i, 1)) 'Extraer los #s y los sumas uno x uno
   Next i 'termina el ciclo
   MsgBox suma, vbInformation, "TAREA" 'muestras el resultado
End Sub

Private Sub Form_Load()
   Text1.MaxLength = 3 'solo permite ingresar tres caracteres al textbox
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
   If (KeyAscii < 48 Or KeyAscii > 57) And KeyAscii <> 8 Then 'solo acepta números backspace y supr
       KeyAscii = 0
   End If
End Sub


La función LEN Devuelve un tipoLong que contiene el número de caracteres en una cadena o el número de bytes necesarios para almacenar unavariable. En este caso estás indicando que cuente los caracteres que se ingresen en el cuadro de texto, por lo tanto la setencia for contara desde uno hasta la cantidad de caracteres que tiene el cuadro de texto.

La función MID Devuelve un tipo Variant (String) que contiene un número especificado de caracteres de una cadena. Mid(quevas a extraer, desdedonde,cuantoscaracteres).

la función val Devuelve los números contenidos en una cadena como un valor numérico del tipo adecuado. En pocas palabras los número que se toman como string, te los convierte en integer.

[Miseryk]

o también

Código (vb) [Seleccionar] Expandir


Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
If IsNumeric(Chr(KeyAscii)) <> True Then KeyAscii = 0
End Sub


[Cj2009z]

excelente, menos código.