Kleinen Rechner

    Ich habe versucht einen kleinen Rechner zu erstellen.
    Siehe Spoiler für Code.

    [spoiler]

    [autoit]

    MsgBox(64, "Rechner", "Klicke F1 für eine Addition" & @CRLF & "Klicke F2 für eine Subtraktion" & @CRLF & "Klicke F3 für eine Multiplikation" & @CRLF & "Klicke F4 für eine Division" & @CRLF & "Klicke F5 um den Rechner zu beenden.")

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

    HotKeySet("{F1}", "Addition")
    HotKeySet("{F2}", "Subtraktion")
    HotKeySet("{F3}", "Multiplikation")
    HotKeySet("{F4}", "Division")
    HotKeySet("{F5}", "Ende")

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

    Func Ende ()
    While 1
    Exit
    WEnd
    EndFunc

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

    Func Addition ()
    $AdditionsZahl1 = InputBox("Rechner", "Gebe die erste zu rechnende Zahl ein.")
    $AdditionsZahl2 = InputBox("Rechner", "Gebe die zweite zu rechnende Zahl ein.")
    $AdditionsErgebnis = $AdditionsZahl1 + $AdditionsZahl2
    MsgBox(0,"Rechner", $AdditionsErgebnis)
    EndFunc

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

    While 1
    WEnd

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

    Func Subtraktion ()
    $SubtraktionsZahl1 = InputBox("Rechner", "Gebe die erste zu rechnende Zahl ein.")
    $SubtraktionsZahl2 = InputBox("Rechner", "Gebe die zweite zu rechnende Zahl ein.")
    $SubtraktionsErgebnis = $SubtraktionsZahl1 - $SubtraktionsZahl2
    MsgBox(0,"Rechner", $SubtraktionsErgebnis)
    EndFunc

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

    While 1
    WEnd

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

    Func Multiplikation ()
    $MultiplikationsZahl1 = InputBox("Rechner", "Gebe die erste zu rechnende Zahl ein.")
    $MultiplikationsZahl2 = InputBox("Rechner", "Gebe die zweite zu rechnende Zahl ein.")
    $MultiplikationsErgebnis = $MutliplikationsZahl1 * $MultiplikationsZahl2
    MsgBox(0,"Rechner", $MultiplikationsErgebnis)
    EndFunc

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

    While 1
    WEnd

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

    Func Division ()
    $DivisionsZahl1 = InputBox("Rechner", "Gebe die erste zu rechnende Zahl ein.")
    $DivisionsZahl2 = InputBox("Rechner", "Gebe die zweite zu rechnende Zahl ein.")
    $DivisionsErgebnis = $DivisionsZahl1 : $DivisionsZahl2
    MsgBox(0,"Rechner", $DivisionsErgebnis)
    EndFunc

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

    While 1
    WEnd

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

    Addition und Subtraktion funktionieren einwandfrei, doch kann ich auf diese Art auch eine Multiplikation und/oder eine Division machen. Wenn nicht, wie würde es anders gehen ?

    Hi,

    versuchs mal so:

    Spoiler anzeigen
    [autoit]

    dim $AdditionsZahl1, $AdditionsZahl2, $DivisionsZahl1, $DivisionsZahl2, $MultiplikationsZahl1, $MutliplikationsZahl1, $MultiplikationsZahl2, $SubtraktionsZahl1, $SubtraktionsZahl2

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

    HotKeySet("{F1}", "Add")
    HotKeySet("{F2}", "Sub")
    HotKeySet("{F3}", "Multi")
    HotKeySet("{F4}", "Divi")
    HotKeySet("{F5}", "Ende")

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

    MsgBox(64, "Rechner", "Klicke F1 für eine Addition" & @CRLF & "Klicke F2 für eine Subtraktion" & @CRLF & "Klicke F3 für eine Multiplikation" & @CRLF & "Klicke F4 für eine Division" & @CRLF & "Klicke F5 um den Rechner zu beenden.")

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

    While 1
    sleep(10)
    WEnd

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

    Func Ende ()
    Exit
    EndFunc

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

    Func Add()
    $AdditionsZahl1 = Number(InputBox("Rechner", "Gebe die erste zu rechnende Zahl ein."))
    $AdditionsZahl2 = Number(InputBox("Rechner", "Gebe die zweite zu rechnende Zahl ein."))
    MsgBox(0,"Rechner", $AdditionsZahl1 + $AdditionsZahl2)
    EndFunc

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

    Func Sub()
    $SubtraktionsZahl1 = Number(InputBox("Rechner", "Gebe die erste zu rechnende Zahl ein."))
    $SubtraktionsZahl2 = Number(InputBox("Rechner", "Gebe die zweite zu rechnende Zahl ein."))
    MsgBox(0,"Rechner", $SubtraktionsZahl1 - $SubtraktionsZahl2)
    EndFunc

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

    Func Multi()
    $MultiplikationsZahl1 = Number(InputBox("Rechner", "Gebe die erste zu rechnende Zahl ein."))
    $MultiplikationsZahl2 = Number(InputBox("Rechner", "Gebe die zweite zu rechnende Zahl ein."))
    MsgBox(0,"Rechner", $MultiplikationsZahl1 * $MultiplikationsZahl2)
    EndFunc

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

    Func Divi()
    $DivisionsZahl1 = Number(InputBox("Rechner", "Gebe die erste zu rechnende Zahl ein."))
    $DivisionsZahl2 = Number(InputBox("Rechner", "Gebe die zweite zu rechnende Zahl ein."))
    MsgBox(0,"Rechner", $DivisionsZahl1 / $DivisionsZahl2)
    EndFunc

    [/autoit]

    Diese ganzen While-Schleifen brauchste nicht, da passiert dann nämlich gar nix mehr :)

    P.S.: Könnte man jetzt noch mit einem GUI aufwerten ;)

    Gruß
    x0r

    Simon nörgelt, Simon nervt - aber Simon verbessert die Welt. Glaubt er.