Hai Ich habe ein kleines programm geschrieben komme aber nicht mehr weiter und muss in der schule immoment sehr viel machen bzw ich hab keine zeit..
Spoiler anzeigen
[autoitinclude <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Date.au3>
Global $label, $label1, $label2, $label3, $label4, $label5, $label6, $label7, $label8, $label9, $label10, $label11, $label13, $label12, $label14, $label15, $label16, $label17, $label18, $label19, $label20, $label21, $label22, $label23, $label24, $label25, $label26, $label27, $label28, $label29, $label30
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Checkliste", 185, 255, 231, 143)
$StatusBar1 = _GUICtrlStatusBar_Create($Form1)
Dim $StatusBar1_PartsWidth[1] = [-1]
_GUICtrlStatusBar_SetParts($StatusBar1, $StatusBar1_PartsWidth)
_GUICtrlStatusBar_SetText($StatusBar1, "Nächste Aufgabe um:", 0)
_GUICtrlStatusBar_SetMinHeight($StatusBar1, 27)
$Button13 = GUICtrlCreateButton("Laufen", 8, 8, 75, 25, $WS_GROUP)
$Button24 = GUICtrlCreateButton("Liegestütze", 104, 8, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
If _NowTime() > "05:45:00" Then
If _NowTime() > "14:15:00" Then
If _NowTime() > "19:00:00" Then
_GUICtrlStatusBar_SetText($StatusBar1, "Nächste Aufagbe um: 05:45:00")
Else
_GUICtrlStatusBar_SetText($StatusBar1, "Nächste Aufagbe um: 19:00:00")
EndIf
Else
_GUICtrlStatusBar_SetText($StatusBar1, "Nächste Aufagbe um: 14:45:00")
EndIf
Else
MsgBox(0, "", "Nächste Aufgabe um 05:45:00")
EndIf
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button24
_Liegestutze()
Case $Button13
_Laufen()
EndSwitch
WEnd
Func _Liegestutze()
GUICtrlDelete($label23)
GUICtrlDelete($label24)
GUICtrlDelete($label25)
GUICtrlDelete($label26)
GUICtrlDelete($label27)
GUICtrlDelete($label28)
GUICtrlDelete($label29)
GUICtrlDelete($label30)
$ilsErgebnisse1 = IniRead("Data.txt", "ilsErgebnisse", "1", "-")
$ilsErgebnisse2 = IniRead("Data.txt", "ilsErgebnisse", "2", "-")
$ilsErgebnisse3 = IniRead("Data.txt", "ilsErgebnisse", "3", "-")
$ilsErgebnisse4 = IniRead("Data.txt", "ilsErgebnisse", "4", "-")
$ilsErgebnisse5 = IniRead("Data.txt", "ilsErgebnisse", "5", "-")
$ilsErgebnisse6 = IniRead("Data.txt", "ilsErgebnisse", "6", "-")
$ilsErgebnisse7 = IniRead("Data.txt", "ilsErgebnisse", "7", "-")
$ilsErgebnisse8 = IniRead("Data.txt", "ilsErgebnisse", "8", "-")
$ilsErgebnisse9 = IniRead("Data.txt", "ilsErgebnisse", "9", "-")
$ilsErgebnisse10 = IniRead("Data.txt", "ilsErgebnisse", "10", "-")
$ilsErgebnisse11 = IniRead("Data.txt", "ilsErgebnisse", "11", "-")
$ilsCheck1 = IniRead("Data.txt", "ilsCheck", "1", "1")
$ilsCheck2 = IniRead("Data.txt", "ilsCheck", "2", "1")
$ilsCheck3 = IniRead("Data.txt", "ilsCheck", "3", "1")
$ilsCheck4 = IniRead("Data.txt", "ilsCheck", "4", "1")
$ilsCheck5 = IniRead("Data.txt", "ilsCheck", "5", "1")
$ilsCheck6 = IniRead("Data.txt", "ilsCheck", "6", "1")
$ilsCheck7 = IniRead("Data.txt", "ilsCheck", "7", "1")
$ilsCheck8 = IniRead("Data.txt", "ilsCheck", "8", "1")
$ilsCheck9 = IniRead("Data.txt", "ilsCheck", "9", "1")
$ilsCheck10 = IniRead("Data.txt", "ilsCheck", "10", "1")
$ilsCheck11 = IniRead("Data.txt", "ilsCheck", "11", "1")
$Label1 = GUICtrlCreateLabel("10", 8, 40, 64, 17)
$Label2 = GUICtrlCreateLabel("15", 8, 56, 64, 17)
$Label3 = GUICtrlCreateLabel("20", 8, 72, 64, 17)
$Label4 = GUICtrlCreateLabel("25", 8, 88, 64, 17)
$Label5 = GUICtrlCreateLabel("30", 8, 104, 64, 17)
$Label6 = GUICtrlCreateLabel("35", 8, 120, 64, 17)
$Label7 = GUICtrlCreateLabel("40", 8, 136, 64, 17)
$Label8 = GUICtrlCreateLabel("45", 8, 152, 64, 17)
$Label9 = GUICtrlCreateLabel("50", 8, 168, 64, 17)
$Label10 = GUICtrlCreateLabel("55", 8, 184, 64, 17)
$Label11 = GUICtrlCreateLabel("60", 8, 200, 64, 17)
$Label12 = GUICtrlCreateLabel($ilsErgebnisse1, 112, 40, 63, 17)
$Label13 = GUICtrlCreateLabel($ilsErgebnisse2, 112, 56, 63, 17)
$Label14 = GUICtrlCreateLabel($ilsErgebnisse3, 112, 72, 63, 17)
$Label15 = GUICtrlCreateLabel($ilsErgebnisse4, 112, 88, 63, 17)
$Label16 = GUICtrlCreateLabel($ilsErgebnisse5, 112, 104, 63, 17)
$Label17 = GUICtrlCreateLabel($ilsErgebnisse6, 112, 120, 63, 17)
$Label18 = GUICtrlCreateLabel($ilsErgebnisse7, 112, 136, 63, 17)
$Label19 = GUICtrlCreateLabel($ilsErgebnisse8, 112, 152, 63, 17)
$Label20 = GUICtrlCreateLabel($ilsErgebnisse9, 112, 168, 63, 17)
$Label21 = GUICtrlCreateLabel($ilsErgebnisse10, 112, 184, 63, 17)
$Label22 = GUICtrlCreateLabel($ilsErgebnisse11, 112, 200, 63, 17)
If $ilsCheck1 = 1 Then
$Icon1 = GUICtrlCreateIcon("", -1, 88, 40, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
Else
$Icon1 = GUICtrlCreateIcon("", -1, 88, 40, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
EndIf
If $ilsCheck2 = 1 Then
$Icon1 = GUICtrlCreateIcon("", -1, 88, 56, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
Else
$Icon1 = GUICtrlCreateIcon("", -1, 88, 56, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
EndIf
If $ilsCheck3 = 1 Then
$Icon1 = GUICtrlCreateIcon("", -1, 88, 72, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
Else
$Icon1 = GUICtrlCreateIcon("", -1, 88, 72, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
EndIf
If $ilsCheck4 = 1 Then
$Icon1 = GUICtrlCreateIcon("", -1, 88, 88, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
Else
$Icon1 = GUICtrlCreateIcon("", -1, 88, 88, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
EndIf
If $ilsCheck5 = 1 Then
$Icon1 = GUICtrlCreateIcon("", -1, 88, 104, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
Else
$Icon1 = GUICtrlCreateIcon("", -1, 88, 104, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
EndIf
If $ilsCheck6 = 1 Then
$Icon1 = GUICtrlCreateIcon("", -1, 88, 120, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
Else
$Icon1 = GUICtrlCreateIcon("", -1, 88, 120, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
EndIf
If $ilsCheck7 = 1 Then
$Icon1 = GUICtrlCreateIcon("", -1, 88, 136, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
Else
$Icon1 = GUICtrlCreateIcon("", -1, 88, 136, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
EndIf
If $ilsCheck8 = 1 Then
$Icon1 = GUICtrlCreateIcon("", -1, 88, 152, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
Else
$Icon1 = GUICtrlCreateIcon("", -1, 88, 152, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
EndIf
If $ilsCheck9 = 1 Then
$Icon1 = GUICtrlCreateIcon("", -1, 88, 168, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
Else
$Icon1 = GUICtrlCreateIcon("", -1, 88, 168, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
EndIf
If $ilsCheck10 = 1 Then
$Icon1 = GUICtrlCreateIcon("", -1, 88, 184, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
Else
$Icon1 = GUICtrlCreateIcon("", -1, 88, 184, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
EndIf
If $ilsCheck11= 1 Then
$Icon1 = GUICtrlCreateIcon("", -1, 88, 200, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
Else
$Icon1 = GUICtrlCreateIcon("", -1, 88, 200, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
EndIf
EndFunc
Func _Laufen()
GUICtrlDelete($label1)
GUICtrlDelete($label2)
GUICtrlDelete($label3)
GUICtrlDelete($label4)
GUICtrlDelete($label5)
GUICtrlDelete($label6)
GUICtrlDelete($label7)
GUICtrlDelete($label8)
GUICtrlDelete($label9)
GUICtrlDelete($label10)
GUICtrlDelete($label11)
GUICtrlDelete($label12)
GUICtrlDelete($label13)
GUICtrlDelete($label14)
GUICtrlDelete($label15)
GUICtrlDelete($label16)
GUICtrlDelete($label17)
GUICtrlDelete($label18)
GUICtrlDelete($label19)
GUICtrlDelete($label20)
GUICtrlDelete($label21)
GUICtrlDelete($label22)
$ilaErgebnisse1 = IniRead("Data.txt", "ilaErgebnisse", "1", "-")
$ilaErgebnisse2 = IniRead("Data.txt", "ilaErgebnisse", "2", "-")
$ilaErgebnisse3 = IniRead("Data.txt", "ilaErgebnisse", "3", "-")
$ilaErgebnisse4 = IniRead("Data.txt", "ilaErgebnisse", "4", "-")
$ilaCheck1 = IniRead("Data.txt", "ilaCheck", "1", "1")
$ilaCheck2 = IniRead("Data.txt", "ilaCheck", "2", "1")
$ilaCheck3 = IniRead("Data.txt", "ilaCheck", "3", "1")
$ilaCheck4 = IniRead("Data.txt", "ilaCheck", "4", "1")
$Label23 = GUICtrlCreateLabel("1x Waldrand", 8, 40, 64, 17)
$Label24 = GUICtrlCreateLabel("2x Waldrand", 8, 56, 64, 17)
$Label25 = GUICtrlCreateLabel("3x Waldrand", 8, 72, 64, 17)
$Label26 = GUICtrlCreateLabel("4x Waldrand", 8, 88, 64, 17)
$Label27 = GUICtrlCreateLabel($ilaErgebnisse1, 112, 40, 63, 17)
$Label28 = GUICtrlCreateLabel($ilaErgebnisse2, 112, 56, 63, 17)
$Label29 = GUICtrlCreateLabel($ilaErgebnisse3, 112, 72, 63, 17)
$Label30 = GUICtrlCreateLabel($ilaErgebnisse4, 112, 88, 63, 17)
If $ilaCheck1 = 1 Then
$Icon1 = GUICtrlCreateIcon("", -1, 88, 40, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
Else
$Icon1 = GUICtrlCreateIcon("", -1, 88, 40, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
EndIf
If $ilaCheck2 = 1 Then
$Icon1 = GUICtrlCreateIcon("", -1, 88, 56, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
Else
$Icon1 = GUICtrlCreateIcon("", -1, 88, 56, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
EndIf
If $ilaCheck3 = 1 Then
$Icon1 = GUICtrlCreateIcon("", -1, 88, 72, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
Else
$Icon1 = GUICtrlCreateIcon("", -1, 88, 72, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
EndIf
If $ilaCheck4 = 1 Then
$Icon1 = GUICtrlCreateIcon("", -1, 88, 88, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
Else
$Icon1 = GUICtrlCreateIcon("", -1, 88, 88, 16, 16, BitOR($SS_NOTIFY,$WS_GROUP))
EndIf
EndFunc[/autoit]
vom sinn und aussehne sollte das Script gleich bleiben..
Veränderung von Vraiablen kürzen des Texstes und änderund der speicherung in der ini datei sind mir volkommen egal die können verändert werde...
Die Icons kann man ja leider nit anhängen deshalb hier die links:
http://www.iconarchive.com/show/must-have…elete-icon.html
http://www.iconarchive.com/show/must-have…Check-icon.html
Die datei Pfäder der icons müssen noch angeüpasst werden..