Getränkeautomat -Hilfe-

Ich soll in der Schule ein Getränkeautomat Programmieren.
Ich habe es auch schon fast fertig, aber das Rückgeld soll zerteilt werden z.B.: Wenn jetzt als Rückgeld 5,85 steht, soll es in einer anderen TextBox so stehen: 1*5 1*50 Cent 1*20 Cent 1*5 Cent stehen, noch ein Beispiel: Als Rückgeld steht 2,50 und es soll zerteilt in einer anderen TextBox 1*2 1*50Cent stehen. Gestern habe ich denselben Problem gehabt und den auch in den Forum gestellt die Flyingsunbird hat auch geholfen, aber leider habe ich nichts verstanden. BITTE HILFT MIR.
Danke schon mal im Voraus.
Boris
Hier ist der Code den ich geschrieben habe:


Private Sub CommandButton1_Click()
Unload Me 'schließt die Userform
End Sub


Private Sub CommandButton3_Click()
zahl1 = TextBox2.Value
If OptionButton1 Then 'Subtrahiert und zeigt es in TextBox4(Rückgeld)
TextBox4.Value = CDbl(zahl1) - CDbl(TextBox1)
ElseIf OptionButton2 Then
TextBox4.Value = CDbl(zahl1) - CDbl(TextBox1)
ElseIf OptionButton3 Then
TextBox4.Value = CDbl(zahl1) - CDbl(TextBox1)
ElseIf OptionButton4 Then
TextBox4.Value = CDbl(zahl1) - CDbl(TextBox1)
ElseIf OptionButton5 Then
TextBox4.Value = CDbl(zahl1) - CDbl(TextBox1)
End If
If TextBox2.Value = 0 Then
TextBox4.Value = ""
End If
End Sub


Private Sub CommandButton4_Click()
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
End Sub


Private Sub OptionButton1_Click()
TextBox1.Value = "0,75"
TextBox3.Value = "Kaffee schwarz"
End Sub


Private Sub OptionButton2_Click()
TextBox1.Value = "0,80"
TextBox3.Value = "Kaffee weiß"
End Sub


Private Sub OptionButton3_Click()
TextBox1.Value = "0,85"
TextBox3.Value = "Kaffee komplett"
End Sub


Private Sub OptionButton4_Click()
TextBox1.Value = "0,90"
TextBox3.Value = "Cappucino"
End Sub


Private Sub OptionButton5_Click()
TextBox1.Value = "0,70"
TextBox3.Value = "Kakao"
End Sub

Zur Hilfe:
TextBox1: Preisanzeige, wie viel das Getränk kostet.
TextBox2: Geldeinwurf, wie viel Geld man rein geschmissen hat
TextBox3: Artikelanzeige, was man gekauft hat z.B.: Kakao, Kaffee
TextBox4: Rückgeld, zeigt wie viel Geld man zurück kriegt
TextBox5: Rückgeld soll zerteilt angezeigt werden, wenn man den CommandButton1 drückt

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function Stueckelung$(xx#, Optional ByVal tt$) ' 500 200 100 50 20 10 5 2 1 ,5 ,2 ,1 ,05 ,02 ,01 Dim Einh, ii%, zw#, jj&, ee$ Select Case xx Case Is < 0: Stueckelung = "keine Stückelung (negative Zahl)" Case 0: Stueckelung = "0 Cent" Case Else If tt = "" Then tt = " " Einh = Array(500, 200, 100, 50, 20, 10, 5, 2, 1, _ 0.5, 0.2, 0.1, 0.05, 0.02, 0.01) zw = xx + 10 ^ (-6) For ii = LBound(Einh) To UBound(Einh) jj = Fix(zw / Einh(ii)) If jj > 0 Then ee = ee & CStr(jj) & "*" & IIf(Einh(ii) > 0.7, _ CStr(Einh(ii)) & "", CStr(100 * Einh(ii)) & " Cent") & tt zw = zw - jj * Einh(ii) End If Next ii Stueckelung = Left(ee, Len(ee) - Len(tt)) End Select End Function

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Getränkeautomat -Hilfe-

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread