QB64.org Forum

Active Forums => Programs => Topic started by: Richard Frost on February 01, 2019, 11:46:27 am

Title: Simulation of a clock made in Quebec
Post by: Richard Frost on February 01, 2019, 11:46:27 am

Code: QB64: [Select]

1. DEFINT A-Z
2. DIM xo(3), x(3, 60), y(3, 60), k(3, 60)
3. xm = 639: xc = xm \ 2: xs = 180
4. ym = 479: yc = ym \ 2: ys = 240
5. q! = .67: xo(1) = xc - xs * q!: xo(2) = xc: xo(3) = xc + xs * q!
6. SCREEN 12: CLS
7. red = 4: yellow = 14: green = 10: z = 3
8. FOR c = 1 TO 3
9.     FOR a = 0 TO 59
10.         r! = ((a * 6) - 90) * ATN(1) / 45
11.         x(c, a) = xo(c) + (xs - 8) * COS(r!)
12.         y(c, a) = yc + (ys - 8) * SIN(r!)
13.         IF c = 2 THEN k = yellow ELSE k = red
14.         d = VAL(MID$("051015", (c - 1) * 2 + 1, 2))
15.         IF (a MOD d) = 0 THEN k = green
16.         k(c, a) = k
17.     NEXT a
18. NEXT c
19. DO: _LIMIT 10
20.     t$ = TIME$
21.     h = VAL(MID$(t$, 1, 2)): h = h + (h > 12) * 12
22.     m = VAL(MID$(t$, 4, 2))
23.     s = VAL(MID$(t$, 7, 2))
24.     FOR c = 1 TO 3
25.         IF c = 1 THEN t = h * 5 + m / 10
26.         IF c = 2 THEN t = m
27.         IF c = 3 THEN t = s
28.         FOR a = 0 TO 59
29.             IF a <= t THEN k = k(c, a) ELSE k = 0
30.             IF k <> POINT(x(c, a), y(c, a)) THEN
31.                 CIRCLE (x(c, a), y(c, a)), z, 7
32.                 PAINT (x(c, a), y(c, a)), 0, 7
33.                 CIRCLE (x(c, a), y(c, a)), z, k
34.                 PAINT (x(c, a), y(c, a)), k, k
35.             END IF
36.         NEXT a
37.     NEXT c
38.     DO: _LIMIT 10
39.         i$ = INKEY$
40.         IF i$ = "c" THEN CLS
41.         IF i$ = CHR$(27) THEN END
42.     LOOP UNTIL t$ <> TIME$
43. LOOP

Text Only | Text with Attachments