#include <GUIConstants.au3>
Global $mainwindow, $eingeben, $anzeigen, $bearbeiten, $starten, $planieingebwindow, $quelltext, $ok, $queltexttext



$mainwindow = GUICreate("Bauen in EC",300,200)

Opt("GUIOnEventMode", 1)
$eingeben=GUICtrlCreateButton("Planeten eingeben",9,10,115,29,-1,-1)
$anzeigen=GUICtrlCreateButton("Planeten anzeigen",9,40,115,29,-1,-1)
$bearbeiten=GUICtrlCreateButton("Schleife bearbeiten",9,70,115,29,-1,-1)
$starten=GUICtrlCreateButton("Schleife starten",9,100,115,29,-1,-1)
GUISetState(@sw_show)
GUICtrlSetOnEvent($eingeben, "Planieingeben")
GUICtrlSetOnEvent($anzeigen, "Planianzeigen")
GUICtrlSetOnEvent($bearbeiten, "Schleifebearbeiten")
GUICtrlSetOnEvent($starten, "starten")
GUICtrlSetOnEvent($GUI_EVENT_CLOSE, "Beenden")

While 1
	sleep (1)
WEnd
Func Planieingeben()
$planieingebwindow = GUICreate("Planeten eingeben",300,200)
Opt("GUIOnEventMode", 1)
GUICtrlCreateLabel("Kopieren sie den html Quelltext von der EC Konstruktionsseite in das Feld.",20,10,174,44,-1,-1)
$quelltext=GUICtrlCreateInput("hier hinein",25,71,110,30,-1,-1)
$ok=GUICtrlCreateButton("Wenn fertig hier draufdrücken",42,129,162,31,-1,-1)
GUICtrlSetOnEvent($ok, "quelbearbeit")
GUICtrlSetOnEvent($GUI_EVENT_CLOSE, "Beenden")
GUISetState(@SW_SHOW, $planieingebwindow)
EndFunc
Func quelbearbeit()
	$queltexttext = GUICtrlRead ( $quelltext )
	MsgBox ( 0, "quell", "der quell ist:" & $queltext, )
	
EndFunc()
Func Planianzeigen()
	GUICtrlSetData($ergebnis, $zahl1 * $zahl2)
EndFunc
Func Schleifebearbeiten()
	GUICtrlSetData($ergebnis, $zahl1 / $zahl2)
EndFunc
Func starten()
	GUICtrlSetData($ergebnis, $zahl1 / $zahl2)
EndFunc
Func Beenden()
	Exit
EndFunc









$planieingebwindow = GUICreate("Planeten eingeben",300,200)
$anleitungeingeben=GUICtrlCreateLabel("Kopieren sie den html Quelltext von der EC Konstruktionsseite in das Feld.",20,10,174,44,-1,-1)
$quelltext=GUICtrlCreateInput("hier hinein",25,71,110,30,-1,-1)
$ok=GUICtrlCreateButton("Wenn fertig hier draufdrücken",42,129,162,31,-1,-1)