Deleted
Deleted Member
Posts: 0
|
Post by Deleted on Jul 12, 2021 10:46:56 GMT -5
10 rem _Title "THE MATHEMATICAL ANALOG CLOCK VERSION 3 - WITHOUT CALIBRATION"
20 rem originally developed in QB AND QB64
30 rem 'DEVELOPED 2/17/2019 IN QBASIC BY RON77 AND MISHKA AND ITAY :)
40 rem mod to BBC BASIC BY RON77 IN 12/07/2021
50
60 mode 21
70 origin 800,600
80 rem
90 rem input "what hour is it?: " hour
100 rem input "what minute is it?: " minute
110 rem sec = 0
120 Time$ = time$
130 hour = valmid$(Time$,17,2) mod 12
140 minute = valmid$(Time$,20,2)
150 sec = valmid$(Time$,23,2)
160
170
180
190 hour = hour + minute / 60 + sec / 3600
200 minute = minute + sec / 60
210
220 pi1 = pi
230
240 clg
250 print time$
260 print "press ESC to exit "
270
280 circle 320, 240, 200
290 circle 320, 240, 215
300 for j% = 0 to 59
310 line (320 + 190 * cos((90 - j% * 6) * 2 * pi1 / 360)), (240 - 190 * sin((90 - j% * 6) * 2 * pi1 / 360)),((320 + 200 * cos((90 - j% * 6) * 2 * pi1 / 360))), (240 - 200 * sin((90 - j% * 6) * 2 * pi1 / 360))
320 next
330 for i% = 0 to 11
340 line (320 + 205 * cos((90 - i% * 30) * 2 * pi1 / 360)), (240 - 205 * sin((90 - i% * 30) * 2 * pi1 / 360)),((320 + 210 * cos((90 - i% * 30) * 2 * pi1 / 360))), (240 - 210 * sin((90 - i% * 30) * 2 * pi1 / 360))
350 next
360
370 t = 90 - sec * 6
380 t1 = 90 - minute * 6
390 t2 = 90 - hour * 30
400
410 line 320, 240,(320 + 200 * cos(t * 2 * pi1 / 360)), (240 + 200 * sin(t * 2 * pi1 / 360))
420 line 320, 240,(320 + 180 * cos(t1 * 2 * pi1 / 360)), (240 + 180 * sin(t1 * 2 * pi1 / 360))
430 line 320, 240,(320 + 120 * cos(t2 * 2 * pi1 / 360)), (240 + 120 * sin(t2 * 2 * pi1 / 360))
440 wait 100
450
460 sec = sec + 1
470 minute = minute + (1 / 60)
480 hour = hour + (1 / 3600)
490
500
510 goto 230
520
|
|
