Fehlermeldung bei Zahl in Textbox

  • VB.NET

Es gibt 12 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    Fehlermeldung bei Zahl in Textbox

    Hallo,

    ich habe ein Problem, in folgenden Code Segment wird mir ein Fehler gezeigt (siehe Bild).
    Ich verstehe nicht, warum der Fehler in diesem Segment abgezeigt wird und in dem anderen nicht?
    ?(
    Nebenbei: Wäre es sinnvoller, generell eine andere Konvertierung der Zahlen anzuwenden?

    Freue mich über Feedback

    VB.NET-Quellcode

    1. Dim netA As Double = CDbl(tb_nettopA.Text), netB As Double = CDbl(tb_nettopB.Text)


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub b_calcp_Click(sender As Object, e As EventArgs) Handles b_calcp.Click
    2. Try
    3. 'deklaration
    4. Dim netA As Double = CDbl(tb_nettopA.Text), netB As Double = CDbl(tb_nettopB.Text)
    5. Dim count As Double = CDbl(nud_countp.Text)
    6. Dim mwstpA As Double = CDbl(cb_mwstpA.Text), mwstpB As Double = CDbl(cb_mwstpB.Text)
    8. 'ea stück
    9. Dim eatpA As Double = Math.Round(CDbl((netA * mwstpA) / 10), 2), eatpB As Double = Math.Round(CDbl((netB * mwstpB) / 10), 2)
    11. 'steuer und summe ohne ea
    12. tb_pA1.Text = Math.Round(CDbl(netA * count * (mwstpA - 1)), 2)
    13. tb_pA2.Text = Math.Round(CDbl(netA * count + tb_pA1.Text), 2)
    15. tb_pB1.Text = Math.Round(CDbl(netB * count * (mwstpB - 1)), 2)
    16. tb_pB2.Text = Math.Round(CDbl(netB * count + tb_pB1.Text), 2)
    18. 'befreit
    19. If cb_befreitp.Checked = True Then
    20. tb_eapA.Text = 0
    21. tb_eapB.Text = 0
    22. cb_asonep.Enabled = False
    23. cb_asonep.Checked = False
    25. ElseIf cb_befreitp.Checked = False Then
    26. cb_asonep.Enabled = True
    28. 'ea gesamt
    29. If eatpA < 10 And eatpA > 5 Then tb_eapA.Text = Math.Round(CDbl(eatpA * count), 2)
    30. If eatpA < 5 Then tb_eapA.Text = Math.Round(CDbl(5 * count), 2)
    31. If eatpA > 10 Then tb_eapA.Text = Math.Round(CDbl(10 * count), 2)
    33. If eatpB < 10 And eatpB > 5 Then tb_eapB.Text = Math.Round(CDbl(eatpB * count), 2)
    34. If eatpB < 5 Then tb_eapB.Text = Math.Round(CDbl(5 * count), 2)
    35. If eatpB > 10 Then tb_eapB.Text = Math.Round(CDbl(10 * count), 2)
    37. 'count as one
    38. If cb_asonep.Checked = True Then
    39. tb_eapA.Text = Math.Round(CDbl(tb_eapA.Text / 2))
    40. tb_eapB.Text = Math.Round(CDbl(tb_eapB.Text / 2))
    41. End If
    42. End If
    44. 'summe mit ea
    45. tb_sumpA.Text = Math.Round(CDbl(tb_pA2.Text - tb_eapA.Text), 2)
    46. tb_sumpB.Text = Math.Round(CDbl(tb_pB2.Text - tb_eapB.Text), 2)
    48. 'differenz
    49. If tb_sumpA.Text > tb_sumpB.Text Then tb_diffp.Text = Math.Round(CDbl(tb_sumpA.Text - tb_sumpB.Text), 2)
    50. If tb_sumpA.Text < tb_sumpB.Text Then tb_diffp.Text = Math.Round(CDbl(tb_sumpB.Text - tb_sumpA.Text), 2)
    52. Catch ex As Exception
    53. MessageBox.Show(ex.ToString)
    54. End Try
    55. End Sub



    Nun habe den Code in ähnlicher Ausführung auch ohne Fehlermeldung...

    VB.NET-Quellcode

    1. Dim net As Double = CDbl(tb_netto.Text), count As Double = CDbl(nud_count.Text)


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub b_calc_Click(sender As Object, e As EventArgs) Handles b_calc.Click
    2. Try
    3. 'deklaration
    4. Dim net As Double = CDbl(tb_netto.Text), count As Double = CDbl(nud_count.Text)
    5. Dim mwstA As Double = CDbl(0.07), mwstB As Double = CDbl(0.19)
    7. 'ea stück
    8. Dim eat7 As Double = Math.Round(CDbl((net * (mwstA + 1)) / 10), 2), eat19 As Double = Math.Round(CDbl((net * (mwstB + 1)) / 10), 2)
    10. 'steuer und summe ohne ea
    11. tb_7a.Text = Math.Round(CDbl(net * count * mwstA), 2)
    12. tb_7b.Text = Math.Round(CDbl(net * count + tb_7a.Text), 2)
    14. tb_19a.Text = Math.Round(CDbl(net * count * mwstB), 2)
    15. tb_19b.Text = Math.Round(CDbl(net * count + tb_19a.Text), 2)
    17. 'befreit
    18. If cb_befreit.Checked = True Then
    19. tb_ea7.Text = 0
    20. tb_ea19.Text = 0
    21. cb_asone.Enabled = False
    22. cb_asone.Checked = False
    24. ElseIf cb_befreit.Checked = False Then
    25. cb_asone.Enabled = True
    27. 'ea gesamt
    28. If eat7 < 10 And eat7 > 5 Then tb_ea7.Text = Math.Round(CDbl(eat7 * count), 2)
    29. If eat7 < 5 Then tb_ea7.Text = Math.Round(CDbl(5 * count), 2)
    30. If eat7 > 10 Then tb_ea7.Text = Math.Round(CDbl(10 * count), 2)
    32. If eat19 < 10 And eat19 > 5 Then tb_ea19.Text = Math.Round(CDbl(eat19 * count), 2)
    33. If eat19 < 5 Then tb_ea19.Text = Math.Round(CDbl(5 * count), 2)
    34. If eat19 > 10 Then tb_ea19.Text = Math.Round(CDbl(10 * count), 2)
    36. 'count as one
    37. If cb_asone.Checked = True Then
    38. tb_ea7.Text = Math.Round(CDbl(tb_ea7.Text / 2))
    39. tb_ea19.Text = Math.Round(CDbl(tb_ea19.Text / 2))
    40. End If
    41. End If
    43. 'summe mit ea
    44. tb_sum7.Text = Math.Round(CDbl(tb_7b.Text - tb_ea7.Text), 2)
    45. tb_sum19.Text = Math.Round(CDbl(tb_19b.Text - tb_ea19.Text), 2)
    47. 'differenz
    48. tb_diff.Text = Math.Round(CDbl(tb_sum19.Text - tb_sum7.Text), 2)
    49. Catch ex As Exception
    50. MessageBox.Show(ex.ToString)
    51. End Try
    52. End Sub


    Bilder

    • Bild 1.PNG

      17,89 kB, 480×343, 111 mal angesehen

    Sam85 schrieb:

    Nebenbei: Wäre es sinnvoller, generell eine andere Konvertierung der Zahlen anzuwenden?
    Du musst deine Eingaben sowieso vorher auf Korrektheit testen - schaue dir einmal Double.TryParse-Methode an...
    Oder verwende statt den TextBoxen --> NumericUpDown-Eingabecontrol, da brauchst du die Überprüfung deiner Eingaben nicht mehr machen...

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VB1963“ ()

    @Sam85 Prüfe zunächst, dass in den TextBoxen kein Unsinn (z.B. "Roullade mit Klößen") steht.
    Dann überlege, ob es ggf. sinnvoll ist, gleich ein NumericUpDown-Control zu verwenden.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Hallo,

    ja das habe ich geprüft in beiden steht einfach zu beginn eine 0 drin und nach der Fehlermeldung, kann ich es auch normal nutzen. Gestern lief es lustigerweise :) ohne Fehlermeldung.
    Habe es jetzt auf NumericUpDown umgestellt :D läuft wieder Fehlerlos.

    Vielen Dank.

    Eine Frage habe ich noch, wenn ich das Steuerelement bei NumericUpDown verschwinden lassen will nutze ich den Code:

    VB.NET-Quellcode

    1. nud_netpA.Controls(0).Visible = False

    Nun wird das Feld einfach nur weiß gefärbt..kann man das anpassen bzw. das Steuerlement einfach verschwinden lassen ohne Rückstande, ohne viel Aufwand? :D

    Es soll nur das UpDown Control verschwinden, nicht das Ganze Feld :).
    hab es damit versucht...aber das funktioniert irgendwie nicht.

    VB.NET-Quellcode

    1. nud_netpA.VerticalScroll.Visible = False

    @Sam85 Aufgrund welchen Sachverhalts werden denn da ühaupt ScrollBars angezeigt?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    ich bin ja von der TextBox auf den NumericUpDown gewechselt...die Zahlen schreibe ich aber weiterhin mit der Hand und aus rein optischen Gründen, wollte ich das UpDown dann verschwinden lassen.

    Sam85 schrieb:

    das UpDown dann verschwinden lassen
    ist vom Framework nicht vorgesehen.
    Was Du allerdings machen könntest, wäre eine NumTextBox.
    Gugst Du hier.
    Gugst Du hier.
    Ich kann kein C# gilt nicht als Ausrede, gugst Du hier.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende