and here i take my 1500$ machine and transform it to a 19.99$ analog kitchen clock lol!
special thanks to Mishka (michael kunin) my roommate and to my teacher itay for their help... this was my first qb64 program...
Code: Select all
'_TITLE "THE MATHEMATICAL ANALOG CLOCK VERSION 3 - WITHOUT CALIBRATION"
SCREEN 12
'DEVELOPED 2/17/2019 IN QBASIC BY RON77 AND MISHKA AND ITAY :)
CONST True = 1
CONST False = 0
DIM SHARED hour, minute, sec, pi
hour = VAL(LEFT$(TIME$, 2))
minute = VAL(MID$(TIME$, 4, 2))
sec = VAL(RIGHT$(TIME$, 2))
hour = hour + minute / 60 + sec / 3600
minute = minute + sec / 60
pi = 3.14159265
Sub clock
DO
CLS
PRINT TIME$
PRINT "press ESC to exit "
CIRCLE (320, 240), 200
CIRCLE (320, 240), 215
FOR j = 0 TO 59
LINE (320 + 190 * COS((90 - j * 6) * 2 * pi / 360), 240 - 190 * SIN((90 - j * 6) * 2 * pi / 360))-(320 + 200 * COS((90 - j * 6) * 2 * pi / 360), (240 - 200 * SIN((90 - j * 6) * 2 * pi / 360)))
NEXT
FOR i = 0 TO 11
LINE (320 + 205 * COS((90 - i * 30) * 2 * pi / 360), 240 - 205 * SIN((90 - i * 30) * 2 * pi / 360))-(320 + 210 * COS((90 - i * 30) * 2 * pi / 360), (240 - 210 * SIN((90 - i * 30) * 2 * pi / 360)))
NEXT
t = 90 - sec * 6
t1 = 90 - minute * 6
t2 = 90 - hour * 30
LINE (320, 240)-(320 + 200 * COS(t * 2 * pi / 360), (240 - 200 * SIN(t * 2 * pi / 360)))
LINE (320, 240)-(320 + 180 * COS(t1 * 2 * pi / 360), (240 - 180 * SIN(t1 * 2 * pi / 360)))
LINE (320, 240)-(320 + 120 * COS(t2 * 2 * pi / 360), (240 - 120 * SIN(t2 * 2 * pi / 360)))
SLEEP (1)
sec = sec + 1
minute = minute + (1 / 60)
hour = hour + (1 / 3600)
k$ = INKEY$
IF k$ = CHR$(32) THEN set = True: EXIT SUB
IF k$ = CHR$(27) THEN END
LOOP
END SUB
CLS
clock