Étape 7: Horloge binaire.
binclock.bas
[code]
'=================================================================
' horloge binaire par computothought
'
'--------------------------------------------------------
"entretien ménager
CLS
true % = -1
localiser 4,10 : imprimer "le temps est:" ; temps$; "." ;
localiser 7,20 : imprimer « Hexadécimal » ;
localiser 7,36 : imprimer « Binaire » ;
'--------------------------------------------------------
Boucle principale
tandis que vrai %
RH = val(left$(time$,2))
min = val(mid$(time$,4,2))
s = val(mid$(time$,7,2))
' heures
localiser 08,20 : imprimer "» ;
h$ = right$ ("" + hex$(hr),2)
localiser 08,10 : imprimer « Heures » ; : recherchez 08,20 : print $ hr ;
N = hr
GoSub Arnaud
BHR$ = $ CAN
localiser 08,30 : imprimer "» ;
localiser 08,30 : imprimer right$ ("" + bhr$, 16) ;
' mins
localiser les 10,20 : imprimer "» ;
min$ = right$ ("" + hex$(min),2)
localiser 10,10 : imprimer « Minutes » ; : recherchez 10,20 : print $ min ;
N = min
GoSub Arnaud
localiser 10,30 : imprimer "» ;
Bmin$ = $ CAN
localiser 10,30 : imprimer right$ ("" + bmin$, 16) ;
"secs
localiser 12,20 : imprimer "» ;
s$ = right$ ("" + hex$(sec),2)
localiser 12,10 : imprimer « Secondes » ; : recherchez 12,20 : print $ s ;
N = s
GoSub Arnaud
localiser 12,30 : imprimer "» ;
BSEC$ = $ CAN
localiser 12,30 : imprimer right$ ("" + CEMN$, 16) ;
Wend
'------------------------------------------------
' fin faux
localiser 14,1 : imprimer ;
fin
'------------------------------------------------
« sous-routines
Sophie :
C$=""
Tout en N <> 0
A = N MOD 2
B$ = STR$(A)
N = FIX(N / 2)
C$ = $ B + C$
WEND
retour
[/ code]