Komma rechnen ?

  • Komma rechnen ?

    Hallo,

    ich habe mal aus Langeweile so einen Einkaufslistenersteller erstellt und habe nun das Problem, dass er Zahlen mit einem Komma nicht richtig rechnet.

    Weiß jemand woran es liegt?

    Skript :
    Spoiler anzeigen

    AutoIt

    1. #include <ButtonConstants.au3>
    2. #include <EditConstants.au3>
    3. #include <GUIConstantsEx.au3>
    4. #include <GUIListBox.au3>
    5. #include <StaticConstants.au3>
    6. #include <WindowsConstants.au3>
    7. Global $VGesamtpreis = 0,$VArtikelGesamt = 0
    8. $MainGUI = GUICreate("Einkaufslistenersteller", 615, 459, 192, 124)
    9. $LName = GUICtrlCreateLabel("Name der Ware", 8, 8, 93, 17)
    10. $IName = GUICtrlCreateInput("", 104, 8, 329, 21)
    11. $LPreis = GUICtrlCreateLabel("Preis", 448, 8, 27, 17)
    12. $IPreis = GUICtrlCreateInput("", 480, 8, 121, 21)
    13. $LKommentar = GUICtrlCreateLabel("Kommentar", 8, 48, 57, 17)
    14. $IKommentar = GUICtrlCreateInput("", 80, 48, 521, 21)
    15. $BHinzufugen = GUICtrlCreateButton("hinzufügen", 528, 88, 75, 25)
    16. $ListAll = GUICtrlCreateListView("Name | Preis | Kommentar ", 8, 120, 593, 331)
    17. $LGesamtpreis = GUICtrlCreateLabel("Gesamtpreis : 0,00 €", 8, 88, 198, 17)
    18. $LArtikelAktuell = GUICtrlCreateLabel("Aktuelle Anzahl der Artikel : 0", 216, 88, 271, 17)
    19. GUISetState(@SW_SHOW)
    20. While 1
    21. $nMsg = GUIGetMsg()
    22. Switch $nMsg
    23. Case $GUI_EVENT_CLOSE
    24. Exit
    25. Case $BHinzufugen
    26. _Add()
    27. EndSwitch
    28. WEnd
    29. Func _Add()
    30. GUICtrlCreateListViewItem(GuiCtrlRead($IName) & ' | ' & GuiCtrlRead($IPreis) & ' | ' & GuiCtrlRead($IKommentar), $ListAll)
    31. $Split = StringSplit(GuiCtrlRead($IPreis),",")
    32. If UBound($Split) > 2 Then
    33. $VGesamtpreis += $Split[1] & "," & $Split[2]
    34. Else
    35. $VGesamtpreis += GuiCtrlRead($IPreis)
    36. EndIf
    37. $VArtikelGesamt += 1
    38. GuiCtrlSetData($LGesamtpreis,"Gesamtpreis : " & $VGesamtpreis & "€")
    39. GuiCtrlSetData($LArtikelAktuell,"Aktuelle Anzahl der Artikel : " & $VArtikelGesamt)
    40. EndFunc
    Alles anzeigen


    MfG , Julien

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von Julien ()

Webutation