Jump to content
Sign in to follow this  
Uriziel01

7segment clock ;D

Recommended Posts

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 ;)

#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 by Uriziel01

Share this post


Link to post
Share on other sites

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. :)

Share this post


Link to post
Share on other sites

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"

Share this post


Link to post
Share on other sites

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!

Share this post


Link to post
Share on other sites

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...