Ordinateur portable de la vieille (ou pc) dans une horloge. (3 / 9 étapes)

Étape 3: Horloge digitale

Compiler le code suivant dans le qb45 ou le compilateur freebasic.  (c:\ > fbc-lang qb digiclock.bas). Nous avons utilisé la bannière, toilettes et les commandes figlet linux pour obtenir l' art ascii , que nous avions besoin. Préparer l’art ascii est la partie la plus difficile du programme. Reste a été simple.

[code]
'=====================================================================
' thetimeis
' auteur : computothought
'---------------------------------------------------------------------
"entretien ménager
« tableaux
Dim blank$(7)
Dim num$(10,10)
Dim colon$(7)

« données
$ 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 logique
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"    #    #    #  ######       #       #    #    #  ######    #     ####     #"
localiser les 17,2 : imprimer ""

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

localiser 20,50 : imprimer colon$(1) ;
localiser 21,50 : imprimer colon$(2) ;
localiser 22,50 : imprimer colon$(3) ;
localiser 23,50 : imprimer colon$(4) ;
localiser 24,50 : imprimer colon$(5) ;
localiser 25,50 : imprimer colon$(6) ;
localiser 26,50 : imprimer colon$(7) ;

true % = -1
tandis que vrai %

HRL$ = mid$ (TIME$, 1, 1): mini$ = MID$ ($heure, 4, 1): secl$ = mid$ ($ de l’heure, 7,1)
HRR$ = mid$ ($heure, 2,1): minr$ = MID$ ($heure, 5, 1): secr$ = mid$ (temps$ 8,1)

' heure à gauche
localiser les 20,1 : imprimer num$(val(hrl$), 1) ;
localiser les 21,1 : imprimer num$(val(hrl$), 2) ;
localiser 22,1 : imprimer des num$(val(hrl$), 3) ;
localiser 23,1 : imprimer des num$(val(hrl$), 4) ;
localiser les 24,1 : imprimer num$(val(hrl$), 5) ;
localiser les 25,1 : imprimer des num$(val(hrl$), 6) ;
localiser les 26,1 : imprimer num$(val(hrl$), 7) ;

' heure droite
localiser 20,10 : imprimer num$(val(hrr$), 1) ;
localiser les 21,10 : imprimer num$(val(hrr$), 2) ;
localiser 22,10 : imprimer des num$(val(hrr$), 3) ;
localiser 23,10 : imprimer des num$(val(hrr$), 4) ;
localiser 24,10 : imprimer num$(val(hrr$), 5) ;
localiser 25,10 : imprimer des num$(val(hrr$), 6) ;
localiser 26,10 : imprimer num$(val(hrr$), 7) ;

' minute gauche
localiser 20,30 : imprimer num$(val(minl$), 1) ;
localiser 21,30 : imprimer num$(val(minl$), 2) ;
localiser 22,30 : imprimer des num$(val(minl$), 3) ;
localiser 23,30 : imprimer des num$(val(minl$), 4) ;
localiser 24,30 : imprimer num$(val(minl$), 5) ;
localiser 25,30 : imprimer des num$(val(minl$), 6) ;
localiser 26,30 : imprimer num$(val(minl$), 7) ;

' minute droit
localiser 20,40 : imprimer num$(val(minr$), 1) ;
localiser 21,40 : imprimer num$(val(minr$), 2) ;
localiser 22,40 : imprimer des num$(val(minr$), 3) ;
localiser 23,40 : imprimer des num$(val(minr$), 4) ;
localiser 24,40 : imprimer num$(val(minr$), 5) ;
localiser 25,40 : imprimer des num$(val(minr$), 6) ;
localiser 26,40 : imprimer num$(val(minr$), 7) ;

« deuxième à gauche
localiser 20,60 : imprimer num$(val(secl$), 1) ;
localiser 21,60 : imprimer num$(val(secl$), 2) ;
localiser 22,60 : imprimer des num$(val(secl$), 3) ;
localiser 23,60 : imprimer des num$(val(secl$), 4) ;
localiser 24,60 : imprimer num$(val(secl$), 5) ;
localiser 25,60 : imprimer des num$(val(secl$), 6) ;
localiser 26,60 : imprimer num$(val(secl$), 7) ;

« Deuxième à droite
localiser 20,70 : imprimer num$(val(secr$), 1) ;
localiser 21,70 : imprimer num$(val(secr$), 2) ;
localiser les 22,70 : imprimer des num$(val(secr$), 3) ;
localiser 23,70 : imprimer des num$(val(secr$), 4) ;
localiser 24,70 : imprimer num$(val(secr$), 5) ;
localiser 25,70 : imprimer des num$(val(secr$), 6) ;
localiser 26,70 : imprimer num$(val(secr$), 7) ;
Wend
[/ code]