Avec le Logo de LCSI pour Apple II, il était possible de créer une horloge avec des aiguilles. Cette horloge était aussi réalisable avec le Logo écrit pour Goupil ; mais pas forcément la version écrite par ACT Informatique.
Bref, avec cette version (cf. Logo-Lego)
de Profil_Logo, ce n'est plus, soit possible, soit aussi simple. Du coup,
je propose une simple horloge digitale.
Pour les moins de 30 ans, le ;-) à Lip ne dira pas grand chose
; l'occasion d'effectuer une recherche conjointe sur Lip et l'année
1973...
Ceci [chacune de ces pages de programme proposé]
démontre :-) qu'en utilisant Logo, l'enseignant peut rebondir
sur toutes les matières au 'programme', et ce, de l'école
primaire à l'enseignement supérieur, voir, de sortir de ces
matières et d'enseigner ce qui compte, ce qui est important pour
les enfants ; particulièrement dans le contexte social actuel.
POUR TIME :H :M :S
SI EGAL? :S 60 [DONNE "S 0 DONNE "M :M + 1]
SI ET EGAL? :M 15 EGAL? :S 0 [CARIL]
SI ET EGAL? :M 30 EGAL? :S 0 [REPETE 2 [CARIL]]
SI ET EGAL? :M 45 EGAL? :S 0 [REPETE 3 [CARIL]]
SI EGAL? :M 60 [DONNE "M 0 DONNE "H :H + 1 SONNE :H]
SI EGAL? :H 24 [END EC [IL EST MINUIT, DOC !] STOP]
;;faut bien une fin, cette horloge tourne sur 24 heures...
EC PH PH :H :M :S
ATTENDS 18 ICI ;;le ATTENDS est à augmenter ou ralentir
;;suivant la puissance de votre Puce et de votre Horloge (MHz)
TIME :H :M :S + 1
FIN
POUR LIP ;;eh oui, en souvenir de 1973...
ME 25 VT
EC [DIS-MOI L'HEURE, DOC...] ;;du Tex Avery ?...
;;il faut bien mettre l'horloge à l'heure (l'initialiser)
DONNE "H PREM LL
EC [... ENTRES LES MINUTES, DOC...]
DONNE "M PREM LL
EC [... 'PAS OUBLIER LES SECONDES, DOC !]
DONNE "S PREM LL ;;cf. remarque sur LISNOMBRE
;;dans Table de multiplication
VT ICI
TIME :H :M :S
FIN
POUR SONNE :H ;;les heures (musique)
DUREE 11 TIMBRE 5 OCTAVE 4
REPETE :H [JOUE "DO ATTENDS 10]
FIN
POUR CARIL ;;carillon des 1/4, 1/2 et 3/4 d'heure
DUREE 11 TIMBRE 5 OCTAVE 4
JOUE "DOMISODO
FIN
POUR ICI ;;où commencer à écrire dans
l'écran...
FTCAR [1 1] FCURS [5 2] FCT 3 ;;en couleurs
EC[L'heure offerte,en LOGO,]
FCURS [5 3] EC [par Olivier S. C.]
FTCAR [2 2 ] FCURS [10 10] FCT 10
FIN
POUR END ;;fin "propre" (cf. anniversaire)
FTCAR [1 1] EC " FCT 1
FIN
En voici une capture écran : 
Passe passe le temps ... Gif animé et non programme ; mais un sacré
travail tout de même, trouvé sur une page Logo en Suisse (je
crois). Rien à voir avec les procédures de Papy Logo s'exécutant
sur un des sites du Réseau Logo
en Belgique.
 |
 | |