Stap 5: Code
Typ in de volgende code hieronder weergegeven.' {$STAMP BS2}
' {$PBASIC 2.5}
TX PIN 0
#SELECT $STAMP
#CASE BS2
T19K2 CON 32
#ENDSELECT
LcdBkSpc CON $08 ' naar links van de cursor verplaatsen
LcdRt CON $09 ' cursor naar rechts bewegen
LcdLF CON $0A "cursor 1 regel omlaag gaan
LcdCls CON $0 C ' duidelijk LCD (gebruik pauze 5 na)
LcdCR CON $0D ' beweging pos 0 van volgende regel
LcdBLon CON $11 ' verlichting op
LcdBLoff CON $12 ' verlichting uitschakelen
LcdOff CON $15 ' LCD uit
LcdOn1 CON $16 ' LCD; cursor uitschakelen, knipperen af
LcdOn2 CON $17 "LCD op; cursor uitschakelen, knipperen op
LcdOn3 CON $18 ' LCD; cursor op, blindfgdfk uit
LcdOn4 CON $19 ' LCD; cursor op, blink op
LcdLine1 CON $80 ' verplaatsen naar lijn 1, kolom 0
LcdLine2 CON 94 dollar ' verplaatsen naar lijn 2, kolom 0
charIn VAR Byte ' input van de gebruiker
baud VAR Word ' baud-rate voor seriële LCD
' --- --- -----------
S0 PIN 3' A
S1 PIN 15' B
UIT PIN 6' C
LED PIN 4 ZOU
S2 PIN 8' E
S3 PIN 5' F
' -----[ Constants ]-------------------------------------------------------
' Aantal periodes voor elke kleur definiëren. Worden aangepast voor lezingen amper
' 255 voor een wit vel papier.
pRED CON 13 ' rode lezing periode.
pGREEN CON 12 ' groene lezing periode.
pBLUE CON 11 ' blauwe lezing periode.
' -----[ Variables ]-------------------------------------------------------
RODE VAR Word ' rode kleur lezing.
GROENE VAR Word ' groene kleur lezing.
BLAUWE VAR Word ' Blue kleur lezing.
HOGE S0 ' Maximum output tarief.
HIGH S1 ' "
HOGE LED ' LED inschakelen.
baud = T19K2
belangrijkste:
DOEN
SEROUT TX, baud, [LcdBLon]
PAUZE 500
GOSUB kleur ' krijgen de kleurgegevens, en output naar DEBUG.
DEBUG "R", DEC3 ROOD
DEBUG "G", DEC3 GROEN
DEBUG "B", DEC3 BLAUW
DEBUG CR
SEROUT TX, baud, ["R", DEC3 RED] ' char/num verzenden LCD
SEROUT TX, baud, ["G", DEC3 groen]
SEROUT TX, baud, ["B", DEC3 blauw]
PAUZE 500
EINDE
LOOP
EINDE
' -----[ Initialization ]--------------------------------------------------
HOGE S0 ' Maximum output tarief.
HIGH S1 ' "
HOGE LED ' LED inschakelen.
' -----[ Program Code ]----------------------------------------------------
' Kleur: Lees alle drie kleurcomponenten.
Kleur:
LAGE S2 ' de rode uitgang te pakken.
LAAG S3
COUNT OUT, pRED, rode ' lezen van de rode component.
HOOG S3 ' adres van de blauwe uitgang.
COUNT OUT, pBLUE, BLUE ' Lees de blauwcomponent.
HOGE S2 ' adres van de groene uitgang.
COUNT OUT, pGREEN, groene ' Lees de groencomponent.
TERUGKEER
