Créer un compteur binaire visuel avec les 8 leds de la carte MI

Une seule led s'allume, à la fois, mais lorsque la dernière led

s'allume, le processus est inversé et l'on décompte au lieu de

compter donnant un effet de lampe qui renondit comme le chenillard

de la célèbre voiture du feuilleton K2000



Comme pour l'exercice 02-2 l'astuce consiste à utiliser le registre

OUTL du STAMP2, et l'instruction << (décalage à gauche) du STAMP2.



*******************************************************************************



Structure du programme



BEGIN



DECLARE i as nibble

DECLARE a as bit

DECLARE outl AS Byte



LET i = 0            ' Initialisation du compteur

DO WHILE a=a         ' debut de la boucle infinie

   DO WHILE i <= 6   ' comptage de 0 à 6

      PAUSE 250 ms   ' pause pour ralentir l'affichage

      outl = 2 ^ i   ' allumage de la led correspondante

      LET i = i + 1  ' incrementation du compteur

   ENDDO             ' bouclage de l'aller (en sortie, i vaut 7)

   DO WHILE i > 0    ' decomptage de 7 à 1

      PAUSE 250 ms   ' pause pour ralentir l'affichage

      outl = 2 ^ i   ' allumage de la led correspondante

      LET i = i - 1  ' decrementation du compteur

   ENDDO             ' bouclage du retour (en sortie, i vaut 0)

ENDDO                ' fin de la boucle infinie



END                  ' fin du programme

























































'******************************************************************************



'Programme d'utilisation de la carte Micro-info



'Description de l'electronique utilisee

'P0  : Led a travers Resistance de 330 Ohms

'P1  : Led a travers Resistance de 330 Ohms

'P2  : Led a travers Resistance de 330 Ohms

'P3  : Led a travers Resistance de 330 Ohms

'P4  : Led a travers Resistance de 330 Ohms

'P5  : Led a travers Resistance de 330 Ohms

'P6  : Led a travers Resistance de 330 Ohms

'P7  : Led a travers Resistance de 330 Ohms

'P8  : 47 nF a +5V et Pot de 10K Ohms a la Masse a travers 10 Ohms

'P9  : 47 nF a la Masse et Pot de 10K Ohms a +5V a travers 10 Ohms

'P10 : Interupteur a +5V ou Masse a travers 10K Ohms

'P11 : Haut-parleur a travers condensateur de 10 æF

'P12 : Resistance 100K Pull-UP avec poussoir a la Masse a travers 10K Ohms

'P13 : Resistance 100K Pull-UP avec poussoir a la Masse a travers 10K Ohms

'P14 : Resistance 100K Pull-Down avec poussoir a +5V a travers 10K Ohms

'P15 : Resistance 100K Pull-Down avec poussoir a +5V a travers 10K Ohms



'Definition des entrees-sorties

OUTPUT 0

OUTPUT 1

OUTPUT 2

OUTPUT 3

OUTPUT 4

OUTPUT 5

OUTPUT 6

OUTPUT 7

OUTPUT 8

OUTPUT 9

INPUT 10

OUTPUT 11

INPUT 12

INPUT 13

INPUT 14

INPUT 15





i  VAR   NIB



debut:   FOR i=0 TO 6      ' comptage de 0 à 6

            outl = 1 << i  ' allumage de la led correspondante

            PAUSE 250      ' pause pour ralentir l'affichage

         NEXT              ' bouclage de l'aller

         FOR i=7 TO 1      ' decomptage de 7 à 1

            outl = 1 << i  ' allumage de la led correspondante

            PAUSE 250      ' pause pour ralentir l'affichage

         NEXT              ' bouclage du retour

         GOTO debut        ' fin de la boucle infinie

         END               ' fin du programme