Recorrido del Camión y ganancia del chófer (Visual Basic)
CONSIGNA
Ingresar el camión, sus kilómetros iniciales, sus kilómetros finales y el nombre del chófer. Luego informar los kilómetros realizados y la ganancia del chófer ($50 por kilómetro recorrido). Realizar el valor del IVA al 21% o 18% respectivamente.
INTERFAZ
FUENTE
Private Sub calcular_Click()
KMR = KMF - KMI
Importe = KMR * 50
If (TIVA = "21") Then
IVA = Importe * 0.21
Else
IVA = Importe * 0.18
End If
If KMR >= 10000 Then
Bonificacion = KMR * 2
End If
Subtotal1 = Val(Importe) + Val(IVA)
Pago = KMR * 5
subtota2 = Val(Importe) + Val(IVA) + Val(Bonificacion)
End Sub
Private Sub Form_Load()
camion = ""
KMI = ""
KMF = ""
Importe = 0
TIVA = ""
IVA = 0
Subtotal1 = 0
Chofer = ""
KMR = ""
Pago = ""
Bonificacion = ""
subtota2 = ""
End Sub
Private Sub limpiar_Click()
camion = ""
KMI = ""
KMF = ""
Importe = 0
TIVA = ""
IVA = 0
Subtotal1 = 0
Chofer = ""
KMR = ""
Pago = ""
Bonificacion = ""
subtota2 = ""
End Sub
Private Sub salir_Click()
Unload Me
End Sub
Buen post! ..te seguiré sígueme tu también y nos ayudamos mutuamente... te agradecería un voto en mi ultimo post graciaaas https://steemit.com/openmic/@palmimusic/steemit-open-mic-week-51-tu-eres-rey-barak-cover
OK, Gracias. Así sera ;-)
Are you a dotnet programmer? Cool to find you here
Thank you very much