Visual Basic - Suma

Life is soft - evento anual de software empresarial
   
Vista:

Suma

Publicado por patricio (47 intervenciones) el 15/09/2009 20:07:31
Hola, tengo la siguiente instruccion sin embargo al final la orden TextBox23.Text = a + b + c no me muestra el valor , que error tengo??? o que me falta??

Private Sub CommandButton11_Click()
Dim a As Double
Dim b As Double
Dim c As Double
If TextBox20.Text = "" Then
TextBox20.Text = 0
a = TextBox20.Text
If TextBox21.Text = "" Then
TextBox21.Text = 0
b = TextBox21.Text
If TextBox22.Text = "" Then
TextBox22.Text = 0
c = TextBox22.Text
Else
TextBox23.Text = a + b + c
End If
End If
End If
End Sub
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:Suma

Publicado por energy (1 intervención) el 15/09/2009 22:52:26
simplificate la vida amigo, con esto sumas los 3 valores

textbox23 = textbox20 + textbox21 + textbox22

saludos

si kieres ponle como propiedad del texto un cero. asi evitas los IF
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

RE:Suma

Publicado por juan carlos (518 intervenciones) el 16/09/2009 02:20:38
Hola Patricio esto te servira, si deseas ayuda mandame un mail a
mega.juca@hotmail.es
==============================
codigo en visual basic
==============================
Dim a As Double
Dim b As Double
Dim c As Double
If (Text1 = "") Or (Text2 = "") Or (Text3 = "") Then MsgBox "Faltar insertar un valor", 32, "Mensaje": Exit Sub
a = Text1
b = Text2
c = Text3
Text4.Text = a + b + c
==============================
codigo en visual basic.net
==============================
Dim a As Double
Dim b As Double
Dim c As Double
If (TextBox20= "") Or (TextBox21= "") Or (TextBox22= "") Then MsgBox "Faltar insertar un valor", 32, "Mensaje": Exit Sub
a = TextBox20
b = TextBox21
c = TextBox22
TextBox23.Text = a + b + c
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

RE:Suma

Publicado por Pedro Luis (878 intervenciones) el 16/09/2009 13:35:06
El error que tienes es de lógica.
If TextBox20.Text = "" Then , si no se cumple esta condición el programa se irá al Else ignorando todas instrucciones, con lo que no suma nada.
El If TextBox20.Text = "" Then ponlo en el lostfocus y la suma en el boton.
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

RE:Suma

Publicado por david (4 intervenciones) el 22/09/2009 22:46:01
wao definitivamente, si no tienes logica amigo devuelvete a estudiarla, antes de intentar programar, no lo digo por ofenderte, más bien es un concejo para que se te facilite el camino.
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

RE:Suma

Publicado por jaime guerrero (361 intervenciones) el 16/09/2009 19:34:10
proba de esta manera

Private Sub CommandButton11_Click()
Dim a As Double
Dim b As Double
Dim c As Double

a=0
b=0
c=0

If TextBox20.Text = "" Then
TextBox20.Text = 0
else
a = TextBox20.Text
end if

If TextBox21.Text = "" Then
TextBox21.Text = 0
else
b = TextBox21.Text
end if

If TextBox22.Text = "" Then
TextBox22.Text = 0
else
c = TextBox22.Text
end if

TextBox23.Text = a + b + c
End Sub
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