Uriziel01 Posted May 20, 2008 Share Posted May 20, 2008 (edited) Hi ! I have maded little clock in few hours of free time, it is dissaperaing when you whait 2 sec. and if you want to see it again, aim with your mouse in upper left corner of the screen Have a nice Fun What do you think about it ? p.s-yes, I now that it is small project and it should be writen in shorten way expandcollapse popup#include <GUIConstants.au3> Global $cyfra, $cyf, $cyf2, $wylacznik, $czekaj = 1, $schowany = 0,$minuta=0,$godzina=0 Global $GuiX, $GuiY, $GuiW, $GuiH, $wlacznik $gui = GUICreate("Zegar-Clock", 600, 200, 0, 0, $WS_POPUPWINDOW, $WS_EX_TRANSPARENT) GUISetBkColor("0x555555", $gui) WinSetTrans("Zegar-Clock", "", 140) GUISetState(@SW_SHOW) WinSetOnTop("Zegar-Clock", "", 1) $1 = GUICtrlCreateGraphic(20, 20, 20, 80) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $2 = GUICtrlCreateGraphic(80, 20, 20, 80) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $3 = GUICtrlCreateGraphic(40, 20, 40, 20) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $4 = GUICtrlCreateGraphic(40, 90, 40, 20) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $5 = GUICtrlCreateGraphic(20, 100, 20, 80) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $6 = GUICtrlCreateGraphic(80, 100, 20, 80) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $7 = GUICtrlCreateGraphic(40, 160, 40, 20) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $11 = GUICtrlCreateGraphic(100, 20, 20, 80) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $12 = GUICtrlCreateGraphic(160, 20, 20, 80) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $13 = GUICtrlCreateGraphic(120, 20, 40, 20) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $14 = GUICtrlCreateGraphic(120, 90, 40, 20) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $15 = GUICtrlCreateGraphic(100, 100, 20, 80) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $16 = GUICtrlCreateGraphic(160, 100, 20, 80) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $17 = GUICtrlCreateGraphic(120, 160, 40, 20) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $21 = GUICtrlCreateGraphic(220, 20, 20, 80) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $22 = GUICtrlCreateGraphic(280, 20, 20, 80) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $23 = GUICtrlCreateGraphic(240, 20, 40, 20) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $24 = GUICtrlCreateGraphic(240, 90, 40, 20) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $25 = GUICtrlCreateGraphic(220, 100, 20, 80) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $26 = GUICtrlCreateGraphic(280, 100, 20, 80) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $27 = GUICtrlCreateGraphic(240, 160, 40, 20) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $31 = GUICtrlCreateGraphic(300, 20, 20, 80) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $32 = GUICtrlCreateGraphic(360, 20, 20, 80) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $33 = GUICtrlCreateGraphic(320, 20, 40, 20) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $34 = GUICtrlCreateGraphic(320, 90, 40, 20) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $35 = GUICtrlCreateGraphic(300, 100, 20, 80) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $36 = GUICtrlCreateGraphic(360, 100, 20, 80) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $37 = GUICtrlCreateGraphic(320, 160, 40, 20) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $41 = GUICtrlCreateGraphic(420, 20, 20, 80) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $42 = GUICtrlCreateGraphic(480, 20, 20, 80) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $43 = GUICtrlCreateGraphic(440, 20, 40, 20) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $44 = GUICtrlCreateGraphic(440, 90, 40, 20) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $45 = GUICtrlCreateGraphic(420, 100, 20, 80) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $46 = GUICtrlCreateGraphic(480, 100, 20, 80) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $47 = GUICtrlCreateGraphic(440, 160, 40, 20) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $51 = GUICtrlCreateGraphic(500, 20, 20, 80) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $52 = GUICtrlCreateGraphic(560, 20, 20, 80) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $53 = GUICtrlCreateGraphic(520, 20, 40, 20) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $54 = GUICtrlCreateGraphic(520, 90, 40, 20) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $55 = GUICtrlCreateGraphic(500, 100, 20, 80) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $56 = GUICtrlCreateGraphic(560, 100, 20, 80) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $57 = GUICtrlCreateGraphic(520, 160, 40, 20) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) ;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;; $dot1=GUICtrlCreateGraphic(190, 50, 20, 20) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $dot2=GUICtrlCreateGraphic(190, 120, 20, 20) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $dot3=GUICtrlCreateGraphic(400, 50, 20, 20) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) $dot4=GUICtrlCreateGraphic(400, 120, 20, 20) GUICtrlSetBkColor(-1, 0x00ff00) GUICtrlSetColor(-1, 0) Do Sleep(20) $msg = GUIGetMsg() _sec1(StringLeft(@SEC, 1)) _sec2(StringRight(@SEC, 1)) if @min<> $minuta then $minuta=@MIN _min1(StringLeft(@MIN, 1)) _min2(StringRight(@MIN, 1)) endif if @HOUR<> $godzina then $godzina=@HOUR _hour1(StringLeft(@HOUR, 1)) _hour2(StringRight(@HOUR, 1)) endif If MouseGetPos(0) < 600 And MouseGetPos(1) < 10 And $czekaj = 1 And $schowany = 1 Then $wlacznik = TimerInit() $czekaj = 0 EndIf If MouseGetPos(0) > 600 Or MouseGetPos(1) > 10 And $schowany = 1 Then $czekaj = 1 If MouseGetPos(0) > 590 Or MouseGetPos(1) > 190 And $czekaj = 1 And $schowany = 0 Then $wylacznik = TimerInit() $czekaj = 0 EndIf If MouseGetPos(0) < 590 And MouseGetPos(1) < 190 And $schowany = 0 Then $czekaj = 1 If TimerDiff($wylacznik) > 2000 And $czekaj = 0 And $schowany = 0 Then For $i = 150 To 0 Step -10 Sleep(5) WinSetTrans("Zegar-Clock", "", $i) Next $schowany = 1 $czekaj = 1 EndIf If TimerDiff($wlacznik) > 500 And $czekaj = 0 And $schowany = 1 Then For $i = 10 To 150 Step 10 Sleep(5) WinSetTrans("Zegar-Clock", "", $i) Next $schowany = 0 EndIf Until $msg = $GUI_EVENT_CLOSE Func _sec1($cyfra) Switch $cyfra Case 1 GUICtrlSetPos($1, 1000, 1000) GUICtrlSetPos($2, 80, 20) GUICtrlSetPos($3, 1000, 1000) GUICtrlSetPos($4, 1000, 1000) GUICtrlSetPos($5, 1000, 1000) GUICtrlSetPos($6, 80, 100) GUICtrlSetPos($7, 1000, 1000) Case 2 GUICtrlSetPos($1, 1000, 1000) GUICtrlSetPos($2, 80, 20) GUICtrlSetPos($3, 40, 20) GUICtrlSetPos($4, 40, 90) GUICtrlSetPos($5, 20, 100) GUICtrlSetPos($6, 1000, 1000) GUICtrlSetPos($7, 40, 160) Case 3 GUICtrlSetPos($1, 1000, 1000) GUICtrlSetPos($2, 80, 20) GUICtrlSetPos($3, 40, 20) GUICtrlSetPos($4, 40, 90) GUICtrlSetPos($5, 1000, 1000) GUICtrlSetPos($6, 80, 100) GUICtrlSetPos($7, 40, 160) Case 4 GUICtrlSetPos($1, 20, 20) GUICtrlSetPos($2, 80, 20) GUICtrlSetPos($3, 1000, 1000) GUICtrlSetPos($4, 40, 90) GUICtrlSetPos($5, 1000, 1000) GUICtrlSetPos($6, 80, 100) GUICtrlSetPos($7, 1000, 1000) Case 5 GUICtrlSetPos($1, 20, 20) GUICtrlSetPos($2, 1000, 1000) GUICtrlSetPos($3, 40, 20) GUICtrlSetPos($4, 40, 90) GUICtrlSetPos($5, 1000, 1000) GUICtrlSetPos($6, 80, 100) GUICtrlSetPos($7, 40, 160) Case 6 GUICtrlSetPos($1, 20, 20) GUICtrlSetPos($2, 1000, 1000) GUICtrlSetPos($3, 40, 20) GUICtrlSetPos($4, 40, 90) GUICtrlSetPos($5, 20, 100) GUICtrlSetPos($6, 80, 100) GUICtrlSetPos($7, 40, 160) Case 7 GUICtrlSetPos($1, 1000, 1000) GUICtrlSetPos($2, 80, 20) GUICtrlSetPos($3, 40, 20) GUICtrlSetPos($4, 1000, 1000) GUICtrlSetPos($5, 1000, 1000) GUICtrlSetPos($6, 80, 100) GUICtrlSetPos($7, 1000, 1000) Case 8 GUICtrlSetPos($1, 20, 20) GUICtrlSetPos($2, 80, 20) GUICtrlSetPos($3, 40, 20) GUICtrlSetPos($4, 40, 90) GUICtrlSetPos($5, 20, 100) GUICtrlSetPos($6, 80, 100) GUICtrlSetPos($7, 40, 160) Case 9 GUICtrlSetPos($1, 20, 20) GUICtrlSetPos($2, 80, 20) GUICtrlSetPos($3, 40, 20) GUICtrlSetPos($4, 40, 90) GUICtrlSetPos($5, 1000, 1000) GUICtrlSetPos($6, 80, 100) GUICtrlSetPos($7, 40, 160) Case 0 GUICtrlSetPos($1, 20, 20) GUICtrlSetPos($2, 80, 20) GUICtrlSetPos($3, 40, 20) GUICtrlSetPos($4, 1000, 1000) GUICtrlSetPos($5, 20, 100) GUICtrlSetPos($6, 80, 100) GUICtrlSetPos($7, 40, 160) EndSwitch EndFunc ;==>_sec1 Func _sec2($cyfra2) Switch $cyfra2 Case 1 GUICtrlSetPos($11, 1000, 1000) GUICtrlSetPos($12, 160, 20) GUICtrlSetPos($13, 1000, 1000) GUICtrlSetPos($14, 1000, 1000) GUICtrlSetPos($15, 1000, 1000) GUICtrlSetPos($16, 160, 100) GUICtrlSetPos($17, 1000, 1000) Case 2 GUICtrlSetPos($11, 1000, 1000) GUICtrlSetPos($12, 160, 20) GUICtrlSetPos($13, 120, 20) GUICtrlSetPos($14, 120, 90) GUICtrlSetPos($15, 100, 100) GUICtrlSetPos($16, 1000, 1000) GUICtrlSetPos($17, 120, 160) Case 3 GUICtrlSetPos($11, 1000, 1000) GUICtrlSetPos($12, 160, 20) GUICtrlSetPos($13, 120, 20) GUICtrlSetPos($14, 120, 90) GUICtrlSetPos($15, 1000, 1000) GUICtrlSetPos($16, 160, 100) GUICtrlSetPos($17, 120, 160) Case 4 GUICtrlSetPos($11, 100, 20) GUICtrlSetPos($12, 160, 20) GUICtrlSetPos($13, 1000, 1000) GUICtrlSetPos($14, 120, 90) GUICtrlSetPos($15, 1000, 1000) GUICtrlSetPos($16, 160, 100) GUICtrlSetPos($17, 1000, 1000) Case 5 GUICtrlSetPos($11, 100, 20) GUICtrlSetPos($12, 1000, 1000) GUICtrlSetPos($13, 120, 20) GUICtrlSetPos($14, 120, 90) GUICtrlSetPos($15, 1000, 1000) GUICtrlSetPos($16, 160, 100) GUICtrlSetPos($17, 120, 160) Case 6 GUICtrlSetPos($11, 100, 20) GUICtrlSetPos($12, 1000, 1000) GUICtrlSetPos($13, 120, 20) GUICtrlSetPos($14, 120, 90) GUICtrlSetPos($15, 100, 100) GUICtrlSetPos($16, 160, 100) GUICtrlSetPos($17, 120, 160) Case 7 GUICtrlSetPos($11, 1000, 1000) GUICtrlSetPos($12, 160, 20) GUICtrlSetPos($13, 120, 20) GUICtrlSetPos($14, 1000, 1000) GUICtrlSetPos($15, 1000, 1000) GUICtrlSetPos($16, 160, 100) GUICtrlSetPos($17, 1000, 1000) Case 8 GUICtrlSetPos($11, 100, 20) GUICtrlSetPos($12, 160, 20) GUICtrlSetPos($13, 120, 20) GUICtrlSetPos($14, 120, 90) GUICtrlSetPos($15, 100, 100) GUICtrlSetPos($16, 160, 100) GUICtrlSetPos($17, 120, 160) Case 9 GUICtrlSetPos($11, 100, 20) GUICtrlSetPos($12, 160, 20) GUICtrlSetPos($13, 120, 20) GUICtrlSetPos($14, 120, 90) GUICtrlSetPos($15, 1000, 1000) GUICtrlSetPos($16, 160, 100) GUICtrlSetPos($17, 120, 160) Case 0 GUICtrlSetPos($11, 100, 20) GUICtrlSetPos($12, 160, 20) GUICtrlSetPos($13, 120, 20) GUICtrlSetPos($14, 1000, 1000) GUICtrlSetPos($15, 100, 100) GUICtrlSetPos($16, 160, 100) GUICtrlSetPos($17, 120, 160) EndSwitch EndFunc ;==>_sec2 Func _min1($cyfra2) Switch $cyfra2 Case 1 GUICtrlSetPos($21, 1000, 1000) GUICtrlSetPos($22, 280, 20) GUICtrlSetPos($23, 1000, 1000) GUICtrlSetPos($24, 1000, 1000) GUICtrlSetPos($25, 1000, 1000) GUICtrlSetPos($26, 280, 100) GUICtrlSetPos($27, 1000, 1000) Case 2 GUICtrlSetPos($21, 1000, 1000) GUICtrlSetPos($22, 280, 20) GUICtrlSetPos($23, 240, 20) GUICtrlSetPos($24, 240, 90) GUICtrlSetPos($25, 220, 100) GUICtrlSetPos($26, 1000, 1000) GUICtrlSetPos($27, 240, 160) Case 3 GUICtrlSetPos($21, 1000, 1000) GUICtrlSetPos($22, 280, 20) GUICtrlSetPos($23, 240, 20) GUICtrlSetPos($24, 240, 90) GUICtrlSetPos($25, 1000, 1000) GUICtrlSetPos($26, 280, 100) GUICtrlSetPos($27, 240, 160) Case 4 GUICtrlSetPos($21, 220, 20) GUICtrlSetPos($22, 280, 20) GUICtrlSetPos($23, 1000, 1000) GUICtrlSetPos($24, 240, 90) GUICtrlSetPos($25, 1000, 1000) GUICtrlSetPos($26, 280, 100) GUICtrlSetPos($27, 1000, 1000) Case 5 GUICtrlSetPos($21, 220, 20) GUICtrlSetPos($22, 1000, 1000) GUICtrlSetPos($23, 240, 20) GUICtrlSetPos($24, 240, 90) GUICtrlSetPos($25, 1000, 1000) GUICtrlSetPos($26, 280, 100) GUICtrlSetPos($27, 240, 160) Case 6 GUICtrlSetPos($21, 220, 20) GUICtrlSetPos($22, 1000, 1000) GUICtrlSetPos($23, 240, 20) GUICtrlSetPos($24, 240, 90) GUICtrlSetPos($25, 220, 100) GUICtrlSetPos($26, 280, 100) GUICtrlSetPos($27, 240, 160) Case 7 GUICtrlSetPos($21, 1000, 1000) GUICtrlSetPos($22, 280, 20) GUICtrlSetPos($23, 240, 20) GUICtrlSetPos($24, 1000, 1000) GUICtrlSetPos($25, 1000, 1000) GUICtrlSetPos($26, 280, 100) GUICtrlSetPos($27, 1000, 1000) Case 8 GUICtrlSetPos($21, 220, 20) GUICtrlSetPos($22, 280, 20) GUICtrlSetPos($23, 240, 20) GUICtrlSetPos($24, 240, 90) GUICtrlSetPos($25, 220, 100) GUICtrlSetPos($26, 280, 100) GUICtrlSetPos($27, 240, 160) Case 9 GUICtrlSetPos($21, 220, 20) GUICtrlSetPos($22, 280, 20) GUICtrlSetPos($23, 240, 20) GUICtrlSetPos($24, 240, 90) GUICtrlSetPos($25, 1000, 1000) GUICtrlSetPos($26, 280, 100) GUICtrlSetPos($27, 240, 160) Case 0 GUICtrlSetPos($21, 220, 20) GUICtrlSetPos($22, 280, 20) GUICtrlSetPos($23, 240, 20) GUICtrlSetPos($24, 1000, 1000) GUICtrlSetPos($25, 220, 100) GUICtrlSetPos($26, 280, 100) GUICtrlSetPos($27, 240, 160) EndSwitch EndFunc ;==>_min1 Func _min2($cyfra2) Switch $cyfra2 Case 1 GUICtrlSetPos($31, 1000, 1000) GUICtrlSetPos($32, 360, 20) GUICtrlSetPos($33, 1000, 1000) GUICtrlSetPos($34, 1000, 1000) GUICtrlSetPos($35, 1000, 1000) GUICtrlSetPos($36, 360, 100) GUICtrlSetPos($37, 1000, 1000) Case 2 GUICtrlSetPos($31, 1000, 1000) GUICtrlSetPos($32, 360, 20) GUICtrlSetPos($33, 320, 20) GUICtrlSetPos($34, 320, 90) GUICtrlSetPos($35, 300, 100) GUICtrlSetPos($36, 1000, 1000) GUICtrlSetPos($37, 320, 160) Case 3 GUICtrlSetPos($31, 1000, 1000) GUICtrlSetPos($32, 360, 20) GUICtrlSetPos($33, 320, 20) GUICtrlSetPos($34, 320, 90) GUICtrlSetPos($35, 1000, 1000) GUICtrlSetPos($36, 360, 100) GUICtrlSetPos($37, 320, 160) Case 4 GUICtrlSetPos($31, 300, 20) GUICtrlSetPos($32, 340, 20) GUICtrlSetPos($33, 1000, 1000) GUICtrlSetPos($34, 320, 90) GUICtrlSetPos($35, 1000, 1000) GUICtrlSetPos($36, 340, 100) GUICtrlSetPos($37, 1000, 1000) Case 5 GUICtrlSetPos($31, 300, 20) GUICtrlSetPos($32, 1000, 1000) GUICtrlSetPos($33, 320, 20) GUICtrlSetPos($34, 320, 90) GUICtrlSetPos($35, 1000, 1000) GUICtrlSetPos($36, 360, 100) GUICtrlSetPos($37, 320, 160) Case 6 GUICtrlSetPos($31, 300, 20) GUICtrlSetPos($32, 1000, 1000) GUICtrlSetPos($33, 320, 20) GUICtrlSetPos($34, 320, 90) GUICtrlSetPos($35, 300, 100) GUICtrlSetPos($36, 360, 100) GUICtrlSetPos($37, 320, 160) Case 7 GUICtrlSetPos($31, 1000, 1000) GUICtrlSetPos($32, 360, 20) GUICtrlSetPos($33, 320, 20) GUICtrlSetPos($34, 1000, 1000) GUICtrlSetPos($35, 1000, 1000) GUICtrlSetPos($36, 360, 100) GUICtrlSetPos($37, 1000, 1000) Case 8 GUICtrlSetPos($31, 300, 20) GUICtrlSetPos($32, 360, 20) GUICtrlSetPos($33, 320, 20) GUICtrlSetPos($34, 320, 90) GUICtrlSetPos($35, 300, 100) GUICtrlSetPos($36, 3600, 100) GUICtrlSetPos($37, 320, 160) Case 9 GUICtrlSetPos($31, 300, 20) GUICtrlSetPos($32, 360, 20) GUICtrlSetPos($33, 320, 20) GUICtrlSetPos($34, 320, 90) GUICtrlSetPos($35, 1000, 1000) GUICtrlSetPos($36, 360, 100) GUICtrlSetPos($37, 320, 160) Case 0 GUICtrlSetPos($31, 300, 20) GUICtrlSetPos($32, 360, 20) GUICtrlSetPos($33, 320, 20) GUICtrlSetPos($34, 1000, 1000) GUICtrlSetPos($35, 300, 100) GUICtrlSetPos($36, 360, 100) GUICtrlSetPos($37, 320, 160) EndSwitch EndFunc ;==>_min2 Func _hour1($cyfra2) Switch $cyfra2 Case 1 GUICtrlSetPos($41, 1000, 1000) GUICtrlSetPos($42, 480, 20) GUICtrlSetPos($43, 1000, 1000) GUICtrlSetPos($44, 1000, 1000) GUICtrlSetPos($45, 1000, 1000) GUICtrlSetPos($46, 480, 100) GUICtrlSetPos($47, 1000, 1000) Case 2 GUICtrlSetPos($41, 1000, 1000) GUICtrlSetPos($42, 480, 20) GUICtrlSetPos($43, 440, 20) GUICtrlSetPos($44, 440, 90) GUICtrlSetPos($45, 300, 100) GUICtrlSetPos($46, 1000, 1000) GUICtrlSetPos($47, 440, 160) Case 3 GUICtrlSetPos($41, 1000, 1000) GUICtrlSetPos($42, 480, 20) GUICtrlSetPos($43, 440, 20) GUICtrlSetPos($44, 440, 90) GUICtrlSetPos($45, 1000, 1000) GUICtrlSetPos($46, 480, 100) GUICtrlSetPos($47, 440, 160) Case 4 GUICtrlSetPos($41, 420, 20) GUICtrlSetPos($42, 480, 20) GUICtrlSetPos($43, 1000, 1000) GUICtrlSetPos($44, 460, 90) GUICtrlSetPos($45, 1000, 1000) GUICtrlSetPos($46, 480, 100) GUICtrlSetPos($47, 1000, 1000) Case 5 GUICtrlSetPos($41, 420, 20) GUICtrlSetPos($42, 1000, 1000) GUICtrlSetPos($43, 440, 20) GUICtrlSetPos($44, 440, 90) GUICtrlSetPos($45, 1000, 1000) GUICtrlSetPos($46, 480, 100) GUICtrlSetPos($47, 440, 160) Case 6 GUICtrlSetPos($41, 420, 20) GUICtrlSetPos($42, 1000, 1000) GUICtrlSetPos($43, 440, 20) GUICtrlSetPos($44, 440, 90) GUICtrlSetPos($45, 420, 100) GUICtrlSetPos($46, 480, 100) GUICtrlSetPos($47, 440, 160) Case 7 GUICtrlSetPos($41, 1000, 1000) GUICtrlSetPos($42, 480, 20) GUICtrlSetPos($43, 440, 20) GUICtrlSetPos($44, 1000, 1000) GUICtrlSetPos($45, 1000, 1000) GUICtrlSetPos($46, 480, 100) GUICtrlSetPos($47, 1000, 1000) Case 8 GUICtrlSetPos($41, 420, 20) GUICtrlSetPos($42, 480, 20) GUICtrlSetPos($43, 440, 20) GUICtrlSetPos($44, 440, 90) GUICtrlSetPos($45, 420, 100) GUICtrlSetPos($46, 480, 100) GUICtrlSetPos($47, 440, 160) Case 9 GUICtrlSetPos($41, 420, 20) GUICtrlSetPos($42, 480, 20) GUICtrlSetPos($43, 440, 20) GUICtrlSetPos($44, 440, 90) GUICtrlSetPos($45, 1000, 1000) GUICtrlSetPos($46, 480, 100) GUICtrlSetPos($47, 440, 160) Case 0 GUICtrlSetPos($41, 420, 20) GUICtrlSetPos($42, 480, 20) GUICtrlSetPos($43, 440, 20) GUICtrlSetPos($44, 1000, 1000) GUICtrlSetPos($45, 420, 100) GUICtrlSetPos($46, 480, 100) GUICtrlSetPos($47, 440, 160) EndSwitch EndFunc ;==>_min2 Func _hour2($cyfra2) Switch $cyfra2 Case 1 GUICtrlSetPos($51, 1000, 1000) GUICtrlSetPos($52, 560, 20) GUICtrlSetPos($53, 1000, 1000) GUICtrlSetPos($54, 1000, 1000) GUICtrlSetPos($55, 1000, 1000) GUICtrlSetPos($56, 560, 100) GUICtrlSetPos($57, 1000, 1000) Case 2 GUICtrlSetPos($51, 1000, 1000) GUICtrlSetPos($52, 560, 20) GUICtrlSetPos($53, 520, 20) GUICtrlSetPos($54, 520, 90) GUICtrlSetPos($55, 500, 100) GUICtrlSetPos($56, 1000, 1000) GUICtrlSetPos($57, 520, 160) Case 3 GUICtrlSetPos($51, 1000, 1000) GUICtrlSetPos($52, 560, 20) GUICtrlSetPos($53, 520, 20) GUICtrlSetPos($54, 520, 90) GUICtrlSetPos($55, 1000, 1000) GUICtrlSetPos($56, 560, 100) GUICtrlSetPos($57, 520, 160) Case 4 GUICtrlSetPos($51, 500, 20) GUICtrlSetPos($52, 560, 20) GUICtrlSetPos($53, 1000, 1000) GUICtrlSetPos($54, 520, 90) GUICtrlSetPos($55, 1000, 1000) GUICtrlSetPos($56, 560, 100) GUICtrlSetPos($57, 1000, 1000) Case 5 GUICtrlSetPos($51, 500, 20) GUICtrlSetPos($52, 1000, 1000) GUICtrlSetPos($53, 520, 20) GUICtrlSetPos($54, 520, 90) GUICtrlSetPos($55, 1000, 1000) GUICtrlSetPos($56, 560, 100) GUICtrlSetPos($57, 520, 160) Case 6 GUICtrlSetPos($51, 500, 20) GUICtrlSetPos($52, 1000, 1000) GUICtrlSetPos($53, 520, 20) GUICtrlSetPos($54, 520, 90) GUICtrlSetPos($55, 500, 100) GUICtrlSetPos($56, 560, 100) GUICtrlSetPos($57, 520, 160) Case 7 GUICtrlSetPos($51, 1000, 1000) GUICtrlSetPos($52, 560, 20) GUICtrlSetPos($53, 520, 20) GUICtrlSetPos($54, 1000, 1000) GUICtrlSetPos($55, 1000, 1000) GUICtrlSetPos($56, 560, 100) GUICtrlSetPos($57, 1000, 1000) Case 8 GUICtrlSetPos($51, 500, 20) GUICtrlSetPos($52, 560, 20) GUICtrlSetPos($53, 520, 20) GUICtrlSetPos($54, 520, 90) GUICtrlSetPos($55, 500, 100) GUICtrlSetPos($56, 560, 100) GUICtrlSetPos($57, 520, 160) Case 9 GUICtrlSetPos($51, 500, 20) GUICtrlSetPos($52, 560, 20) GUICtrlSetPos($53, 520, 20) GUICtrlSetPos($54, 520, 90) GUICtrlSetPos($55, 1000, 1000) GUICtrlSetPos($56, 560, 100) GUICtrlSetPos($57, 520, 160) Case 0 GUICtrlSetPos($51, 500, 20) GUICtrlSetPos($52, 560, 20) GUICtrlSetPos($53, 520, 20) GUICtrlSetPos($54, 1000, 1000) GUICtrlSetPos($55, 500, 100) GUICtrlSetPos($56, 560, 100) GUICtrlSetPos($57, 520, 160) EndSwitch EndFunc ;==>_min2 Edited May 20, 2008 by Uriziel01 Link to comment Share on other sites More sharing options...
spudw2k Posted May 20, 2008 Share Posted May 20, 2008 I like Spoiler Things I've Made: Always On Top Tool ◊ AU History ◊ Deck of Cards ◊ HideIt ◊ ICU ◊ Icon Freezer ◊ Ipod Ejector ◊ Junos Configuration Explorer ◊ Link Downloader ◊ MD5 Folder Enumerator ◊ PassGen ◊ Ping Tool ◊ Quick NIC ◊ Read OCR ◊ RemoteIT ◊ SchTasksGui ◊ SpyCam ◊ System Scan Report Tool ◊ System UpTime ◊ Transparency Machine ◊ VMWare ESX BuilderMisc Code Snippets: ADODB Example ◊ CheckHover ◊ Detect SafeMode ◊ DynEnumArray ◊ GetNetStatData ◊ HashArray ◊ IsBetweenDates ◊ Local Admins ◊ Make Choice ◊ Recursive File List ◊ Remove Sizebox Style ◊ Retrieve PNPDeviceID ◊ Retreive SysListView32 Contents ◊ Set IE Homepage ◊ Tickle Expired Password ◊ Transpose ArrayProjects: Drive Space Usage GUI ◊ LEDkIT ◊ Plasma_kIt ◊ Scan Engine Builder ◊ SpeeDBurner ◊ SubnetCalcCool Stuff: AutoItObject UDF ◊ Extract Icon From Proc ◊ GuiCtrlFontRotate ◊ Hex Edit Funcs ◊ Run binary ◊ Service_UDF  Link to comment Share on other sites More sharing options...
gseller Posted May 20, 2008 Share Posted May 20, 2008 Very nice... Link to comment Share on other sites More sharing options...
ACS Posted May 21, 2008 Share Posted May 21, 2008 The program runs but appears to display the text backwards. Also it disappears after 2 seconds and there's no way to get it back except by terminating and re-running the program. Link to comment Share on other sites More sharing options...
TnTProductions Posted May 21, 2008 Share Posted May 21, 2008 Nice but doesnt have much use when you have the time displayedon your computer toold bar but nice work "FREEDOM is not FREE""Its a good thing war is so terrible, or we grow too fond of it" -Robert E. Lee[quote]Firestrom: global $warming = False[/quote]My scripts:Desktop Cleaner---->Total Downloads:167;;;;;;;;;;1;;;;;;1;;;;;;;;;;;;;11;;;;;;;;;;;;;;;;1;;;;;;1;;;;;;;;;;;;;11;;;;;;;;;;;;;;;;1;;;;;;1;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;111111;;;;;;;;;;;;;;11;;;;;;;;;;;;;;;;1;;;;;;1;;;;;;;;;;;;;;11;;;;;;;;;;;;;;;;1;;;;;;1;;;;;;;;;;;;;;11;;;;;;"a wise man once said why use your skills when we have technology" Link to comment Share on other sites More sharing options...
nobbe Posted May 21, 2008 Share Posted May 21, 2008 The program runs but appears to display the text backwards. Also it disappears after 2 seconds and there's no way to get it back except by terminating and re-running the program. move mouse to the upper left corner apart from that it displays sec:min:hrs , which is confusing. but a nice idea! Link to comment Share on other sites More sharing options...
James Posted May 21, 2008 Share Posted May 21, 2008 Not bad however some of the segments are positioned wrong. Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ Link to comment Share on other sites More sharing options...
Uriziel01 Posted May 21, 2008 Author Share Posted May 21, 2008 Not bad however some of the segments are positioned wrong.Yes I now that, but it was maded quickly, and it was short tested Thx for everyone for comments and reply's Link to comment Share on other sites More sharing options...
monoceres Posted May 21, 2008 Share Posted May 21, 2008 OMG! I have never seen so many Case's in my life Nice work Broken link? PM me and I'll send you the file! Link to comment Share on other sites More sharing options...
James Posted May 21, 2008 Share Posted May 21, 2008 Also, for new versions of AutoIt you need to have: #include <WindowsConstants.au3> Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ Link to comment Share on other sites More sharing options...
Uriziel01 Posted May 21, 2008 Author Share Posted May 21, 2008 OMG! I have never seen so many Case's in my life Nice work No, only 6x7= It is only fast maded script in my free time, do not expect nice and clean code p.s-Im now writing an 3d animated menu UDF Link to comment Share on other sites More sharing options...
James Posted May 21, 2008 Share Posted May 21, 2008 3D menu? Blog - Seriously epic web hosting - Twitter - GitHub - Cachet HQ Link to comment Share on other sites More sharing options...
Uriziel01 Posted May 21, 2008 Author Share Posted May 21, 2008 Yes, 3d menu for applications If you want to make some real nice looking menu for you application, and You dont have time to do it yourselve But please, lets dont do offtopic in this thread p.s-I will release the menu UDF tommorow or in next week. Link to comment Share on other sites More sharing options...
DexterMorgan Posted May 21, 2008 Share Posted May 21, 2008 Very cool script and program! It is useful to me because my tool bar time is always wrong code Link to comment Share on other sites More sharing options...
Uriziel01 Posted May 21, 2008 Author Share Posted May 21, 2008 Im happy that I have helped you Link to comment Share on other sites More sharing options...
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now