Paso 3: Reloj Digital
[código]
'=====================================================================
' thetimeis
«Autor: computothought
'---------------------------------------------------------------------
' servicio de limpieza
' matrices
Dim blank$(7)
Dim num$(10,10)
Dim colon$(7)
' datos
$ 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) = "#"
'--------------------------------------------------------------------
' la lógica
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" # # # ###### # # # # ###### # #### #"
localizar 17,2: Imprimir ""
localizar 20,20: impresión colon$(1);
localizar 21,20: impresión colon$(2);
localizar 22,20: impresión colon$(3);
localizar 23,20: impresión colon$(4);
localizar 24,20: impresión colon$(5);
localizar 25,20: impresión colon$(6);
localizar 26,20: impresión colon$(7);
localizar 20.50: impresión colon$(1);
localizar 21.50: impresión colon$(2);
localizar 22,50: impresión colon$(3);
localizar 23,50: impresión colon$(4);
localizar 24,50: impresión colon$(5);
localizar 25,50: impresión colon$(6);
localizar 26,50: impresión colon$(7);
verdadero % = -1
mientras que el verdadero %
HRL$ = mid$ ($tiempo, 1, 1): minl$ = MID$ ($tiempo, 4, 1): secl$ = mid$ ($tiempo, 7.1)
HRR$ = mid$ ($tiempo, 2.1): minr$ = MID$ ($tiempo, 5, 1): secr$ = mid$ ($tiempo, 8.1)
' hora izquierda
localizar 20,1: imprimir num$(val(hrl$), 1);
localizar 21.1: imprimir num$(val(hrl$), 2);
localizar 22.1: imprimir num$(val(hrl$), 3);
localizar 23.1: imprimir num$(val(hrl$), 4);
localizar 24,1: imprimir num$(val(hrl$), 5);
localizar 25,1: imprimir num$(val(hrl$), 6);
localizar 26.1: imprimir num$(val(hrl$), 7);
' hora derecha
localizar 20,10: imprimir num$(val(hrr$), 1);
localizar 21,10: imprimir num$(val(hrr$), 2);
localizar 22,10: imprimir num$(val(hrr$), 3);
localizar 23,10: imprimir num$(val(hrr$), 4);
localizar 24,10: imprimir num$(val(hrr$), 5);
localizar 25,10: imprimir num$(val(hrr$), 6);
localizar 26,10: imprimir num$(val(hrr$), 7);
' minuto izquierda
localizar 20.30: imprimir num$(val(minl$), 1);
localizar 21,30: imprimir num$(val(minl$), 2);
localizar 22,30: imprimir num$(val(minl$), 3);
localizar 23,30: imprimir num$(val(minl$), 4);
localizar 24,30: imprimir num$(val(minl$), 5);
localizar 25,30: imprimir num$(val(minl$), 6);
localizar 26,30: imprimir num$(val(minl$), 7);
' minuto derecho
localizar 20,40: imprimir num$(val(minr$), 1);
localizar 21,40: imprimir num$(val(minr$), 2);
localizar 22,40: imprimir num$(val(minr$), 3);
localizar 23,40: imprimir num$(val(minr$), 4);
localizar 24,40: imprimir num$(val(minr$), 5);
localizar 25,40: imprimir num$(val(minr$), 6);
localizar 26,40: imprimir num$(val(minr$), 7);
' segunda a la izquierda
localizar 20,60: imprimir num$(val(secl$), 1);
localizar 21,60: imprimir num$(val(secl$), 2);
localizar 22,60: imprimir num$(val(secl$), 3);
localizar 23,60: imprimir num$(val(secl$), 4);
localizar 24,60: imprimir num$(val(secl$), 5);
localizar 25,60: imprimir num$(val(secl$), 6);
localizar 26,60: imprimir num$(val(secl$), 7);
' Segundo derecho
localizar 20,70: imprimir num$(val(secr$), 1);
localizar 21,70: imprimir num$(val(secr$), 2);
localizar 22.70: imprimir num$(val(secr$), 3);
localizar 23,70: imprimir num$(val(secr$), 4);
localizar 24,70: imprimir num$(val(secr$), 5);
localizar 25,70: imprimir num$(val(secr$), 6);
localizar 26,70: imprimir num$(val(secr$), 7);
WEND
[/ code]