Gamla laptop (eller pc) i en klocka. (3 / 9 steg)
Steg 3: Digital klocka
[code]
'=====================================================================
"thetimeis
"författare: computothought
'---------------------------------------------------------------------
"städning
"matriser
Dim blank$(7)
Dim num$(10,10)
Dim colon$(7)
"data
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) = "#"
'--------------------------------------------------------------------
"logiken
CLS
Leta upp 10,2: skriva ut "#"
Leta upp 11,2: skriva ut "### ## ### ### ### ### # ### # #"
Leta upp 12,2: skriva ut "###### ## ## ### #"
Leta upp 13,2: skriva ut "# ### ### ### ## # ### # ###"
Leta upp 14,2: skriva ut "########### #"
Leta upp 15,2: skriva ut "############# #"
Leta upp 16,2: skriva ut "### ### #### ### # ### #"
Leta upp 17,2: skriva ut ""
Leta upp 20,20: skriva ut colon$(1);
Leta upp 21,20: skriva ut colon$(2);
Leta upp 22.20: skriva ut colon$(3);
Leta upp 23,20: skriva ut colon$(4);
Leta upp 24,20: skriva ut colon$(5);
Leta upp 25,20: skriva ut colon$(6);
Leta upp 26,20: skriva ut colon$(7);
Leta upp 20,50: skriva ut colon$(1);
Leta upp 21,50: skriva ut colon$(2);
Leta upp 22,50: skriva ut colon$(3);
Leta upp 23,50: skriva ut colon$(4);
Leta upp 24,50: skriva ut colon$(5);
Leta upp 25,50: skriva ut colon$(6);
Leta upp 26,50: skriva ut colon$(7);
True % = -1
medan true %
HRL$ = mitten av$ (tid$, 1,1): minl$ = MID$ (tid$, 4, 1): secl$ = mitten av$ (tid$, 7,1)
HRR$ = mitten av$ (tid$, 2,1): minr$ = MID$ (tid$, 5, 1): secr$ = mitten av$ (tid$, 8,1)
"timme kvar
Leta upp 20,1: skriva ut num$(val(hrl$), 1);
Leta upp 21,1: skriva ut num$(val(hrl$), 2);
Leta upp 22,1: skriva ut num$(val(hrl$), 3);
Leta upp 23,1: skriva ut num$(val(hrl$), 4);
Leta upp 24,1: skriva ut num$(val(hrl$), 5);
Leta upp 25,1: skriva ut num$(val(hrl$), 6);
Leta upp 26,1: skriva ut num$(val(hrl$), 7);
"timme rätt
Leta upp 20,10: skriva ut num$(val(hrr$), 1);
Leta upp 21,10: skriva ut num$(val(hrr$), 2);
Leta upp 22,10: skriva ut num$(val(hrr$), 3);
Leta upp 23,10: skriva ut num$(val(hrr$), 4);
Leta upp 24,10: skriva ut num$(val(hrr$), 5);
Leta reda på 25,10: skriva ut num$(val(hrr$), 6);
Leta upp 26,10: skriva ut num$(val(hrr$), 7);
' minuten vänster
Leta upp 20.30: skriva ut num$(val(minl$), 1);
Leta upp 21.30: skriva ut num$(val(minl$), 2);
Leta upp 22,30: skriva ut num$(val(minl$), 3);
Leta upp 23,30: skriva ut num$(val(minl$), 4);
Leta upp 24,30: skriva ut num$(val(minl$), 5);
Leta upp 25,30: skriva ut num$(val(minl$), 6);
Leta upp 26,30: skriva ut num$(val(minl$), 7);
' minuten höger
Leta upp 20,40: skriva ut num$(val(minr$), 1);
Leta upp 21,40: skriva ut num$(val(minr$), 2);
Leta upp 22,40: skriva ut num$(val(minr$), 3);
Leta upp 23,40: skriva ut num$(val(minr$), 4);
Leta upp 24,40: skriva ut num$(val(minr$), 5);
Leta upp 25,40: skriva ut num$(val(minr$), 6);
Leta upp 26,40: skriva ut num$(val(minr$), 7);
"andra vänster
Leta upp 20,60: skriva ut num$(val(secl$), 1);
Leta upp 21,60: skriva ut num$(val(secl$), 2);
Leta upp 22,60: skriva ut num$(val(secl$), 3);
Leta upp 23,60: skriva ut num$(val(secl$), 4);
Leta upp 24,60: skriva ut num$(val(secl$), 5);
Leta upp 25,60: skriva ut num$(val(secl$), 6);
Leta upp 26,60: skriva ut num$(val(secl$), 7);
"Andra höger
Leta upp 20,70: skriva ut num$(val(secr$), 1);
Leta upp 21,70: skriva ut num$(val(secr$), 2);
Leta upp 22,70: skriva ut num$(val(secr$), 3);
Leta upp 23,70: skriva ut num$(val(secr$), 4);
Leta upp 24,70: skriva ut num$(val(secr$), 5);
Leta upp 25,70: skriva ut num$(val(secr$), 6);
Leta upp 26,70: skriva ut num$(val(secr$), 7);
wend
[/code]