|
| |
VB.NET - Ein- und Umsteiger| Kaffeautomat | |  | | Autor: Tatanka | | Datum: 14.04.05 16:01 |
| Hallo,
dies ist mein erstes funktionierendes Projekt, was allerdings noch arg verbesserungswürdig ist.
Man muß ein Getränk plus größe auswhlen. Dannach auf OK klicken Geld einwerfen und dann Bezahlen klicken.
Kann man dies in einer Prozedur machen? z.B. das man nur bezahlen klickt, der Betrag angezeigt wird, danach anhalten geld einwerfen und dann bekommt man das Rückgeld oder muß nachwerfen?
Hier mein Code:
Private Sub Cmd_okClick(sender As System.Object, e As System.EventArgs)
Dim strbetrag As decimal
If rdb_kaffee.Checked = True And rdb_klein.Checked = True Then
strbetrag = 1
ElseIf rdb_kaffee.Checked = True And rdb_mittel.Checked = True Then
strbetrag = 2
ElseIf rdb_kaffee.Checked = True And rdb_gross.Checked = True Then
strbetrag = 3
ElseIf rdb_kaffee.Checked = True And rdb_maxi.Checked = True Then
strbetrag = 4
ElseIf rdb_kakao.Checked = True And rdb_klein.Checked = True Then
strbetrag = 1
ElseIf rdb_kakao.Checked = True And rdb_mittel.Checked = True Then
strbetrag = 2
ElseIf rdb_kakao.Checked = True And rdb_gross.Checked = True Then
strbetrag = 3
ElseIf rdb_kakao.Checked = True And rdb_maxi.Checked = True Then
strbetrag = 4
ElseIf rdb_tee.Checked = True And rdb_klein.Checked = True Then
strbetrag = 1
ElseIf rdb_tee.Checked = True And rdb_mittel.Checked = True Then
strbetrag = 2
ElseIf rdb_tee.Checked = True And rdb_gross.Checked = True Then
strbetrag = 3
ElseIf rdb_tee.Checked = True And rdb_maxi.Checked = True Then
strbetrag = 4
ElseIf rdb_wasser.Checked = True And rdb_klein.Checked = True Then
strbetrag = 1
ElseIf rdb_wasser.Checked = True And rdb_mittel.Checked = True Then
strbetrag = 2
ElseIf rdb_wasser.Checked = True And rdb_gross.Checked = True Then
strbetrag = 3
ElseIf rdb_wasser.Checked = True And rdb_maxi.Checked = True Then
strbetrag = 4
ElseIf rdb_cola.Checked = True And rdb_klein.Checked = True Then
strbetrag = 1.5
ElseIf rdb_cola.Checked = True And rdb_mittel.Checked = True Then
strbetrag = 2.5
ElseIf rdb_cola.Checked = True And rdb_gross.Checked = True Then
strbetrag = 3.5
ElseIf rdb_cola.Checked = True And rdb_maxi.Checked = True Then
strbetrag = 4.5
End If
lbl_betrag.Text = strbetrag
End Sub
Private Sub Cmd_abbrechenClick(sender As System.Object, e As System.EventArgs)
me.Close
End Sub
Private Sub Cmd_bezahlenClick(sender As System.Object, e As System.EventArgs)
Dim strbetrag As Decimal
Dim dcEinwurf as Decimal
Dim dcBetrag as decimal
dcEinwurf = IIF(IsNumeric(txt_einwurf.text), txt_einwurf.text,0)
dcBetrag = lbl_Betrag.text
If txt_einwurf.Text = "" Then
messagebox.Show("Keinen Betrag eingegeben!", "Kaffeeautomat", _
Messageboxbuttons.OK, messageboxicon.Exclamation)
ElseIf txt_einwurf.Text < lbl_betrag.Text Then
strbetrag = lbl_betrag.Text - txt_einwurf.Text
Messagebox.Show("Bitte noch" & " " & strbetrag & " " & "€" & " " & _
"nachwerfen!", "Kaffeeautomat", messageboxbuttons.OK, _
Messageboxicon.Information)
Elseif txt_einwurf.Text > lbl_betrag.Text then
strbetrag = txt_einwurf.Text - lbl_betrag.Text
Messagebox.Show("Ihr Rückgeld:" & " " & strbetrag & " " & "€", _
"Kaffeeautomat", messageboxbuttons.OK, Messageboxicon.Information)
txt_einwurf.Text = ""
lbl_betrag.Text = ""
Else
messagebox.Show("Vielen Dank für den Kauf", "Kaffeeautomat", _
Messageboxbuttons.OK, messageboxicon.Exclamation)
txt_einwurf.Text = ""
lbl_betrag.Text = ""
End If
End SubIst vielleicht komliziert geschrieben, aber auf mich als einer der 3 Tage was damit macht bin ich doch recht stolz.
0 | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
Neu! sevDTA 3.0 Pro 
SEPA mit Kontonummernprüfung
Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. Weitere InfosTipp des Monats Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
| |
|
Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
November 2025
Sie sind aktuell nicht angemeldet.
