Just4Fun - Eine etwas andere Uhr

**BugFix**

Mir war grad mal so...

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)

[/autoit] [autoit][/autoit] [autoit]

Dim $hour = @HOUR, $min = @MIN, $sec = @SEC
$SteelBlue = 0x4682B4
$White = 0xFFFFFF
$Chartreuse = 0x7FFF00
$Lime = 0x00FF00
$LimeGreen = 0x32CD32
$YellowGreen = 0x9ACD32
$Gold = 0xFFD700
$Goldenrod = 0xDAA520
$Orange = 0xFFA500
$DarkOrange = 0xFF8C00
$Coral = 0xFF7F50
$Salmon = 0xFA8072
$Tomato = 0xFF6347
$Red = 0xFF0000
$Time = GUICreate("Time", 100, 285, -1, -1, BitOR($WS_SYSMENU,$WS_CAPTION))
GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
GUISetBkColor($SteelBlue)
$prHour = GUICtrlCreateProgress(15, 10, 20, 250, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
$prMin = GUICtrlCreateProgress(40, 10, 20, 250, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
$prSec = GUICtrlCreateProgress(65, 10, 20, 250, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
$lHour = GUICtrlCreateLabel("lHour", 15, 265, 20, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
GUICtrlCreateLabel(":", 36, 265, 4, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
$lMin = GUICtrlCreateLabel("lMin", 40, 265, 20, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
GUICtrlCreateLabel(":", 61, 265, 4, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
$lSec = GUICtrlCreateLabel("lSec", 65, 265, 20, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
GUISetState(@SW_SHOW)
GUICtrlSetData($prHour, @HOUR*100/24)
GUICtrlSetData($lHour, @HOUR)
GUICtrlSetData($prMin, @MIN*100/60)
GUICtrlSetData($lMin, @MIN)
GUICtrlSetData($prSec, @SEC*100/60)
GUICtrlSetData($lSec, @SEC)
_HourColor()
_MinColor()
_SecColor()
While 1
Sleep(100)
If @SEC <> $sec Then
$sec = @SEC
GUICtrlSetData($prSec, @SEC*100/60)
GUICtrlSetData($lSec, @SEC)
_SecColor()
EndIf
If @MIN <> $min Then
$min = @MIN
GUICtrlSetData($prMin, @MIN*100/60)
GUICtrlSetData($lMin, @MIN)
_MinColor()
EndIf
If @HOUR <> $hour Then
$hour = @HOUR
GUICtrlSetData($prHour, @HOUR*100/24)
GUICtrlSetData($lHour, @HOUR)
_HourColor()
EndIf
WEnd

[/autoit] [autoit][/autoit] [autoit]

Func Close()
Exit
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _SecColor()
Select
Case @SEC < 6
GUICtrlSetColor($prSec, $Chartreuse)
Case (@SEC > 5) And (@SEC < 11)
GUICtrlSetColor($prSec, $Lime)
Case (@SEC > 10) And (@SEC < 16)
GUICtrlSetColor($prSec, $LimeGreen)
Case (@SEC > 15) And (@SEC < 21)
GUICtrlSetColor($prSec, $YellowGreen)
Case (@SEC > 20) And (@SEC < 26)
GUICtrlSetColor($prSec, $Gold)
Case (@SEC > 25) And (@SEC < 31)
GUICtrlSetColor($prSec, $Orange)
Case (@SEC > 30) And (@SEC < 36)
GUICtrlSetColor($prSec, $Goldenrod)
Case (@SEC > 35) And (@SEC < 41)
GUICtrlSetColor($prSec, $DarkOrange)
Case (@SEC > 40) And (@SEC < 46)
GUICtrlSetColor($prSec, $Coral)
Case (@SEC > 45) And (@SEC < 51)
GUICtrlSetColor($prSec, $Salmon)
Case (@SEC > 50) And (@SEC < 56)
GUICtrlSetColor($prSec, $Tomato)
Case Else
GUICtrlSetColor($prSec, $Red)
EndSelect
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _MinColor()
Select
Case @MIN < 6
GUICtrlSetColor($prMin, $Chartreuse)
Case (@MIN > 5) And (@MIN < 11)
GUICtrlSetColor($prMin, $Lime)
Case (@MIN > 10) And (@MIN < 16)
GUICtrlSetColor($prMin, $LimeGreen)
Case (@MIN > 15) And (@MIN < 21)
GUICtrlSetColor($prMin, $YellowGreen)
Case (@MIN > 20) And (@MIN < 26)
GUICtrlSetColor($prMin, $Gold)
Case (@MIN > 25) And (@MIN < 31)
GUICtrlSetColor($prMin, $Orange)
Case (@MIN > 30) And (@MIN < 36)
GUICtrlSetColor($prMin, $Goldenrod)
Case (@MIN > 35) And (@MIN < 41)
GUICtrlSetColor($prMin, $DarkOrange)
Case (@MIN > 40) And (@MIN < 46)
GUICtrlSetColor($prMin, $Coral)
Case (@MIN > 45) And (@MIN < 51)
GUICtrlSetColor($prMin, $Salmon)
Case (@MIN > 50) And (@MIN < 56)
GUICtrlSetColor($prMin, $Tomato)
Case Else
GUICtrlSetColor($prMin, $Red)
EndSelect
EndFunc

[/autoit] [autoit][/autoit] [autoit]

Func _HourColor()
Select
Case @HOUR < 3
GUICtrlSetColor($prHour, $Chartreuse)
Case (@HOUR > 2) And (@HOUR < 5)
GUICtrlSetColor($prHour, $Lime)
Case (@HOUR > 4) And (@HOUR < 7)
GUICtrlSetColor($prHour, $LimeGreen)
Case (@HOUR > 6) And (@HOUR < 9)
GUICtrlSetColor($prHour, $YellowGreen)
Case (@HOUR > And (@HOUR < 11)
GUICtrlSetColor($prHour, $Gold)
Case (@HOUR > 10) And (@HOUR < 13)
GUICtrlSetColor($prHour, $Orange)
Case (@HOUR > 12) And (@HOUR < 15)
GUICtrlSetColor($prHour, $Goldenrod)
Case (@HOUR > 14) And (@HOUR < 17)
GUICtrlSetColor($prHour, $DarkOrange)
Case (@HOUR > 16) And (@HOUR < 19)
GUICtrlSetColor($prHour, $Coral)
Case (@HOUR > 18) And (@HOUR < 21)
GUICtrlSetColor($prHour, $Salmon)
Case (@HOUR > 20) And (@HOUR < 23)
GUICtrlSetColor($prHour, $Tomato)
Case Else
GUICtrlSetColor($prHour, $Red)
EndSelect
EndFunc

[/autoit]

Waluev

Rofl das is lol

lustige Idee und schön umgesetzt.....

Nur die Farben sind etwas, naja nennen wir es gewöhungsbedürftig

Waluev

**Xenobiologist**

HI,

ja die Idee ist wirklich gut, nur die Ablesbarkeit ist *hust* eher mäßig.

So long,

Mega

P.S: Wenn dir Langweilig ist, dann schreib lieber FileSearch rekurisv udfs.

huggy

Eins noch:

Case (@HOUR > 10) And (@HOUR < 13)
GUICtrlSetColor($prHour, $Orange)
Case (@HOUR > 12) And (@HOUR < 15)
GUICtrlSetColor($prHour, $Goldenrod)
Case (@HOUR > 14) And (@HOUR < 17)
GUICtrlSetColor($prHour, $DarkOrange)
Case (@HOUR > 16) And (@HOUR < 19)
GUICtrlSetColor($prHour, $Coral)
Case (@HOUR > 18) And (@HOUR < 21)
GUICtrlSetColor($prHour, $Salmon)
Case (@HOUR > 20) And (@HOUR < 23)
GUICtrlSetColor($prHour, $Tomato)
Case Else

funkt garnet... is IMMER grün bei mir, egal welche uhrzeit ich nehme (windows zeit geändert)

bjoerni

krasse uhr. vieleicht kleiner, als toolbar und immer im vordergrund noch.

mfg bjoerni

Daniel W.

Genial!!! auf sowas muss man erstmal kommen

Waluev

Sieht man mal das manche nix zu tun haben

nene, machs doch als eine Art Sidebar, die auf Desktop Ebene fest mit eingebunden ist..

Waluev

snoozer

Zitat

Original von huggyis IMMER grün bei mir, egal welche uhrzeit ich nehme (windows zeit geändert)

joa bei mir auch...kein plan warum..farbe müsste sich ja schon bei der sekunden anzahl ändern...sonst richtig geile idee ;)^^

snoozy

leviathan

also die Farbe ändert sich bei mir nicht - finde die Uhr trotzdem einfach nur genial

so sieht das ding bei mir aus:
[Blockierte Grafik: http://leviathan-design.de/~upload1/ss134815.jpg]

**BugFix**

Zitat

unkt garnet... is IMMER grün bei mir, egal welche uhrzeit ich nehme (windows zeit geändert)

Zitat

joa bei mir auch...kein plan warum..farbe müsste sich ja schon bei der sekunden anzahl ändern.

Zitat

also die Farbe ändert sich bei mir nicht

@huggy, snoozer, leviathan

Habt ihr evtl. Vista drauf? Sonst fällt mir grad nicht ein, warum die Farbe nicht funzt.

snoozer

Zitat

Original von BugFix
@huggy, snoozer, leviathan

Habt ihr evtl. Vista drauf? Sonst fällt mir grad nicht ein, warum die Farbe nicht funzt.

nope Windows XP Professional (Service Pack 4@build 2600)...ja weiß auch nicht warum die farbe nicht geht....:/
snoozy

leviathan

habe auch windowsXp prof sp2

Nightraven

Also ich hab Xp Prof sp2 und bei mir geht das mit der Farbe auch nicht.

Waluev

hä wieso soll sich denn da die Farbe ändern, bei mir is das ne gestrichelte Progressbar

Waleuv

**BugFix**

Ich glaube, das liegt am XP-Style. Finds zwar grad nicht in der Hilfe, aber wenn ich mich richtige erinnere gibt es Einschränkungen bei Farbdarstellung im XP-Style. Schaltet testweise mal auf Windows klassisch - dann sollte es gehen.

snoozer

Zitat

Original von BugFix
schaltet testweise mal auf Windows klassisch - dann sollte es gehen.

jo dann gehts nice nice weiter so =)

**Xenobiologist**

HI,

also ich habe XP SP2 und nicht klassisch und es geht trotzdem!

So long,

Mega

snoozer

vll liegt es dadrann dass ich ein extra prog habe was mir den style von windoof verändert....unter vista geht das ganze auch wenn man den klassischen style wählt...mit veränderten oder vista-style gehts nicht....

snoozy

huggy

Zitat

Original von th.meger
HI,

also ich habe XP SP2 und nicht klassisch und es geht trotzdem!

So long,

Mega

eben

er meinte du SOLLST klassisch mal nehmen!

**GtaSpider**

Hallo!

Jo, die XP Progressbar kann man nicht umfärben! "Checkbox or Progress controls cannot be painted if the "Windows XP style" is used."

DAmit ihr nicht immer den Style umändern müsst. sondern autoit das nur für sich macht, müsst ihr folgendes skript benutzen:

Spoiler anzeigen

[autoit]

#include <GUIConstants.au3>
Opt("GUIOnEventMode", 1)

[/autoit] [autoit][/autoit] [autoit]

DllCall("uxtheme.dll", "none", "SetThemeAppProperties", "int", 1)
Dim $hour = @HOUR, $min = @MIN, $sec = @SEC
$SteelBlue = 0x4682B4
$White = 0xFFFFFF
$Chartreuse = 0x7FFF00
$Lime = 0x00FF00
$LimeGreen = 0x32CD32
$YellowGreen = 0x9ACD32
$Gold = 0xFFD700
$Goldenrod = 0xDAA520
$Orange = 0xFFA500
$DarkOrange = 0xFF8C00
$Coral = 0xFF7F50
$Salmon = 0xFA8072
$Tomato = 0xFF6347
$Red = 0xFF0000
$Time = GUICreate("Time", 100, 285, -1, -1, BitOR($WS_SYSMENU,$WS_CAPTION))
GUISetOnEvent($GUI_EVENT_CLOSE, "Close")
GUISetBkColor($SteelBlue)
$prHour = GUICtrlCreateProgress(15, 10, 20, 250, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
$prMin = GUICtrlCreateProgress(40, 10, 20, 250, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
$prSec = GUICtrlCreateProgress(65, 10, 20, 250, BitOR($PBS_SMOOTH,$PBS_VERTICAL))
$lHour = GUICtrlCreateLabel("lHour", 15, 265, 20, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
GUICtrlCreateLabel(":", 36, 265, 4, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
$lMin = GUICtrlCreateLabel("lMin", 40, 265, 20, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
GUICtrlCreateLabel(":", 61, 265, 4, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
$lSec = GUICtrlCreateLabel("lSec", 65, 265, 20, 17, $SS_CENTER)
GUICtrlSetColor(-1, $White)
GUICtrlSetFont(-1, 10, 600)
GUISetState(@SW_SHOW)
GUICtrlSetData($prHour, @HOUR*100/24)
GUICtrlSetData($lHour, @HOUR)
GUICtrlSetData($prMin, @MIN*100/60)
GUICtrlSetData($lMin, @MIN)
GUICtrlSetData($prSec, @SEC*100/60)
GUICtrlSetData($lSec, @SEC)
_HourColor()
_MinColor()
_SecColor()
While 1
Sleep(100)
If @SEC <> $sec Then
$sec = @SEC
GUICtrlSetData($prSec, @SEC*100/60)
GUICtrlSetData($lSec, @SEC)
_SecColor()
EndIf
If @MIN <> $min Then
$min = @MIN
GUICtrlSetData($prMin, @MIN*100/60)
GUICtrlSetData($lMin, @MIN)
_MinColor()
EndIf
If @HOUR <> $hour Then
$hour = @HOUR
GUICtrlSetData($prHour, @HOUR*100/24)
GUICtrlSetData($lHour, @HOUR)
_HourColor()
EndIf
WEnd

Func Close()
Exit
EndFunc

Func _SecColor()
Select
Case @SEC < 6
GUICtrlSetColor($prSec, $Chartreuse)
Case (@SEC > 5) And (@SEC < 11)
GUICtrlSetColor($prSec, $Lime)
Case (@SEC > 10) And (@SEC < 16)
GUICtrlSetColor($prSec, $LimeGreen)
Case (@SEC > 15) And (@SEC < 21)
GUICtrlSetColor($prSec, $YellowGreen)
Case (@SEC > 20) And (@SEC < 26)
GUICtrlSetColor($prSec, $Gold)
Case (@SEC > 25) And (@SEC < 31)
GUICtrlSetColor($prSec, $Orange)
Case (@SEC > 30) And (@SEC < 36)
GUICtrlSetColor($prSec, $Goldenrod)
Case (@SEC > 35) And (@SEC < 41)
GUICtrlSetColor($prSec, $DarkOrange)
Case (@SEC > 40) And (@SEC < 46)
GUICtrlSetColor($prSec, $Coral)
Case (@SEC > 45) And (@SEC < 51)
GUICtrlSetColor($prSec, $Salmon)
Case (@SEC > 50) And (@SEC < 56)
GUICtrlSetColor($prSec, $Tomato)
Case Else
GUICtrlSetColor($prSec, $Red)
EndSelect
EndFunc

Func _MinColor()
Select
Case @MIN < 6
GUICtrlSetColor($prMin, $Chartreuse)
Case (@MIN > 5) And (@MIN < 11)
GUICtrlSetColor($prMin, $Lime)
Case (@MIN > 10) And (@MIN < 16)
GUICtrlSetColor($prMin, $LimeGreen)
Case (@MIN > 15) And (@MIN < 21)
GUICtrlSetColor($prMin, $YellowGreen)
Case (@MIN > 20) And (@MIN < 26)
GUICtrlSetColor($prMin, $Gold)
Case (@MIN > 25) And (@MIN < 31)
GUICtrlSetColor($prMin, $Orange)
Case (@MIN > 30) And (@MIN < 36)
GUICtrlSetColor($prMin, $Goldenrod)
Case (@MIN > 35) And (@MIN < 41)
GUICtrlSetColor($prMin, $DarkOrange)
Case (@MIN > 40) And (@MIN < 46)
GUICtrlSetColor($prMin, $Coral)
Case (@MIN > 45) And (@MIN < 51)
GUICtrlSetColor($prMin, $Salmon)
Case (@MIN > 50) And (@MIN < 56)
GUICtrlSetColor($prMin, $Tomato)
Case Else
GUICtrlSetColor($prMin, $Red)
EndSelect
EndFunc

Func _HourColor()
Select
Case @HOUR < 3
GUICtrlSetColor($prHour, $Chartreuse)
Case (@HOUR > 2) And (@HOUR < 5)
GUICtrlSetColor($prHour, $Lime)
Case (@HOUR > 4) And (@HOUR < 7)
GUICtrlSetColor($prHour, $LimeGreen)
Case (@HOUR > 6) And (@HOUR < 9)
GUICtrlSetColor($prHour, $YellowGreen)
Case (@HOUR > And (@HOUR < 11)
GUICtrlSetColor($prHour, $Gold)
Case (@HOUR > 10) And (@HOUR < 13)
GUICtrlSetColor($prHour, $Orange)
Case (@HOUR > 12) And (@HOUR < 15)
GUICtrlSetColor($prHour, $Goldenrod)
Case (@HOUR > 14) And (@HOUR < 17)
GUICtrlSetColor($prHour, $DarkOrange)
Case (@HOUR > 16) And (@HOUR < 19)
GUICtrlSetColor($prHour, $Coral)
Case (@HOUR > 18) And (@HOUR < 21)
GUICtrlSetColor($prHour, $Salmon)
Case (@HOUR > 20) And (@HOUR < 23)
GUICtrlSetColor($prHour, $Tomato)
Case Else
GUICtrlSetColor($prHour, $Red)
EndSelect
EndFunc

[/autoit]

Mfg Spider