Imprimir Página - ayuda un programa basico sencillo porfa

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

Aqui esta el código:

Código:

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.

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: jenniyjavier en 11 Mayo 2014, 21:55 pm