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

'

'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.

'

'

'Structure du programme

'

'BEGIN

'

'DECLARE outl AS Byte

'

'LET outl = 0

'DO WHILE outl <= 255

'  PAUSE 100 ms

'  LET outl = outl + 1

'ENDDO

'

'END

'

'









































'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



'Definition des variables de travail

I  VAR   BYTE

J  VAR   BYTE

K  VAR   BYTE

L  VAR   BYTE



'Initialisation du systeme

INS = 0

OUTS = 0





FOR OUTL=0 TO 255

PAUSE 100

NEXT

END