Souhaiter les
anniversaires avec Logo
POUR INIT ;;à lancer. Procédure permettant
;;à l'Animateur de dire à Logo pour qui est le message
ME 25 VT
EC [Ecris le message à transmettre.] ;;saisire le (les)
;;prénom(s) de(s) élève(s) dont c'est l'anniversaire
DONNE "MES LL VT
EC " EC "PAPY DONNE "R LISCAR ;;permet d'attendre
que le
;;groupe d'élèves soit dans la salle
ANIV
FIN
POUR MAIL :COL :MES ;;les souhaits en couleurs
SI :COL > 15 [END STOP] ;;cette version Logo_Profil
;;n'a que 15 couleurs
FCT :COL
FCURS [5 15]
EC :MES
ATTENDS .5
MAIL :COL + 1 :MES
FIN
POUR ANIV
VT FTCAR [2 2] FCURS [1 5]
FCT 3 EC [JOYEUX ANNIVERSAIRE]
MAIL 0 :MES
FIN
POUR ZOLI
FCURS [5 15]
MAIL 1 :MES
FIN
POUR END
FCURS [9 19] FCT 6 EC [! ! ! ! !] ;;ici car je les veux
;;d'une autre couleur
DUREE 6 TIMBRE 15 OCTAVE 4 ;;et : en musique, s.v.p.
JOUE "DODOREDO
OCTAVE 3 JOUE "FA DUREE 22 JOUE "MI
DUREE 6 OCTAVE 4
JOUE "DODOREDOSO DUREE 22 JOUE "FA
DUREE 8 JOUE "DODOLASOFAMI
DUREE 14 JOUE "RE
DUREE 10 JOUE "FAFAMIDORE
JOUE "DO
EC " FTCAR [1 1] FCT 1 ;;une fin "propre" !
FIN
Voici une copie écran d'un anniversaire tout juste souhaité.
Toujours pas de musique, ici, pour les raisons données en page précédente
:
 |
 | |