Oude laptop (of pc) in een klok. (3 / 9 stap)

Stap 3: Digitale klok

De volgende code in de qb45 of de freebasic compiler te compileren.  (c:\ > fbc-lang qb digiclock.bas). Wij de banner, toilet en de figlet opdrachten op linux gebruikt om de ascii kunst die we nodig hadden. Voorbereiding van de ascii -kunst was het moeilijkste gedeelte van het programma. Rest was simpel.

[code]
'=====================================================================
' thetimeis
' Auteur: computothought
'---------------------------------------------------------------------
' housekeeping
' arrays
Dim blank$(7)
Dim num$(10,10)
Dim colon$(7)

' gegevens
num$ (0, 1) = "###"
num$ (0, 2) = "##"
num$ (0, 3) = "# # #"
num$ (0, 4) = "# # #"
num$ (0, 5) = "# # #"
num$ (0, 6) = "##"
num$ (0, 7) = "###"

num$ (1, 1) = "#"
num$ (1, 2) = "##"
num$ (1, 3) = "##"
num$ (1, 4) = "#"
num$ (1, 5) = "#"
num$ (1, 6) = "#"
num$ (1, 7) = "###"

num$ (2, 1) = "###"
num$ (2, 2) = "# #"
num$ (2, 3) = "#"
num$ (2, 4) = "###"
num$ (2, 5) = "#"
num$ (2, 6) = "#"
num$ (2, 7) = "###"

num$ (3, 1) = "###"
num$ (3, 2) = "# #"
num$ (3, 3) = "#"
num$ (3, 4) = "###"
num$ (3, 5) = "#"
num$ (3, 6) = "# #"
num$ (3, 7) = "###"

num$ (4, 1) = "#"
num$ (4, 2) = "# #"
num$ (4, 3) = "# #"
num$ (4, 4) = "###"
num$ (4, 5) = "#"
num$ (4, 6) = "#"
num$ (4, 7) = "#"

num$ (5, 1) = "###"
num$ (5, 2) = "#"
num$ (5, 3) = "#"
num$ (5, 4) = "###"
num$ (5, 5) = "#"
num$ (5, 6) = "# #"
num$ (5, 7) = "###"

num$ (6, 1) = "###"
num$ (6, 2) = "# #"
num$ (6, 3) = "#"
num$ (6, 4) = "###"
num$ (6, 5) = "# #"
num$ (6, 6) = "# #"
num$ (6, 7) = "###"

num$ (7, 1) = "###"
num$ (7, 2) = "# #"
num$ (7, 3) = "#"
num$ (7, 4) = "#"
num$ (7, 5) = "#"
num$ (7, 6) = "#"
num$ (7, 7) = "#"

num$ (8, 1) = "###"
num$ (8, 2) = "# #"
num$ (8, 3) = "# #"
num$ (8, 4) = "###"
num$ (8, 5) = "# #"
num$ (8, 6) = "# #"
num$ (8, 7) = "###"

num$ (9, 1) = "###"
num$ (9, 2) = "# #"
num$ (9, 3) = "# #"
num$ (9, 4) = "###"
num$ (9, 5) = "#"
num$ (9, 6) = "# #"
num$ (9, 7) = "###"

Colon$(1) = "#"
Colon$(2) = "# #"
Colon$(3) = "#"
Colon$(4) = ""
Colon$(5) = "#"
Colon$(6) = "# #"
Colon$(7) = "#"

'--------------------------------------------------------------------
' de logica
CLS
locate 10,2: print"                                                                            #"
locate 11,2: print"  #####  #    #  ######     #####     #    #    #  ######    #     ####    # #"
locate 12,2: print"    #    #    #  #            #       #    ##  ##  #         #    #         #"
locate 13,2: print"    #    ######  #####        #       #    # ## #  #####     #     ####"
locate 14,2: print"    #    #    #  #            #       #    #    #  #         #         #    #"
locate 15,2: print"    #    #    #  #            #       #    #    #  #         #    #    #   # #"
locate 16,2: print"    #    #    #  ######       #       #    #    #  ######    #     ####     #"
Zoek 17,2: afdrukken ""

Zoek 20,20: afdrukken van colon$(1);
Zoek 21,20: afdrukken van colon$(2);
Zoek 22,20: afdrukken van colon$(3);
Zoek 23,20: afdrukken van colon$(4);
Zoek 24,20: afdrukken van colon$(5);
Zoek 25,20: afdrukken van colon$(6);
Zoek 26,20: afdrukken van colon$(7);

Zoek 20,50: afdrukken van colon$(1);
Zoek 21,50: afdrukken van colon$(2);
Zoek 22,50: afdrukken van colon$(3);
Zoek 23,50: afdrukken van colon$(4);
zoeken 24,50: afdrukken van colon$(5);
Zoek 25,50: afdrukken van colon$(6);
Zoek 26,50: afdrukken van colon$(7);

ware % = -1
terwijl de echte %

HRL$ = mid$ (tijd$, 1,1): minl$ = MID$ (tijd$, 4, 1): secl$ = mid$ (tijd$, 7,1)
HRR$ = mid$ (tijd$, 2,1): minr$ = MID$ (tijd$, 5, 1): secr$ = mid$ (tijd$, 8,1)

' uur
Zoek 20,1: afdrukken van num$(val(hrl$), 1);
Zoek 21,1: afdrukken van num$(val(hrl$), 2);
Zoek 22,1: afdrukken van num$(val(hrl$), 3);
Zoek 23,1: afdrukken van num$(val(hrl$), 4);
Zoek 24,1: afdrukken van num$(val(hrl$), 5);
Zoek 25,1: afdrukken van num$(val(hrl$), 6);
Zoek 26,1: afdrukken van num$(val(hrl$), 7);

' uur juiste
Zoek 20,10: afdrukken van num$(val(hrr$), 1);
Zoek 21,10: afdrukken van num$(val(hrr$), 2);
Zoek 22,10: afdrukken van num$(val(hrr$), 3);
Zoek 23,10: afdrukken van num$(val(hrr$), 4);
Zoek 24,10: afdrukken van num$(val(hrr$), 5);
Zoek 25,10: afdrukken van num$(val(hrr$), 6);
Zoek 26,10: afdrukken van num$(val(hrr$), 7);

' minute links
Zoek 20,30: afdrukken van num$(val(minl$), 1);
Zoek 21,30: afdrukken van num$(val(minl$), 2);
Zoek 22,30: afdrukken van num$(val(minl$), 3);
Zoek 23,30: afdrukken van num$(val(minl$), 4);
Zoek 24,30: afdrukken van num$(val(minl$), 5);
Zoek 25,30: afdrukken van num$(val(minl$), 6);
Zoek 26,30: afdrukken van num$(val(minl$), 7);

' minute recht
Zoek 20,40: afdrukken van num$(val(minr$), 1);
Zoek 21,40: afdrukken van num$(val(minr$), 2);
Zoek 22,40: afdrukken van num$(val(minr$), 3);
Zoek 23,40: afdrukken van num$(val(minr$), 4);
Zoek 24,40: afdrukken van num$(val(minr$), 5);
Zoek 25,40: afdrukken van num$(val(minr$), 6);
Zoek 26,40: afdrukken van num$(val(minr$), 7);

' tweede links
Zoek 20,60: afdrukken van num$(val(secl$), 1);
Zoek 21,60: afdrukken van num$(val(secl$), 2);
Zoek 22,60: afdrukken van num$(val(secl$), 3);
Zoek 23,60: afdrukken van num$(val(secl$), 4);
Zoek 24,60: afdrukken van num$(val(secl$), 5);
Zoek 25,60: afdrukken van num$(val(secl$), 6);
Zoek 26,60: afdrukken van num$(val(secl$), 7);

' Tweede rechts
Zoek 20,70: afdrukken van num$(val(secr$), 1);
Zoek 21,70: afdrukken van num$(val(secr$), 2);
Zoek 22,70: afdrukken van num$(val(secr$), 3);
Zoek 23,70: afdrukken van num$(val(secr$), 4);
Zoek 24,70: afdrukken van num$(val(secr$), 5);
Zoek 25,70: afdrukken van num$(val(secr$), 6);
Zoek 26,70: afdrukken van num$(val(secr$), 7);
wend
[/ code]