Visual Basic - error al calcular en vb6

Life is soft - evento anual de software empresarial
   
Vista:

error al calcular en vb6

Publicado por juan (1 intervención) el 12/07/2015 17:05:21
Hola soy nuevo en este foro, soy estudiante y nos estan enseñando programacion basica en Visual Basic 6

y tengo un problema con la un boton que me calcula varias operaciones aritmeticas

les explico

esta es mi formula en un solo boton

Private Sub calcular_Click()

subtotal.text= va l(horastrabajadas.text) + val (gastosdiarios.text)
iva.text= subtotal.text * 0.16
total.text= val (subtotal.text) + val(iva.text)

end sub

la primera vez que le doy calcular me calcula todo bien, pero al momento de volver a calcular con las mismas cantidades me da una cantidad muy diferente

alguien me puede decir como solucionarlo??

Gracias!!
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

error al calcular en vb6

Publicado por Pablo (7 intervenciones) el 12/07/2015 20:19:05
he probado el código y si funciona correctamente con 4 textbox (horastrabajadas, gastosdiarios, subtotal e iva respectivamente) y un label para el total (total.caption)

Private Sub calcular_Click()

subtotal.Text = Val(horastrabajadas.Text) + Val(gastosdiarios.Text)
iva.Text = (Val(subtotal.Text) * 16) / 100
total.Caption = Val(subtotal.Text) + Val(iva.Text)

End Sub

Al apretar nuevamente el boton calcular no sucede nada sigue el resultado igual

aEQ3tjj
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
Imágen de perfil de Wilfredo Patricio Castillo

error al calcular en vb6

Es algo sencillo

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub calcular_Click()
 
dim subtotal as long
dim iva as long
dim total as long
subtotal=0
iva=0
total=0
 
subtotal=CLng(txthorastrabajadas.text) + CLng(gastosdiarios,.text)
iva=(subtotal*16)/100
total=subtotal+iva
Txtsubtotal.text=Cstr(subtotal.text)
Txtiva.text=CStr(iva)
LblTotal.caption=CStr(total)
 
 
End Sub

El Clng es para convertir una cadena a un tipo long
El Cstr es para convertir un numero a cadena, si es que mal no recuerdo en VB6, es que ya no lo uso mas de 15 años, y esto lo hice desde este editor de la página.

Saludos
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