Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Cobalt on December 31, 2020, 01:13:24 pm

Title: A Simple Binary Display Clock
Post by: Cobalt on December 31, 2020, 01:13:24 pm
A Simplistic Binary Displayed Clock.

Code: QB64: [Select]
  1. 'Simple Binary Display Clock
  2. 'UniKorn ProDucKions 2020
  3. 'Last program of 2020 for me...
  4.  
  5. SCREEN _NEWIMAGE(640, 400, 32) 'Main Layer
  6. Clock& = _NEWIMAGE(640, 400, 32) 'Clock Base Layer
  7. Mix& = _NEWIMAGE(640, 400, 32) 'Composite Layer
  8. '---Draw Clock Base---
  9. _DEST Clock&
  10. Blank_Clock
  11. '---------------------
  12. _DEST Mix& 'draw only to mix layer
  13.  
  14. DO 'Run Our simple Binary Display Clock
  15.  _PUTIMAGE , Clock&, Mix& 'Place the blank clock
  16.  H$ = LEFT$(TIME$, 2) 'Get the Hours
  17.  M$ = MID$(TIME$, 4, 2) 'Get the Minutes
  18.  S$ = RIGHT$(TIME$, 2) 'Get the Seconds
  19.  MS$ = RIGHT$(STR$(TIMER), 2) 'Get The MilliSeconds
  20.  '"Light up" the LEDs
  21.  Light_Hour_LEDs H$
  22.  Light_Minute_LEDs M$
  23.  Light_Second_LEDs S$
  24.  Light_MilliSecond_LEDs MS$
  25.  '-------------------
  26.  _PUTIMAGE , Mix&, _DISPLAY 'Push our Clock to the display
  27.  _LIMIT 60
  29.  
  30. _DEST _DISPLAY 'Return Output to Screen layer
  31.  
  32.  
  33. SUB Blank_Clock
  34.  '------------------Blank LEDs---------------------
  35.  LINE (210, 100)-STEP(4, 4), _RGB32(80, 80, 80), BF 'hours 10s
  36.  LINE (210, 120)-STEP(4, 4), _RGB32(80, 80, 80), BF
  37.  LINE (220, 100)-STEP(4, 4), _RGB32(80, 80, 80), BF 'hours 1s
  38.  LINE (220, 120)-STEP(4, 4), _RGB32(80, 80, 80), BF
  39.  LINE (220, 140)-STEP(4, 4), _RGB32(80, 80, 80), BF
  40.  LINE (220, 160)-STEP(4, 4), _RGB32(80, 80, 80), BF
  41.  
  42.  LINE (260, 100)-STEP(4, 4), _RGB32(80, 80, 80), BF 'minutes 10s
  43.  LINE (260, 120)-STEP(4, 4), _RGB32(80, 80, 80), BF
  44.  LINE (260, 140)-STEP(4, 4), _RGB32(80, 80, 80), BF
  45.  LINE (270, 100)-STEP(4, 4), _RGB32(80, 80, 80), BF 'minutes 1s
  46.  LINE (270, 120)-STEP(4, 4), _RGB32(80, 80, 80), BF
  47.  LINE (270, 140)-STEP(4, 4), _RGB32(80, 80, 80), BF
  48.  LINE (270, 160)-STEP(4, 4), _RGB32(80, 80, 80), BF
  49.  
  50.  LINE (310, 100)-STEP(4, 4), _RGB32(80, 80, 80), BF 'seconds 10s
  51.  LINE (310, 120)-STEP(4, 4), _RGB32(80, 80, 80), BF
  52.  LINE (310, 140)-STEP(4, 4), _RGB32(80, 80, 80), BF
  53.  LINE (320, 100)-STEP(4, 4), _RGB32(80, 80, 80), BF 'seconds 1s
  54.  LINE (320, 120)-STEP(4, 4), _RGB32(80, 80, 80), BF
  55.  LINE (320, 140)-STEP(4, 4), _RGB32(80, 80, 80), BF
  56.  LINE (320, 160)-STEP(4, 4), _RGB32(80, 80, 80), BF
  57.  
  58.  LINE (360, 100)-STEP(4, 4), _RGB32(80, 80, 80), BF 'Milliseconds 10s
  59.  LINE (360, 120)-STEP(4, 4), _RGB32(80, 80, 80), BF
  60.  LINE (360, 140)-STEP(4, 4), _RGB32(80, 80, 80), BF
  61.  LINE (360, 160)-STEP(4, 4), _RGB32(80, 80, 80), BF
  62.  LINE (370, 100)-STEP(4, 4), _RGB32(80, 80, 80), BF 'Milliseconds 1s
  63.  LINE (370, 120)-STEP(4, 4), _RGB32(80, 80, 80), BF
  64.  LINE (370, 140)-STEP(4, 4), _RGB32(80, 80, 80), BF
  65.  LINE (370, 160)-STEP(4, 4), _RGB32(80, 80, 80), BF
  66.  '-------------------------------------------------
  67.  '----------------------Headers---------------------
  68.  LINE (210, 60)-STEP(4, 19), _RGB32(192, 192, 0), BF 'H
  69.  LINE (215, 68)-STEP(4, 4), _RGB32(192, 192, 0), BF
  70.  LINE (220, 60)-STEP(4, 19), _RGB32(192, 192, 0), BF
  71.  
  72.  LINE (260, 60)-STEP(4, 19), _RGB32(192, 192, 0), BF 'M
  73.  LINE (265, 64)-STEP(4, 4), _RGB32(192, 192, 0), BF
  74.  LINE (270, 60)-STEP(4, 19), _RGB32(192, 192, 0), BF
  75.  
  76.  LINE (320, 60)-STEP(4, 4), _RGB32(192, 192, 0), BF 'S
  77.  LINE (315, 65)-STEP(4, 4), _RGB32(192, 192, 0), BF
  78.  LINE (320, 70)-STEP(4, 4), _RGB32(192, 192, 0), BF
  79.  LINE (315, 75)-STEP(4, 4), _RGB32(192, 192, 0), BF
  80.  
  81.  LINE (350, 60)-STEP(4, 19), _RGB32(192, 192, 0), BF 'MS
  82.  LINE (355, 64)-STEP(4, 4), _RGB32(192, 192, 0), BF
  83.  LINE (360, 60)-STEP(4, 19), _RGB32(192, 192, 0), BF
  84.  LINE (375, 60)-STEP(4, 4), _RGB32(192, 192, 0), BF
  85.  LINE (370, 65)-STEP(4, 4), _RGB32(192, 192, 0), BF
  86.  LINE (375, 70)-STEP(4, 4), _RGB32(192, 192, 0), BF
  87.  LINE (370, 75)-STEP(4, 4), _RGB32(192, 192, 0), BF
  88.  '--------------------------------------------------
  90.  
  91. SUB Light_Hour_LEDs (Hour$)
  92.  Tens%% = VAL(LEFT$(Hour$, 1))
  93.  Ones%% = VAL(RIGHT$(Hour$, 1))
  94.  'tens LEDs
  95.  IF _READBIT(Tens%%, 0) THEN LINE (210, 100)-STEP(4, 4), _RGB32(255, 0, 0), BF 'for 12 hour clock
  96.  IF _READBIT(Tens%%, 1) THEN LINE (210, 120)-STEP(4, 4), _RGB32(255, 0, 0), BF 'for 24 hour clock
  97.  'Ones LEDs
  98.  IF _READBIT(Ones%%, 0) THEN LINE (220, 100)-STEP(4, 4), _RGB32(255, 0, 0), BF 'hours 1s
  99.  IF _READBIT(Ones%%, 1) THEN LINE (220, 120)-STEP(4, 4), _RGB32(255, 0, 0), BF
  100.  IF _READBIT(Ones%%, 2) THEN LINE (220, 140)-STEP(4, 4), _RGB32(255, 0, 0), BF
  101.  IF _READBIT(Ones%%, 3) THEN LINE (220, 160)-STEP(4, 4), _RGB32(255, 0, 0), BF
  103.  
  104. SUB Light_Minute_LEDs (Minute$)
  105.  Tens%% = VAL(LEFT$(Minute$, 1))
  106.  Ones%% = VAL(RIGHT$(Minute$, 1))
  107.  'tens LEDs
  108.  IF _READBIT(Tens%%, 0) THEN LINE (260, 100)-STEP(4, 4), _RGB32(255, 0, 0), BF '
  109.  IF _READBIT(Tens%%, 1) THEN LINE (260, 120)-STEP(4, 4), _RGB32(255, 0, 0), BF '
  110.  IF _READBIT(Tens%%, 2) THEN LINE (260, 140)-STEP(4, 4), _RGB32(255, 0, 0), BF '
  111.  'Ones LEDs
  112.  IF _READBIT(Ones%%, 0) THEN LINE (270, 100)-STEP(4, 4), _RGB32(255, 0, 0), BF '
  113.  IF _READBIT(Ones%%, 1) THEN LINE (270, 120)-STEP(4, 4), _RGB32(255, 0, 0), BF
  114.  IF _READBIT(Ones%%, 2) THEN LINE (270, 140)-STEP(4, 4), _RGB32(255, 0, 0), BF
  115.  IF _READBIT(Ones%%, 3) THEN LINE (270, 160)-STEP(4, 4), _RGB32(255, 0, 0), BF
  117.  
  118. SUB Light_Second_LEDs (Second$)
  119.  Tens%% = VAL(LEFT$(Second$, 1))
  120.  Ones%% = VAL(RIGHT$(Second$, 1))
  121.  'tens LEDs
  122.  IF _READBIT(Tens%%, 0) THEN LINE (310, 100)-STEP(4, 4), _RGB32(255, 0, 0), BF '
  123.  IF _READBIT(Tens%%, 1) THEN LINE (310, 120)-STEP(4, 4), _RGB32(255, 0, 0), BF '
  124.  IF _READBIT(Tens%%, 2) THEN LINE (310, 140)-STEP(4, 4), _RGB32(255, 0, 0), BF '
  125.  'Ones LEDs
  126.  IF _READBIT(Ones%%, 0) THEN LINE (320, 100)-STEP(4, 4), _RGB32(255, 0, 0), BF '
  127.  IF _READBIT(Ones%%, 1) THEN LINE (320, 120)-STEP(4, 4), _RGB32(255, 0, 0), BF
  128.  IF _READBIT(Ones%%, 2) THEN LINE (320, 140)-STEP(4, 4), _RGB32(255, 0, 0), BF
  129.  IF _READBIT(Ones%%, 3) THEN LINE (320, 160)-STEP(4, 4), _RGB32(255, 0, 0), BF
  131.  
  132. SUB Light_MilliSecond_LEDs (MilliSecond$)
  133.  Tens%% = VAL(LEFT$(MilliSecond$, 1))
  134.  Ones%% = VAL(RIGHT$(MilliSecond$, 1))
  135.  'tens LEDs
  136.  IF _READBIT(Tens%%, 0) THEN LINE (360, 100)-STEP(4, 4), _RGB32(255, 0, 0), BF '
  137.  IF _READBIT(Tens%%, 1) THEN LINE (360, 120)-STEP(4, 4), _RGB32(255, 0, 0), BF '
  138.  IF _READBIT(Tens%%, 2) THEN LINE (360, 140)-STEP(4, 4), _RGB32(255, 0, 0), BF '
  139.  IF _READBIT(Tens%%, 3) THEN LINE (360, 160)-STEP(4, 4), _RGB32(255, 0, 0), BF '
  140.  'Ones LEDs
  141.  IF _READBIT(Ones%%, 0) THEN LINE (370, 100)-STEP(4, 4), _RGB32(255, 0, 0), BF '
  142.  IF _READBIT(Ones%%, 1) THEN LINE (370, 120)-STEP(4, 4), _RGB32(255, 0, 0), BF
  143.  IF _READBIT(Ones%%, 2) THEN LINE (370, 140)-STEP(4, 4), _RGB32(255, 0, 0), BF
  144.  IF _READBIT(Ones%%, 3) THEN LINE (370, 160)-STEP(4, 4), _RGB32(255, 0, 0), BF
Title: Re: A Simple Binary Display Clock
Post by: SierraKen on January 01, 2021, 12:21:26 am
Pretty interesting Cobalt, probably way over my head on how to use it, but pretty neat!
Text Only | Text with Attachments