Ich habe grade mal einen kleinen Taschenrechner geskriptet, um mich mit der OnEvent-Metode vertraut zu machen, da diese mir besser gefällt als Message-Loop.
Wer noch ne tolle Startgrafik haben möchte, kann das Ganze als WinRar runterladen.
Da ich dies als Übung gemacht habe, würde ich mich über Vorschläge freuen, was man noch so als Übung skripten könnte.
Spoiler anzeigen
#cs ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]AutoIt Version: 3.3.0.0
Author: Frithjof
Script Function:
Vollwertiger Taschenrechner.
#ce ----------------------------------------------------------------------------
[/autoit] [autoit][/autoit] [autoit]; Script Start - Add your code below here
[/autoit] [autoit][/autoit] [autoit];Includes <GUIConstants.au3>
[/autoit] [autoit][/autoit] [autoit]#include
[/autoit] [autoit][/autoit] [autoit];Globale Variablen: Bilder, Werte der Editfelder
[/autoit] [autoit][/autoit] [autoit]Global $startbild = @ScriptDir & "\mathe.jpg" , $taschenrechnerbild = @ScriptDir & "\taschenrechner_001.png"
[/autoit] [autoit][/autoit] [autoit];...............................................
;Startbild:
SplashImageOn("Taschenrechner", $startbild)
Sleep (1400)
SplashOff()
;...............................................
;Benutzeroberfläche mit Variablenzuweisungen für die GUI-Id's (Nicht die Werte der Gui's)
[/autoit] [autoit][/autoit] [autoit]#Region ### START Koda GUI section ### Form=C:\Dokumente und Einstellungen\Frithjof\Desktop\Tacehnrechner\Design\Taschenrechner.kxf
$Form1 = GUICreate("Form1", 461, 506, 188, 125)
$Label1 = GUICtrlCreateLabel("Zahl 1", 40, 40, 34, 17)
$Label2 = GUICtrlCreateLabel("Zahl 2", 40, 80, 34, 17)
$Input1 = GUICtrlCreateInput("Eingabe", 96, 40, 113, 21)
$Input2 = GUICtrlCreateInput("Eingabe", 96, 80, 113, 21)
$Button1 = GUICtrlCreateButton("Addieren", 96, 160, 113, 113, 0)
$Button2 = GUICtrlCreateButton("Subtrahieren", 96, 296, 113, 113, 0)
$Button3 = GUICtrlCreateButton("Dividieren", 256, 160, 113, 113, 0)
$Button4 = GUICtrlCreateButton("Multiplizieren", 256, 296, 113, 113, 0)
$Label3 = GUICtrlCreateLabel("Ergebnis=", 240, 40, 51, 17)
$Label4 = GUICtrlCreateLabel("-Keins-", 296, 40, 36, 17)
$Button5 = GUICtrlCreateButton("Beenden", 96, 424, 273, 41, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;Starte OnEventMode
[/autoit] [autoit][/autoit] [autoit]Opt("GUIOnEventMode", 1)
GUICtrlSetOnEvent($Button1, "Addieren")
GUICtrlSetOnEvent($Button2, "Subtrahieren")
GUICtrlSetOnEvent($Button3, "Dividieren")
GUICtrlSetOnEvent($Button4, "Multiplizieren")
GUICtrlSetOnEvent($Button5, "Beenden")
GUICtrlSetOnEvent($GUI_EVENT_CLOSE, "Beenden")
Global $zahl1 ;Global zugewiesen, damit sich die Werte beim Funktionsaufreuf nicht mehr ändern können.
Global $zahl2
Global $ergebnis
While 1
$Zahl1 = GUICtrlRead ($input1) ;Fragt die eingegebenen Zahlen ab, mit 1 Millisekunde Pause, um den PC nicht zu überlasten
$Zahl2 = GUICtrlRead ($input2)
sleep (1)
WEnd
Func Addieren()
GUICtrlSetData($Label4, $Zahl1 + $Zahl2) ;Die oben aufgerufenen Funktionen
EndFunc
Func Subtrahieren()
GUICtrlSetData($Label4, $Zahl1 - $Zahl2)
EndFunc
Func Dividieren()
GUICtrlSetData($Label4, $Zahl1 / $Zahl2)
EndFunc
Func Multiplizieren()
GUICtrlSetData($Label4, $Zahl1 * $Zahl2)
EndFunc
Func Beenden()
Exit
EndFunc
;Ende
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit]