Hallo!
Viele schüler kennen es bestimmt: Als "ordendlicher" Schüler wird man des Öfteren nachmittags über diverse Messenger nach den Hausaufgaben gefragt (DAMIT SIND NICHT DIE LÖSUNGEN GEMEINT. Nur die Aufgaben (z.B. S.70 Nr.4)). Da hatte ich die Idee ein Programm zu schreiben, dass die Hausaufgaben von einem FTP Server läd und dann anzeigt.
Das ist "bis jetzt" dabei herausgekommen:
Spoiler anzeigen
;~ Includes ~~~~~~~~~~~~~~~~~~~~
[/autoit] [autoit][/autoit] [autoit]#include #include #include #include
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;~ Variablen ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
$Title = "Hausaufgaben-Info"
$Version = "0.1"
$URL = "http://hausaufgabeninfo.ha.funpic.de/"
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;~ GUI ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
#Region ### START Koda GUI section ### Form=C:\Users\Matze\Desktop\Hausaufgaben-Info\Form1.kxf
$Form1_1 = GUICreate($Title & " (Version " & $Version & ")", 645, 365, 192, 155)
$Edit1 = GUICtrlCreateEdit("", 0, 40, 641, 321,$ES_READONLY)
$Date1 = GUICtrlCreateDate("",8, 8, 186, 21,$DTS_SHORTDATEFORMAT)
$Label1 = GUICtrlCreateLabel("", 216, 8, 420, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;~ Start
_LoadHausaufgaben()
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Date1
_LoadHausaufgaben()
EndSwitch
WEnd
Func _LoadHausaufgaben()
GUICtrlSetData($Edit1,"")
$Date = GUICtrlRead($Date1)
InetGet($URL & $Date & ".info",@ScriptDir & "\" & $Date & ".txt",1)
If @error Then
GUICtrlSetData($Edit1,"")
GUICtrlSetColor($Label1, 0xFF0000)
GUICtrlSetData($Label1,"Hausaufgaben vom " & $Date & " sind nicht verfügbar!")
Else
GUICtrlSetData($Edit1,FileRead(@ScriptDir & "\" & $Date & ".txt"))
GUICtrlSetColor($Label1, 0x008000)
GUICtrlSetData($Label1,"Hausaufgaben vom " & $Date & " erfolgreich geladen!")
EndIf
FileDelete(@ScriptDir & "\" & $Date & ".txt")
EndFunc
ToDo Liste:
Spoiler anzeigen
- Auswahl der Klasse/Schule
- Update Funktion
wer noch Vorschläge hat, bitte Posten!
Wer Lust hat mitzumachen kann sich einfach hier melden.(Ich kann gerne jemanden gebrauchen )
Feedback ist erwünscht