Ungültige Konvertierung von der Zeichenfolge in Typ Double

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Loonix.

    Ungültige Konvertierung von der Zeichenfolge in Typ Double

    Hallo =)
    Hier ist malwieder ein totaler VB Neuensteiger, entsprechend ich meine Frage vermutlich. Auch wenn ich über Google und die Board suche nicht fündig geworden bin =(

    Ich habe ein Progrämmchen geschrieben das Mehrere text eingabefelder enthält, diese dürfen jedoch nur zahlen enthalten und nicht leer sein. Das hat auch wunderbar geklappt.
    Auch das berechnen sobald ich aus dem Fenster tabbe klappt gut mit .LostFocus. Aber das müsste doch auch mit .TextChanged funktionieren oder?
    wenn ich jedoch dies jedoch verwende erhalte ich die meldung :Ungültige Konvertierung von der Zeichenfolge in Typ Double...
    und kann ums verzweifeln nicht herausfinden, warum
    Hier das Beispiel an dem mich der Debugger herauswirft:

    Quellcode

    1. Private Sub RatteZahl_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RatteZahl.TextChanged
    2. KeineNull = RatteZahl.Text
    3. Nuller()
    4. RatteZahl.Text = KeineNull
    5. ViechSummen()
    6. End Sub


    Könnt ihr mir helfen?
    Dank im vorraus,
    Loonix

    Hi!

    Das klingt so, als würde während dem tippen (z.B. löschen) kurzzeitig der inhalt der textbox keine zahl sein...

    Und mit deinem Quellcode kann man echt nix anfangen... was für ein Variablentyp hat "Keine Null" und was macht die Funktion Nuller (Quellcode) und was macht die Funktion "ViechSummen"?

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

    *oups* entschuldige, ich hoffe so kommentiert wird eher ein schuh draus:

    Quellcode

    1. Dim KeineNull As Integer '* Um leere Eingabefelder abzufangen wird deren Inhalt an diese Variable gegeben, geprüft, gegebenenfalls geändert und zurückgegeben.
    4. Private Sub RatteZahl_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RatteZahl.LostFocus '* Mit .LostFocus gibt es keine probleme. sobald ich auf .TextChanged stelle erhalte ich den Fehler
    5. '* Hier wird sichergestellt das das feld vorm tabben nicht leer ist
    6. KeineNull = Int(RatteZahl.Text) '* Textfeld in eine Variable auslesen
    7. Nuller() '* Variable übergeben die schaut ob die Variable leer ist
    8. RatteZahl.Text = Int(KeineNull) '* wieder zurück in das Textfeld schreiben
    9. ViechSummen() '* Hier werden die Zahlen in eine funktion geschrieben die viele felder, ähnlich diesem, zusammen zählen, alles Integer
    10. End Sub
    12. Private Sub RatteZahl_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles RatteZahl.KeyPress
    13. '* Hier wird sichergestellt das nur Ziffern eingegeben werden
    14. Ziffern(e)
    15. End Sub
    17. Private Sub Nuller()
    18. '* Funktion zum vermeiden leerer Eingabefelder!
    20. If KeineNull = "" Then
    21. KeineNull = "0"
    22. End If
    23. End Sub
    25. Private Sub Ziffern(ByVal e)
    26. '* Diese Funktion erlaubt nur Numerische Eingaben!!
    28. Const Numbers$ = "0123456789."
    29. If Asc(e.KeyChar) <> 8 Then
    30. If InStr(Numbers, Chr(Asc(e.KeyChar))) = 0 Then
    31. e.Handled = True
    32. Exit Sub
    33. End If
    34. End If
    35. End Sub


    Und du hast Recht, wenn ich die eingabe lösche ist sie kurzzeitig leer.
    Bis zu einer eingabe komme ich jedoch bei der textchanged version nicht, da er die Eingabemaske garnicht erst aufbaut. =(

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Loonix“ ()

    ich seh da gleich nen haufen fehler ^^

    also... KeineNull müsste auf deine art jeden fall mal als String dekleriert werden, da du ja einen string rein ladest...
    Die funktion Int schneidet nachkommastellen von einer ZAHL ab, dies ja in deinem Fall noch nich gibt. wir sind da noch immer bei strings.
    Die Funktion Nuller kannst du weg lassen, das geht mit IsNumeric viel einfacher.

    RatteZahl.Text = Int(KeineNull)
    ist auf jeden fall blödsinn, wenn du mit der Zahl weiterrechnest.
    Bei der Sub Ziffern solltest du für e einen Typ angeben.
    in diesem fall System.Windows.Forms.KeyPressEventArgs

    Also all in all müsste das in etwa so aussehen:

    Quellcode

    1. Dim Zahl As Integer '* Um leere Eingabefelder abzufangen wird deren Inhalt an diese Variable gegeben, geprüft, gegebenenfalls geändert und zurückgegeben.
    4. Private Sub RatteZahl_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RatteZahl.LostFocus '* Mit .LostFocus gibt es keine probleme. sobald ich auf .TextChanged stelle erhalte ich den Fehler
    5. '* Hier wird sichergestellt das das feld vorm tabben nicht leer ist
    6. If IsNumeric(RatteZahl.Text) then
    7. Zahl = Int(val(RatteZahl.Text))
    8. Else
    9. Zahl = 0
    10. End if
    12. ViechSummen() '* Hier werden die Zahlen in eine funktion geschrieben die viele felder, ähnlich diesem, zusammen zählen, alles Integer
    13. End Sub
    15. Private Sub RatteZahl_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles RatteZahl.KeyPress
    16. '* Hier wird sichergestellt das nur Ziffern eingegeben werden
    17. Ziffern(byref e System.Windows.Forms.KeyPressEventArgs)
    18. End Sub
    20. Private Sub Ziffern(ByVal e as System.Windows.Forms.KeyPressEventArgs)
    21. '* Diese Funktion erlaubt nur Numerische Eingaben!!
    23. Const Numbers$ = "0123456789."
    24. If Asc(e.KeyChar) <> 8 Then
    25. If InStr(Numbers, Chr(Asc(e.KeyChar))) = 0 Then
    26. e.Handled = True
    27. Exit Sub
    28. End If
    29. End If
    30. End Sub


    In Viecher summonen verwendest du dann die Variable Zahl ...

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

    *grübel grübel*
    *wühl wühl*

    Vielen Dank für die Mühe, das muss ich ersteinmal ausprobieren =)
    Meine Güte, zumindest kann ich sachen RICHTIG falsch machen *g*

    das mit der Nuller() funktion hätte ich echt sehen müssen!

    Int(Val(x)) Lässt nun auch komma zahlen zu?
    Ich muss mehr lesen ^^

    Hi!

    Also:
    Val verwandelt Variablen/Strings, die das Format einer Gültigen Zahl haben (also entweder USA-Norm (123.321) oder Landeseinstellungen (123,321)) in eine Zahl; int wirst du wohl wissen, was es bringt...
    Mit IsNumeric Prüfst du ob eine Variable/ein String das Format einer Gültigen Zahl hat (siehe oben).

    Also: Wenn der String keine Zahl ist, wird die Variable auf 0 gesetzt, wenns eine Zahl ist wird der String zu einem Int verwandelt.

    Und ich hab nen kleine Fehler gemacht:
    Beim Keypress soll natürlich nicht ByRef e as ... stehen, sondern nur e.
    War gestern wohl ein bisschen müde *g*

    juhu!
    nun habe ich das Programmierbügeleisen kräftig über meinen Code gleiten lassen =)

    Die wichtigsten Lehren die ich gezogenhabe sind:
    Rechne NIE mit dem Inhalt von Eingabefeldern!
    Übergib JEDE Eingabe in eine Variable!
    Deklariere alle Variablen EIN-EINDEUTIG!

    Mad Andy, danke das du mir geholfen hast,
    es hat sehr geholfen =)

Facebook
Telefonspende