Fahrtkostenrechner

Programmierung Fahrtkostenrechner. CLng, CCur
Private Sub Form_Load()
txtTankinhalt.Text = 55
txtVerbrauch.Text = "6,5" Beim Laden werden beide Textfelder vorbelegt.
End Sub
Private Sub cmdRechnen_Click()
Dim AnzahlKilometer As Long, BenzinPreis As Currency Diese Variablen werden in der Prozedur benötigt.
Dim Verbrauch As Single, Tankinhalt As Long
Dim Preis As Currency, Durchschnittsverbrauch As Single
If Len(txtKilometer.Text) = 0 Then Wurde für Kilometer eine Zahl eingegeben?
MsgBox "Bitte geben Sie die Anzahl der Kilometer ein!", Buttons:=vbExclamation, Title:=""
txtKilometer.SetFocus
Exit Sub
End If
If IsNumeric(txtKilometer.Text) = False Then
MsgBox "Fehler bei der Eingabe der Kilometer!", Buttons:=vbExclamation, Title:=""
txtKilometer.SetFocus
Exit Sub
End If
AnzahlKilometer = CLng(txtKilometer.Text)
If Len(txtBenzinPreis.Text) = 0 Then Wurde für den Benzinpreis ein Betrag eingegeben?
MsgBox "Bitte geben Sie den Benzinpreis ein!", Buttons:=vbExclamation, Title:=""
txtBenzinPreis.SetFocus
Exit Sub
End If
If IsNumeric(txtBenzinPreis.Text) = False Then
MsgBox "Fehler bei der Eingabe des Benzinpreises!", Buttons:=vbExclamation, Title:=""
txtBenzinPreis.SetFocus
Exit Sub
End If
BenzinPreis = CCur(txtBenzinPreis.Text)
Wurde für den Tankinhalt etwas eingegeben?
If Len(txtTankinhalt.Text) = 0 Or IsNumeric(txtTankinhalt.Text) = False Then
txtTankinhalt.Text = "55"
End If
If Len(txtVerbrauch.Text) = 0 Or IsNumeric(txtVerbrauch.Text) = False Then
txtVerbrauch.Text = "6,5"
End If
Tankinhalt = CLng(txtTankinhalt.Text)
Durchschnittsverbrauch = CLng(txtVerbrauch.Text) Wurde für den Durchschnittsverbrauch etwas eingegeben?
Verbrauch = AnzahlKilometer / 100 * Durchschnittsverbrauch
If Verbrauch > Tankinhalt Then
lblFahrtkosten.Caption = "Der Tankinhalt reicht nicht!"
txtKilometer.SelStart = 0
txtKilometer.SelLength = Len(txtKilometer.Text)
txtKilometer.SetFocus
Else
Preis = Verbrauch * BenzinPreis
lblFahrtkosten.Caption = "Die Fahrt kostet Sie: " & Format(Preis, "Currency") & " (" & Verbrauch & "l)"
End If
End Sub
.

Mehr Tipps: Picture in Command Button

Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt