Suma de textbox

[spiderman78]

Que tal gente del for, aqui de nuevo con una consulta, mi problema es el siguiente quiero hacer una suma automatica de 5 textbox y mostrala en un 6 texbox, y comento q en forma automatica es por q quiero q al introducir una cantidad en 1 o 3 o 4 etc en forma salteada, me vaya apareciendo la cantidad en el textbox6, ojala me haya dado entender y de antemano muchas gracias por la ayuda

Saludos

[francof2842]

no se si es la mejor, pero que funciona, funciona a lo mejor necesita un ajuste minimo pero te lo dejo para vos un saludo

Public a As Integer

Private Sub Text1_Change()
If Text1.Text <> "" Then
sumar (Text1.Text) - a
a = Text1.Text
End If
End Sub

Private Sub Text2_Change()
If Text2.Text <> "" Then
sumar (Text2.Text) - a
a = Text2.Text
End If
End Sub

Private Sub Text3_Change()
If Text3.Text <> "" Then
sumar (Text3.Text) - a
a = Text3.Text
End If
End Sub

Private Sub Text4_Change()
If Text4.Text <> "" Then
sumar (Text4.Text) - a
a = Text4.Text
End If
End Sub

Private Sub Text5_Change()
If Text5.Text <> "" Then
sumar (Text5.Text) - a
a = Text5.Text
End If
End Sub

Sub sumar(i As Integer)

Text6.Text = Text6.Text + i

End Sub

Private Sub Text1_GotFocus()
Text1.Text = 0
a = 0
End Sub

Private Sub Text2_GotFocus()
Text2.Text = 0
a = 0
End Sub

Private Sub Text3_GotFocus()
Text3.Text = 0
a = 0
End Sub

Private Sub Text4_GotFocus()
Text4.Text = 0
a = 0
End Sub

Private Sub Text5_GotFocus()
Text5.Text = 0
a = 0
End Sub

[francof2842]

me olvide de decirte, todos los textboxs deben tener un valor inicial 0 para evitar algunos errores, todos se pueden arreglar, un saludo :P

[Avellaneda]

Iniciado por spiderman78

Que tal gente del for, aqui de nuevo con una consulta, mi problema es el siguiente quiero hacer una suma automatica de 5 textbox y mostrala en un 6 texbox, y comento q en forma automatica es por q quiero q al introducir una cantidad en 1 o 3 o 4 etc en forma salteada, me vaya apareciendo la cantidad en el textbox6, ojala me haya dado entender y de antemano muchas gracias por la ayuda

Saludos

Bueno, yo lo que haría es meter los 5 TextBox en un array de controles (Text1(0) a Text1(4)) y después este sencillo código

Código:

Private Sub Text1_LostFocus(Index As Integer)
Dim i As Integer
txtSuma = 0
For i = 0 To 4
    txtSuma = txtSuma + Val(Text1(i))
Next i
End Sub

Así aunque se modifique el valor de un TextBox, siempre dará la suma correcta.

[spiderman78]

Iniciado por Avellaneda

Bueno, yo lo que haría es meter los 5 TextBox en un array de controles (Text1(0) a Text1(4)) y después este sencillo código

Código:

Private Sub Text1_LostFocus(Index As Integer)
Dim i As Integer
txtSuma = 0
For i = 0 To 4
    txtSuma = txtSuma + Val(Text1(i))
Next i
End Sub

Así aunque se modifique el valor de un TextBox, siempre dará la suma correcta.

Que tal Gracias por la ayuda, solo una pregunta este codigo como lo asigno para que me muestre el resultado en mi textbox6, ya los demas los modifique en un array.....


Saludos y Gracias por la ayuda

[spiderman78]

Perdon Me faltaba modificar el nombre del texbox donde me muestra el resultado de la suma, muchas gracias por la ayuda, quedo perfectamente

Saludos

[franko1809]

Otro dato que debes tener en cuenta es que los text solo acepten numeros y no letras

Código:

Private Sub Text1_KeyPress(Index As Integer, KeyAscii As Integer)
'Solo acepta numeros y la tecla retroceso
If (Chr(KeyAscii) < "0" Or Chr(KeyAscii) > "9") And Chr(KeyAscii) <> vbBack Then
    KeyAscii = 0
End If
End Sub

si quieres agregar un caracter mas, por ejemplo punto decimal solo agregas And Chr(KeyAscii) <> "."