Ich habe folgende frage...
Und Zwar hab ich das Problem das wenn ich auf ein [+] Sympol in meiner Anwenung bestätige das er unter "In Dose" das nicht bei sich behält
Beispiel siehe Screen:
Und da möchte ich das er unten in dem Label das zusammen rechnet wenn ich beispielsweise auf 50Cent oder 2Cent klicke das er beispielsweise:
3xKlick auf 50Cent => Anzeige: 1,50 €
6xKlick auf 2Cent => Anzeige: 1,62 €
Aber derzeit übernimmt er immer dann nur die Letzen Klicks
Auch möglich das mein Code etwas Schrott/Murks ist
Aber Ich lerne ja noch
Der VB-Code Komplett
Vielleicht hat ja einer eine oder mehrere Ideen wie ich es komfortabler gestalten kann
MfG
LuftPost
Und Zwar hab ich das Problem das wenn ich auf ein [+] Sympol in meiner Anwenung bestätige das er unter "In Dose" das nicht bei sich behält
Beispiel siehe Screen:
Und da möchte ich das er unten in dem Label das zusammen rechnet wenn ich beispielsweise auf 50Cent oder 2Cent klicke das er beispielsweise:
3xKlick auf 50Cent => Anzeige: 1,50 €
6xKlick auf 2Cent => Anzeige: 1,62 €
Aber derzeit übernimmt er immer dann nur die Letzen Klicks
Auch möglich das mein Code etwas Schrott/Murks ist
Aber Ich lerne ja noch
VB.NET-Quellcode
- Public Class SparDose
- Dim InDose As Double = 0
- Public Zwischen As Double = 0
- Public Gesamt As Double = 0
- Dim Edit As String
- Private Sub RechnenPlus(ByVal Typ As TextBox, ByVal value As Double, ByVal Pro As Integer)
- If value < 99 Then
- value = value + 1
- Typ.Text = value.ToString
- lbl_InDose.Text = FormatNumber(value / Pro, 2) & " €"
- End If
- InDose = value / Pro
- My.Settings.InDose = CStr(CDbl(My.Settings.InDose) + CDbl(lbl_InDose.Text))
- My.Settings.Save()
- End Sub
- Private Sub RechnenMinus(ByVal Typ As TextBox, ByVal value As Double, ByVal Pro As Integer)
- If value > -99 Then
- value = value - 1
- Typ.Text = value.ToString
- lbl_InDose.Text = FormatNumber(value / Pro, 2) & " €"
- End If
- InDose = value / Pro
- My.Settings.InDose = CStr(CDbl(My.Settings.InDose) - CDbl(lbl_InDose.Text))
- My.Settings.Save()
- End Sub
- Private Sub RechneGesamtPlus(ByVal oldValue As Double, ByVal newValue As Double)
- Zwischen = oldValue
- Gesamt = CDbl(Zwischen) + CDbl(newValue)
- My.Settings.GesamtInDose = FormatNumber(Gesamt, 2) & " €"
- lbl_GesamtDose.Text = FormatNumber(Gesamt, 2) & " €"
- My.Settings.InDose = "0,00 €"
- My.Settings.Save()
- End Sub
- Private Sub RechneGesamtMinus(ByVal oldValue As Double, ByVal newValue As Double)
- Zwischen = oldValue
- Gesamt = CDbl(Zwischen) - CDbl(newValue)
- My.Settings.GesamtInDose = FormatNumber(Gesamt, 2) & " €"
- lbl_GesamtDose.Text = FormatNumber(Gesamt, 2) & " €"
- My.Settings.InDose = "0,00 €"
- My.Settings.Save()
- End Sub
- Private Sub SetTextNull()
- Dim ButtonGroups() As TextBox = New TextBox() {Cent_1, Cent_2, Cent_5, Cent_10, Cent_20, Cent_50, Euro_1}
- For i = 0 To 7 - 1 Step 1
- ButtonGroups(i).Text = "0"
- Next i
- End Sub
- Private Sub btn_1_Cent_Plus_Click(sender As System.Object, e As System.EventArgs) Handles btn_1_Cent_Plus.Click
- RechnenPlus(Cent_1, CDbl(Cent_1.Text), 100)
- InDose += CDbl(Cent_1.Text)
- End Sub
- Private Sub btn_1_Cent_Minus_Click(sender As System.Object, e As System.EventArgs) Handles btn_1_Cent_Minus.Click
- RechnenMinus(Cent_1, CDbl(Cent_1.Text), 100)
- InDose -= CDbl(Cent_1.Text)
- End Sub
- Private Sub btn_Save_Click(sender As System.Object, e As System.EventArgs) Handles btn_Save.Click
- RechneGesamtPlus(CDbl(My.Settings.GesamtInDose), CDbl(lbl_InDose.Text))
- My.Settings.InDose = lbl_InDose.Text
- lbl_GesamtDose.Text = My.Settings.GesamtInDose
- My.Settings.Save()
- lbl_InDose.Text = "0,00 €"
- SetTextNull()
- End Sub
- Private Sub btn_Clear_Dose_Click(sender As System.Object, e As System.EventArgs) Handles btn_Clear_Dose.Click
- My.Settings.InDose = "0,00 €"
- My.Settings.GesamtInDose = "0,00 €"
- My.Settings.Save()
- lbl_InDose.Text = "0,00 €"
- lbl_GesamtDose.Text = "0,00 €"
- End Sub
- Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
- lbl_InDose.Text = FormatNumber(CDbl(My.Settings.InDose) / 100, 2) & " €"
- lbl_GesamtDose.Text = My.Settings.GesamtInDose
- End Sub
- Private Sub Blue_Button1_Click(sender As System.Object, e As System.EventArgs) Handles Blue_Button1.Click
- MsgBox("Eingezahlt wurde: " & My.Settings.InDose & vbCrLf & "Gesamt in der Dose: " & My.Settings.GesamtInDose)
- End Sub
- Private Sub EditDose(sender As System.Object, e As System.EventArgs) Handles lbl_GesamtDose.DoubleClick
- Edit = InputBox("Gebe den Betrag ein!", "Betrag ändern", lbl_GesamtDose.Text)
- My.Settings.GesamtInDose = Edit
- My.Settings.Save()
- lbl_GesamtDose.Text = Edit
- End Sub
- Private Sub EditOn(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbl_GesamtDose.MouseHover
- lbl_GesamtDose.Cursor = Cursors.IBeam
- End Sub
- Private Sub EditOff(ByVal sender As Object, ByVal e As System.EventArgs) Handles lbl_GesamtDose.MouseLeave
- lbl_GesamtDose.Cursor = Cursors.Default
- End Sub
- Private Sub btn_2_Cent_Plus_Click(sender As System.Object, e As System.EventArgs) Handles btn_2_Cent_Plus.Click
- RechnenPlus(Cent_2, CDbl(Cent_2.Text), 50)
- End Sub
- Private Sub btn_2_Cent_Minus_Click(sender As System.Object, e As System.EventArgs) Handles btn_2_Cent_Minus.Click
- RechnenMinus(Cent_2, CDbl(Cent_2.Text), 50)
- End Sub
- Private Sub btn_5_Cent_Plus_Click(sender As System.Object, e As System.EventArgs) Handles btn_5_Cent_Plus.Click
- RechnenPlus(Cent_5, CDbl(Cent_5.Text), 20)
- End Sub
- Private Sub btn_5_Cent_Minus_Click(sender As System.Object, e As System.EventArgs) Handles btn_5_Cent_Minus.Click
- RechnenMinus(Cent_5, CDbl(Cent_5.Text), 20)
- End Sub
- Private Sub btn_10_Cent_Plus_Click(sender As System.Object, e As System.EventArgs) Handles btn_10_Cent_Plus.Click
- RechnenPlus(Cent_10, CDbl(Cent_10.Text), 10)
- End Sub
- Private Sub btn_10_Cent_Minus_Click(sender As System.Object, e As System.EventArgs) Handles btn_10_Cent_Minus.Click
- RechnenMinus(Cent_10, CDbl(Cent_10.Text), 10)
- End Sub
- Private Sub btn_20_Cent_Plus_Click(sender As System.Object, e As System.EventArgs) Handles btn_20_Cent_Plus.Click
- RechnenPlus(Cent_20, CDbl(Cent_20.Text), 5)
- End Sub
- Private Sub btn_20_Cent_Minus_Click(sender As System.Object, e As System.EventArgs) Handles btn_20_Cent_Minus.Click
- RechnenMinus(Cent_20, CDbl(Cent_20.Text), 5)
- End Sub
- Private Sub btn_50_Cent_Plus_Click(sender As System.Object, e As System.EventArgs) Handles btn_50_Cent_Plus.Click
- RechnenPlus(Cent_50, CDbl(Cent_50.Text), 2)
- End Sub
- Private Sub btn_50_Cent_Minus_Click(sender As System.Object, e As System.EventArgs) Handles btn_50_Cent_Minus.Click
- RechnenMinus(Cent_50, CDbl(Cent_50.Text), 2)
- End Sub
- Private Sub btn_1_Euro_Plus_Click(sender As System.Object, e As System.EventArgs) Handles btn_1_Euro_Plus.Click
- RechnenPlus(Euro_1, CDbl(Euro_1.Text), 1)
- End Sub
- Private Sub btn_1_Euro_Minus_Click(sender As System.Object, e As System.EventArgs) Handles btn_1_Euro_Minus.Click
- RechnenMinus(Euro_1, CDbl(Euro_1.Text), 1)
- End Sub
- End Class
Vielleicht hat ja einer eine oder mehrere Ideen wie ich es komfortabler gestalten kann
MfG
LuftPost