Sistema de Recorrido del Camión (Visual Basic)
CONSIGNA
Se ingresa los kilómetros iniciales y los kilómetros finales del camión y se obtienen los kilómetros del recorrido y el importe.
INTERFAZ
FUENTE
Private Sub Salir_Click()
Unload Me
End Sub
Private Sub Calcular_Click()
If (Combo1.Text = "A") And (Combo2.Text = "18") Then
Text3 = Text2 - Text1
Text4 = Text3 * 50
Text5 = Text4 * 0.18
Text6 = tex4 + Text5
Else
Text3 = Text2 - Text1
Text4 = Text3 * 50
Text5 = Text4 * 0.21
Text6 = tex4 + Text5
End If
If (Combo1.Text = "B") And (Combo2.Text = "18") Then
Text3 = Text2 - Text1
Text4 = Text3 * 50
Text5 = Text4 * 0.18
Text6 = tex4 + Text5
Else
Text3 = Text2 - Text1
Text4 = Text3 * 50
Text5 = Text4 * 0.21
Text6 = tex4 + Text5
End If
If (Text3 >= 5000) Then
Text7 = Text6 / 5
End If
Text8 = Text6 - Text7
End Sub
Private Sub Form_Load()
Combo1.Clear
Combo1.AddItem "A"
Combo1.AddItem "B"
Text1 = ""
Text2 = ""
Combo2.Clear
Combo2.AddItem "18"
Combo2.AddItem "21"
Text3 = 0
Text4 = 0
Text5 = 0
Text6 = 0
Text7 = 0
Text8 = 0
End Sub