Stap 3: Basic stamp program
Programma notities.De belangrijkste dingen om te weten over het programma zijn dat 1s betekenen het lampje brandt en 0s betekenen dat het licht is uitgeschakeld. De DelayTime-variabele kunt u instellen hoe lang het programma licht blijft in- of uitschakelen. U moet de 1s en 0s instellen in paren om de sets van de ogen effect.
' {$STAMP BS2}
' ==============================================================================
'
' Bestand... LEDBlinkingEyes
' Doel... LED's knipperen
' Auteur... Mike Goodman
' E-mail...
' Begonnen...
' Bijgewerkt... 10 24 2008
'
'
' ==============================================================================
' ------------------------------------------------------------------------------
' Program beschrijving
' I/o-definities
' ------------------------------------------------------------------------------
LEDs VAR OUTS' LEDs op pennen 0 - 7
' ------------------------------------------------------------------------------
' Constanten
' ------------------------------------------------------------------------------
DelayTime-CON 2000' vertragingstijd in milliseconden
' ------------------------------------------------------------------------------
' Variabelen
' ------------------------------------------------------------------------------
teller VAR Byte
' ------------------------------------------------------------------------------
' Initialisatie
' ------------------------------------------------------------------------------
Initialiseren:
DIRS = % 1111111111111111' make pinnen 0 - 7 uitgangen
' ------------------------------------------------------------------------------
' Program Code
' ------------------------------------------------------------------------------
Hoofdpodium:
LEDs = % 1111111111111111
PAUZE DelayTime ' onderbreken voordat het volgende nummer
LEDs = % 1100000011001111
PAUZE DelayTime
LEDs = % 0011111100110000
PAUZE DelayTime
LEDs = % 1100110011001100
PAUZE DelayTime
GOTO Main ' nog een keer doen
EINDE
