Jump to content
Sign in to follow this  
Uriziel01

7segment clock ;D

Recommended Posts

Uriziel01

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
spudw2k
gseller

Very nice... :)

Share this post


Link to post
Share on other sites
ACS

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
TnTProductions

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
nobbe

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
Uriziel01

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


Share this post


Link to post
Share on other sites
monoceres

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!

Share this post


Link to post
Share on other sites
Uriziel01

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

p.s-Im now writing an 3d animated menu UDF :(


Share this post


Link to post
Share on other sites
Uriziel01

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.


Share this post


Link to post
Share on other sites
DexterMorgan

Very cool script and program! It is useful to me because my tool bar time is always wrong :)


code

Share this post


Link to post
Share on other sites
Uriziel01

Im happy that I have helped you :)


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  

×