Komma rechnen ?

    • [ gelöst ]

      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-Quellcode

      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


      MfG , Julien

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

    autoit.de Webutation