Datums Anzeige

[amnesi]

Ich habe hier eine Kleine Datumsanzeige für XP user gebastelt ;D

Hier der Source....

PHP Code:

hotkeyset("^!<","_Exit")
#NoTrayIcon
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

msgbox(0,"Hotkey","Mit STRG Alt und < beendet ihr das Script")

#Region ### START Koda GUI section ### Form=
$Form2 = GUICreate("Kalender", 124, 117, 1218, 20,$WS_POPUP)
$Label1 = GUICtrlCreateLabel(@WDAY, 24, 8, 80, 30)
Wochentag()
guictrlsetdata($Label1,$Wochentag)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label2 = GUICtrlCreateLabel(@mday, 40, 40, 38, 41)
GUICtrlSetFont(-1, 71, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
$Label3 = GUICtrlCreateLabel(@Mon, 8, 88, 93, 20)
Monat()
guictrlsetdata($Label3,$Monatstag&" "&@YEAR)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFFFFFF)
guisetbkcolor(0xEA5200)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            exit
        case $GUI_EVENT_MINIMIZE
                GUISetState(@SW_HIDE)
                TraySetState(1)

    EndSwitch
WEnd

Func Wochentag()
$WDAY = guictrlread($Label1)
if $WDAY = "1" Then global $Wochentag = "Sonntag"
if $WDAY = "2" Then global $Wochentag = "Montag"
if $WDAY = "3" Then global $Wochentag = "Dienstag"
if $WDAY = "4" Then global $Wochentag = " Mittwoch"
if $WDAY = "5" Then global $Wochentag = "Donnerstag"
if $WDAY = "6" Then global $Wochentag = "Freitag"
if $WDAY = "7" Then global $Wochentag = "Samstag"
endfunc
                
Func Monat()
$MON = guictrlread($Label3)
if $MON = "01" Then global $Monatstag = "Januar"
if $MON = "02" Then global $Monatstag = "Februar"
if $MON = "03" Then global $Monatstag = "März"
if $MON = "04" Then global $Monatstag = "April"
if $MON = "05" Then global $Monatstag = "Mai"
if $MON = "06" Then global $Monatstag = "Juni"
if $MON = "07" Then global $Monatstag = "Juli"
if $MON = "08" Then global $Monatstag = "August"
if $MON = "09" Then global $Monatstag = "September"
if $MON = "10" Then global $Monatstag = "Oktober"
if $MON = "11" Then global $Monatstag = "November"
if $MON = "12" Then global $Monatstag = "Dezember"
endfunc

Func _Exit()
    Exit
endfunc 


[lolkop]

wenn du keine titelleiste hast, brauchst du nicht prüfen ob minimize oda exit gedrückt wurden...

ausserdem solltest du dir angewöhnen mit arrays zu arbeiten.

Dim $mon[12] = ['Januar','Februar','März','April','Mai','Juni','Juli','August','September','Oktober','November','Dezember']
ConsoleWrite($mon[@mon-1]&@crlf)

ist doch deutlich besser als das was du da gebaut hast =)

[amnesi]

ja xD
ich muss mir wirklich ma angewöhnen mit arrays zu arbeiten
danke^^

[PenGuin :O]

Arrays sind das wichtige. (gleich nach anständiger Quellcodeformatierung :P)
1. bessere Performance
2. weniger Programmcode
3. alles leichter

[Memphiisto]

Hmm eigentlich ganz ein nice programm auch wenn ich es nicht brauche ^^
Krigste trotzdem ein thx für die arbeit
Achja kann es daran liegen dass ich Windows 7 hab das das fenster so aussieht oder is das normal ?:



lg Magic

[amnesi]

Nö is gewollt guck dir doch den source an......