Sistema de Recorrido del Camión (Visual Basic)steemCreated with Sketch.

in #programming • 7 years ago

Sistema de Recorrido del Camión (Visual Basic)

visual basic.png

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

FORMULARIO.PNG

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

#spanish #technology #tutorial
7 years ago in #programming by
$0.00
    2 votes
    Reply 0

    Coin Marketplace

    STEEM 0.20
    TRX 0.13
    JST 0.029
    BTC 60951.51
    ETH 3381.22
    USDT 1.00
    SBD 2.48