Problem mit Kostenkalkulationsrechner

1. offizieller Beitrag

    Guten Tag,
    ich habe das Problem ich habe ein Programm gemacht und ich muss auch kommastellen setzen und ich weiß nicht wie das geht. ?(
    ;)
    Wäre nett wenn ihr mir helft.

    Danke im Voraus

    havOx.

    • Offizieller Beitrag

    Wo ist dein Script? Sollen wir uns eine Lösung aus den Fingern saugen?

    Hallo havOx.,

    herzlich willkommen im Forum und viel Spass mit AutoIt.

    Hier kannst du dir die deutsche Hilfe herunterladen.
    Hier gibt es ein AutoIt-Tutorial: http://wiki.autoit.de/wiki/index.php/TutorialSehr hilfreich ist auch das Buch von peethebee

    und jetzt zu den Kommastellen. Zum runden beim Rechnen kannst du

    [autoit]

    round

    [/autoit]

    nehmen. Zur Ausgabe eignet sich am besten

    [autoit]

    StringFormat

    [/autoit]

    mfg autoBert

    Einmal editiert, zuletzt von autoBert (22. März 2011 um 16:33)

    Achja stimmt Endschuldigung :>>

    [autoit]

    #Region ;**** Directives created by AutoIt3Wrapper_GUI ****
    #EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
    #include <ButtonConstants.au3>
    #include <ComboConstants.au3>
    #include <EditConstants.au3>
    #include <GUIConstantsEx.au3>
    #include <StaticConstants.au3>
    #include <WindowsConstants.au3>

    [/autoit][autoit][/autoit][autoit]

    #Region ###
    $Form1 = GUICreate("Kostenkalkulation v1.0", 1097, 180, -1, -1, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_DLGFRAME,$WS_POPUP,$WS_GROUP,$WS_TABSTOP,$WS_CLIPSIBLINGS))
    GUISetBkColor(0x000000)
    $Label1 = GUICtrlCreateLabel("Menge", 48, 8, 49, 20)
    GUICtrlSetFont(-1, 10, 400, 4, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    $Label2 = GUICtrlCreateLabel("Bezugspreis", 168, 8, 79, 20)
    GUICtrlSetFont(-1, 10, 400, 4, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    $Label3 = GUICtrlCreateLabel("Bezugspreis gesamt ", 280, 8, 130, 20)
    GUICtrlSetFont(-1, 10, 400, 4, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    $Input1 = GUICtrlCreateInput("", 8, 32, 121, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL, $ES_NUMBER))
    $Input2 = GUICtrlCreateInput("", 144, 32, 121, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL, $ES_NUMBER ))
    $Input3 = GUICtrlCreateInput("", 280, 32, 121, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_READONLY, $ES_NUMBER))
    $Label4 = GUICtrlCreateLabel("Kosten in%", 448, 8, 68, 20)
    GUICtrlSetFont(-1, 10, 400, 4, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    $Input4 = GUICtrlCreateInput("", 416, 32, 121, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL, $ES_NUMBER))
    $Input5 = GUICtrlCreateInput("", 552, 32, 121, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_READONLY, $ES_NUMBER))
    $Label5 = GUICtrlCreateLabel("Selbstkosten in €", 560, 8, 105, 20)
    GUICtrlSetFont(-1, 10, 400, 4, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    $Input6 = GUICtrlCreateInput("", 688, 32, 121, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL, $ES_NUMBER))
    $Input7 = GUICtrlCreateInput("", 824, 32, 121, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_READONLY, $ES_NUMBER))
    $Label6 = GUICtrlCreateLabel("Gewinn in %", 712, 8, 76, 20)
    GUICtrlSetFont(-1, 10, 400, 4, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    $Label7 = GUICtrlCreateLabel("Gewinn ", 856, 8, 51, 20)
    GUICtrlSetFont(-1, 10, 400, 4, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    $Label8 = GUICtrlCreateLabel("Mehrwertsteuer in %", 960, 8, 123, 20)
    GUICtrlSetFont(-1, 10, 400, 4, "MS Sans Serif")
    GUICtrlSetColor(-1, 0x00FF00)
    $Label9 = GUICtrlCreateLabel("Gesamt Verkaufspreis in € ", 0, 72, 1094, 24, $SS_CENTER)
    GUICtrlSetFont(-1, 12, 800, 6, "MS Sans Serif")
    GUICtrlSetColor(-3, 0x00FF00)
    $Input9 = GUICtrlCreateInput("", 472, 104, 177, 21, BitOR($ES_CENTER, $ES_AUTOHSCROLL,$ES_READONLY, $ES_NUMBER))
    $Button1 = GUICtrlCreateButton("Programm beenden", 856, 144, 107, 25, 0)
    $Button2 = GUICtrlCreateButton("Hilfe!", 984, 144, 107, 25, 0)
    $Label10 = GUICtrlCreateLabel("Created by havOx.", 16, 152, 92, 17)
    GUICtrlSetColor(-1, 0xFF0000)
    GUICtrlCreateInput("19%", 960, 32, 121, 21, BitOR($ES_CENTER,$ES_AUTOHSCROLL,$ES_READONLY))
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    [/autoit][autoit][/autoit][autoit]

    #Region ### START Koda GUI section ###
    $Form2 = GUICreate("Hilfebox v1.0", 666, 308, -1, -1, BitOR($WS_MAXIMIZEBOX,$WS_MINIMIZEBOX,$WS_SIZEBOX,$WS_THICKFRAME,$WS_SYSMENU,$WS_DLGFRAME,$WS_POPUP,$WS_GROUP,$WS_TABSTOP,$WS_CLIPSIBLINGS))
    GUISetIcon("D:\005.ico")
    GUISetBkColor(0x000000)
    $PageControl1 = GUICtrlCreateTab(8, 8, 652, 256)
    GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
    $TabSheet1 = GUICtrlCreateTabItem("Beispiel Rechnung")
    $Label2 = GUICtrlCreateLabel("Diese Beispiel Rechnug zieht sich durch die ganze Hilfebox", 8, 48, 552, 28, $SS_CENTER)
    GUICtrlSetFont(-1, 16, 400, 4, "Arial")
    GUICtrlSetColor(-1, 0x00FF00)
    $Label3 = GUICtrlCreateLabel("Menge: 3 Laptops", 24, 96, 130, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    GUICtrlSetColor(-1, 0x000080)
    $Label4 = GUICtrlCreateLabel("Bezugspreis: Ein Laptop kostet 650€.", 24, 128, 265, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    GUICtrlSetColor(-1, 0x000080)
    $Label5 = GUICtrlCreateLabel("Gewinn: 20% möchte ich Gewinn machen.", 24, 160, 294, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    GUICtrlSetColor(-1, 0x000080)
    $Label6 = GUICtrlCreateLabel("19% Mehrwertsteuer", 24, 192, 147, 22)
    GUICtrlSetFont(-1, 12, 400, 0, "Arial")
    GUICtrlSetColor(-1, 0x000080)
    $TabSheet2 = GUICtrlCreateTabItem("Gesamten Bezugspreis berechnen")
    $Label7 = GUICtrlCreateLabel("Um den gesamt Preis zu berechnen muss man einfach die Menge mal den Bezugspreis rechnen.", 16, 48, 637, 21, $SS_CENTER)
    GUICtrlSetFont(-1, 11, 400, 0, "Arial")
    GUICtrlSetColor(-1, 0x000080)
    $Label8 = GUICtrlCreateLabel("In diesem Fall:", 8, 72, 650, 21, $SS_CENTER)
    GUICtrlSetFont(-1, 11, 400, 4, "Arial")
    GUICtrlSetColor(-1, 0x000080)
    $Label9 = GUICtrlCreateLabel("3*650€=1950€", 16, 136, 637, 36, $SS_CENTER)
    GUICtrlSetFont(-1, 20, 800, 4, "Arial")
    GUICtrlSetColor(-1, 0xFF0000)
    $TabSheet3 = GUICtrlCreateTabItem("Selbstkosten berechnen")
    $Label10 = GUICtrlCreateLabel("Um die Selbstkosten zu berechnen muss man folgendes machen: ", 8, 56, 645, 21, $SS_CENTER)
    GUICtrlSetFont(-1, 11, 400, 0, "Arial")
    GUICtrlSetColor(-1, 0x000080)
    $Label11 = GUICtrlCreateLabel("1950€*18%/100+1950€=2301€", 8, 136, 651, 36, $SS_CENTER)
    GUICtrlSetFont(-1, 20, 800, 0, "Arial")
    GUICtrlSetColor(-1, 0xFF0000)
    $TabSheet4 = GUICtrlCreateTabItem("Gewinn berchnen")
    $Label12 = GUICtrlCreateLabel("Da mit man auch selber Gewinn macht an den Laptops muss man seinen eigenden Gewinn", 16, 48, 639, 21, $SS_CENTER)
    GUICtrlSetFont(-1, 11, 400, 0, "Arial")
    GUICtrlSetColor(-1, 0x000080)
    $Label13 = GUICtrlCreateLabel("drauf packen in diesem Fall 20%", 16, 72, 639, 21, $SS_CENTER)
    GUICtrlSetFont(-1, 11, 400, 0, "Arial")
    GUICtrlSetColor(-1, 0x000080)
    $Label14 = GUICtrlCreateLabel("2301€*20%/100+2301€=2761,20€", 0, 144, 657, 36, $SS_CENTER)
    GUICtrlSetFont(-1, 20, 800, 0, "Arial")
    GUICtrlSetColor(-1, 0xFF0000)
    $TabSheet5 = GUICtrlCreateTabItem("Gesamt Preis berechnen")
    $Label15 = GUICtrlCreateLabel("Jetzt geht es zum Schluss nun noch den gesamten Verkaufspreis berechnen. ", 16, 48, 640, 21, $SS_CENTER)
    GUICtrlSetFont(-1, 11, 400, 0, "Arial")
    GUICtrlSetColor(-1, 0x000080)
    $Label16 = GUICtrlCreateLabel("Da die Mehrwertsterut 19% beträgt rechnen wir auch mit 19%.", 0, 80, 650, 21, $SS_CENTER)
    GUICtrlSetFont(-1, 11, 400, 0, "Arial")
    GUICtrlSetColor(-1, 0x000080)
    $Label17 = GUICtrlCreateLabel("2761,20€*19%/100+2761,20€", 8, 152, 644, 36, $SS_CENTER)
    GUICtrlSetFont(-1, 20, 800, 0, "Arial")
    GUICtrlSetColor(-1, 0xFF0000)
    GUICtrlCreateTabItem("")
    $Button13 = GUICtrlCreateButton("&OK", 302, 272, 75, 25, 0)
    $Label1 = GUICtrlCreateLabel("Created by havOx.", 8, 280, 92, 17)
    GUICtrlSetColor(-1, 0xFF0000)
    GUISetState(@SW_HIDE)
    #EndRegion ### END Koda GUI section ###

    [/autoit][autoit][/autoit][autoit]

    While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
    Exit

    [/autoit][autoit][/autoit][autoit]

    EndSwitch

    [/autoit][autoit][/autoit][autoit][/autoit][autoit]

    #region Button#
    If $nMsg = $Button1 Then
    Exit
    EndIf

    [/autoit][autoit][/autoit][autoit]

    If $nMsg = $Button2 Then
    GUISetState(@SW_SHOW,$Form2)
    GUISetState(@SW_SHOW,$Form1)
    EndIf

    [/autoit][autoit][/autoit][autoit][/autoit][autoit][/autoit][autoit]

    If $nMsg = $Button13 Then
    GUIDelete($Form2)
    EndIf

    [/autoit][autoit][/autoit][autoit]

    #endregion Button#

    [/autoit][autoit][/autoit][autoit]

    #region Rechnung#

    [/autoit][autoit][/autoit][autoit]

    $Read1 = GUICtrlRead($Input1)
    $Read2 = GUICtrlRead($Input2)
    $Rechnung = Execute(($Read1*$Read2))
    GUICtrlSetData($Input3, $Rechnung)

    [/autoit][autoit][/autoit][autoit]

    $Read3 = GUICtrlRead($Input3)
    $Read4 = GUICtrlRead($Input4)
    $Rechnung = Execute(($Read3*$Read4/100+$Read3))
    GUICtrlSetData($Input5, $Rechnung)

    [/autoit][autoit][/autoit][autoit]

    $Read5 = GUICtrlRead($Input5)
    $Read6 = GUICtrlRead($Input6)
    $Rechnung = Execute(($Read5*$Read6/100+$Read5))
    GUICtrlSetData($Input7, $Rechnung)

    [/autoit][autoit][/autoit][autoit]

    $Read7 = GUICtrlRead($Input7)
    $Rechnung = Execute(($Read7*19/100+$Read7))
    GUICtrlSetData($Input9, $Rechnung)
    #endregion Rechnung#

    [/autoit][autoit][/autoit][autoit]

    WEnd

    [/autoit]

    Hallo havOx.

    das schaut doch schon gut aus, ist aber für einnen fremden schwer nachzuvollziehen da du leider deine Variablen (Koda bedingt?) durchnummerierst. Wenn fremde dein Script auf die Schnelle lesen können sollen verwende bitte "sprechende" Variablennamen z.B. anstelle von $Read7 = $rGes_VK (in dieser Art halt) damit man das Schema erkennt und nicht wegen jeder Variablen sich wieder durchs Skript lesen muss. Glaub mir du freust dich schon in 3 Wochen wenn du es dadrch sofort wieder lesen kannst. Ansonsonsten wie gesagt

    Zitat von autoBert

    und jetzt zu den Kommastellen. Zum runden beim Rechnen kannst du

    [autoit]

    round

    [/autoit]

    nehmen. Zur Ausgabe eignet sich am besten

    [autoit]

    StringFormat

    [/autoit]


    Hier     kannst du (im kleinen Rahmen) sehen was ich meine, einfach einmal anschauen, analysieren => umsetzen auf dein Skript, binüberzeugt dass du das schaffst

    mfg autobert

    Einmal editiert, zuletzt von autoBert (23. März 2011 um 18:12)

    Zitat von havOx.

    Danke schön :>>


    schön, dann ist dein Problem ja gelöst, schön wäre es allerdings auch wenn du den Thread auf gelöst setzt. Einfach 1. Beitrag bearbeiten, Präfix (nähe Überschrift) ändern und speichern (absenden)

    mfg autoBert