| 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 | |
 | |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| |
| . |
| |
zurück