ساعت در
کد:
QBasic

  CLS
SCREEN 12
DIM h, hx, hy, m, mx, my, s, sx, sy, e  AS DOUBLE
LOCATE 15, 13
COLOR 4
PRINT "Welcame to clock to start press(S)to exit press(Esc)"
DO
        s$ = INKEY$
                IF s$ = "s" THEN
        EXIT DO
                ELSEIF s$ = CHR$(27) THEN
                END
        END IF
LOOP
LOCATE 15, 13
PRINT "                                                      "
LOCATE 15, 25
INPUT " Do you want to have beep(Y/N)"; bee$
COLOR 6
LOCATE 15, 20
INPUT "Do you want to show a degetal clock(Y/N)"; d$
LOCATE 15, 20
PRINT "                                            "
IF d$ = "y" THEN
        COLOR 14
ELSEIF d$ = "n" THEN
        COLOR 0
END IF
CIRCLE (320, 240), 150, 3
DO
        s = ((TIMER MOD 3600) MOD 60)
                DO
                        e = s + 1
                        IF s + 1 = 60 THEN e = 0
                        IF e = ((TIMER MOD 3600) MOD 60) THEN
                        IF bee$ = "y" OR bee$ = "Y" THEN BEEP
                        EXIT DO
                        END IF
                LOOP
        FOR r = 1 TO 10
                s = ((TIMER MOD 3600) MOD 60) - 15
                m = ((TIMER MOD 3600) \ 60) - 15
                h = (TIMER \ 3600) - 3
                LINE (320, 240)-(sy, sx), 0
                sx = 240 + 130 * SIN(s * 6 * (3.141593 / 180))
                sy = 320 + 130 * COS(s * 6 * (3.141593 / 180))
                LINE (320, 240)-(sy, sx), 4
                IF m = 60 THEN m = 0
                LINE (320, 240)-(my, mx), 0
                mx = 240 + 90 * SIN(m * 6 * (3.141593 / 180))
                my = 320 + 90 * COS(m * 6 * (3.141593 / 180))
                LINE (320, 240)-(my, mx), 9
                IF h = 12 THEN h = h - 12
                LINE (320, 240)-(hy, hx), 0
                hx = 240 + 60 * SIN(h * 30 * (3.141593 / 180))
                hy = 320 + 60 * COS(h * 30 * (3.141593 / 180))
                LINE (320, 240)-(hy, hx), 7
                LOCATE 2, 34
                PRINT h + 3; m + 15; s + 15
                a$ = INKEY$
                IF a$ = CHR$(27) THEN END
        NEXT
LOOP