"ditt val" (5 / 6 steg)
Steg 5: kod
Skriv i följande kod visas nedan."{$STAMP BS2}
"{$PBASIC 2.5}
TX PIN 0
#SELECT $STAMP
#CASE BS2
T19K2 CON 32
#ENDSELECT
LcdBkSpc CON $08 ' flytta markören åt vänster
LcdRt CON $09 ' flytta markören höger
LcdLF CON $0A ' flytta markören ned 1 rad
LcdCls CON $0 C ' Rensa LCD (Använd PAUSE 5 efter)
LcdCR CON $0D ' flytta pos 0 av nästa rad
LcdBLon CON $11 ' bakgrundsbelysning på
LcdBLoff CON $12 ' bakgrundsbelysning av
LcdOff CON $15 ' LCD-off
LcdOn1 CON $16 ' LCD på; markören off, blink off
LcdOn2 CON $17 "LCD på; markören off, blink på
LcdOn3 CON $18 ' LCD på; markören på blindfgdfk utanför
LcdOn4 CON $19 "LCD på; markören på, blink på
LcdLine1 CON $80 ' flytta till linje 1, kolumn 0
LcdLine2 CON $94 ' flytta till rad 2, kolumn 0
Marcus VAR Byte "indata från användaren
baud VAR ordet "baudhastighet för seriell LCD
' --- --- -----------
S0 PIN 3' A
S1 PIN 15' B
REDA PÅ PIN 6' C
LED STIFT 4 SKULLE
S2 PIN 8' E
S3 PIN 5' F
' -----[ Constants ]-------------------------------------------------------
' Definiera antal perioder för varje färg. Justera dessa för avläsningar strax under
"255 för ett vitt pappersark.
pRED CON 13 ' röda behandlingen period.
pGREEN CON 12 "gröna behandlingen period.
pBLUE CON 11 ' blå behandlingen period.
' -----[ Variables ]-------------------------------------------------------
RÖD VAR ordet "röda färg läsning.
GRÖN VAR ordet "grön färg läsning.
BLÅ VAR ordet "blå färg läsning.
HÖG S0 "maximal output ränta.
HÖG S1 ""
HÖG LED "slå på LED.
baud = T19K2
viktigaste:
GÖRA
SEROUT TX, baud, [LcdBLon]
PAUSA 500
GOSUB färg ' Hämta färgdata för, och produktionen till DEBUG.
FELSÖKA "R", DEC3 RÖDA
DEBUG G, DEC3 GRÖN
FELSÖKA "B", DEC3 BLÅ
FELSÖKA HP
SEROUT TX, baud, ["R", DEC3 RED] ' Skicka char/num till LCD
SEROUT TX, baud, ["G", DEC3 grön]
SEROUT TX, baud, ["B", DEC3 blå]
PAUSA 500
SLUTET
LOOP
SLUTET
' -----[ Initialization ]--------------------------------------------------
HÖG S0 "maximal output ränta.
HÖG S1 ""
HÖG LED "slå på LED.
' -----[ Program Code ]----------------------------------------------------
"Färg: Läs alla tre färgkomponenterna.
Färg:
LÅG S2 ' adress röda utdata.
LÅGA S3
RÄKNA ut, pRED, röd ' läsa den röda komponenten.
HÖG S3 ' adress blå utdata.
RÄKNA ut, pBLUE, blå ' läsa den blå komponenten.
HÖG S2 ' adress gröna utdata.
RÄKNA ut, pGREEN, grön "läsa den gröna komponenten.
RETURNERA