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

Différence avec l'exercice précédent, une seule led s'allume

donnant un effet de chenillard.



L'astuce consiste ici à utiliser le registre OUTL du STAMP2.

En changeant les valeurs de ce registre, nous allons agir directement

sur l'état des leds. Un "1" allumera les leds, et un "0" les éteindra.



Le compteur sera en fait un compteur de 0 à 7, et sera utilisé comme

puissance de 2. En effet :

	2^0 = 1	: Led 1 allumée

	2^1 = 2	: Led 2 allumée

	2^2 = 4	: Led 3 allumée

	2^3 = 8	: Led 4 allumée

	2^4 = 16	: Led 5 allumée

	2^5 = 32	: Led 6 allumée

	2^6 = 64	: Led 7 allumée

	2^7 = 128	: Led 8 allumée

Ce qui correspond à chaque fois à une seule led allumée.



Comme l'expression exposant n'existe pas dans le basic STAMP2

nous allons utiliser l'expression << n qui est en fait un décalage

à gauche de n position, ce qui en calcul binaire correspond à une

élévation à la puissance n de 2.

En effet, si l'on prend le nombre binaire %00000001

et qu'on le décale trois fois vers la gauche, on obtient

%00001000, soit 8 en décimal, ou encore 2^3



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



Structure du programme



BEGIN



DECLARE i as nibble

DECLARE outl AS Byte



LET i = 0

DO WHILE i <= 7

	PAUSE 100 ms

	outl = 2 ^ i

	LET i = i + 1

ENDDO



END



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



'Listing du programme pour le STAMP2



i	VAR	NIB

FOR i=0 TO 7

outl = 1 << i

PAUSE 100

NEXT

END