Paso 5: código
Escriba el código siguiente que se muestra a continuación.' {$STAMP BS2}
' {$PBASIC 2.5}
PIN DE TX 0
#SELECT $STAMP
BS2 #CASE
T19K2 CON 32
#ENDSELECT
LcdBkSpc CON $08 ' mover cursor a la izquierda
LcdRt CON $09 ' desplazar cursor a la derecha
LcdLF CON $0A ' mover cursor hacia abajo de la 1 línea
LcdCls CON $0 C ' limpiar LCD (uso pausa 5 después)
LcdCR CON $0D ' movimiento pos 0 de la línea siguiente
LcdBLon CON $11 ' contraluz en
LcdBLoff CON $12 ' sin retroiluminación
LcdOff CON $15 ' LCD apagado
LcdOn1 CON $16 ' LCD; cursor off, parpadeo off
LcdOn2 CON $17 ' LCD; cursor off, parpadeo en
LcdOn3 CON $18 ' LCD; cursor en blindfgdfk off
LcdOn4 CON $19 ' LCD; cursor en abrir y cerrar de
LcdLine1 CON $80 ' mover a la línea 1, columna 0
LcdLine2 CON $94 ' mover a la línea 2, columna 0
charIn VAR Byte ' de entrada de usuario
velocidad VAR Word ' baudios para la LCD Serial
' --- --- -----------
S0 PIN 3' A
S1 PIN 15' B
PASADOR 6' C
LE LED PIN 4
S2 PIN 8' E
S3 PIN 5' F
' -----[ Constants ]-------------------------------------------------------
' Definir períodos de recuento para cada color. Ajustar estas lecturas poco menos
' 255 para una hoja de papel blanco.
13 CON pRED ' período de lectura rojo.
pGREEN CON 12 ' período de lectura verde.
pBLUE CON 11 ' período azul lectura.
' -----[ Variables ]-------------------------------------------------------
ROJO VAR Word ' lectura de color rojo.
VERDE VAR Word ' verde lectura de color.
AZUL VAR Word ' azul lectura de color.
ALTA S0 ' tarifa de salida máxima.
HIGH S1 ' "
LED alta ' enciende LED.
velocidad en baudios = T19K2
principal:
HACER
SEROUT TX, baudios, [LcdBLon]
PAUSE 500
GOSUB Color ' obtener los datos de color y salida para DEBUG.
DEBUG "R", DEC3 ROJO
DEBUG "G", DEC3 VERDE
DEBUG "B", DEC3 AZUL
DEPURACIÓN CR
SEROUT TX, velocidad en baudios, ["R", DEC3 rojo] ' enviar char/num a LCD
SEROUT TX, velocidad en baudios, ["G", DEC3 verde]
SEROUT TX, velocidad en baudios, ["B", DEC3 azul]
PAUSE 500
FINAL
LAZO
FINAL
' -----[ Initialization ]--------------------------------------------------
ALTA S0 ' tarifa de salida máxima.
HIGH S1 ' "
LED alta ' enciende LED.
' -----[ Program Code ]----------------------------------------------------
' Color: leer todos los componentes de tres colores.
Color:
BAJO S2 ' dirección de la salida del rojo.
S3 BAJA
La cuenta hacia fuera, pRED, rojo ' leer el componente rojizo.
ALTA S3 ' dirección de la salida azul.
La cuenta hacia fuera, pBLUE, azul ' leer el componente azul.
ALTA S2 ' dirección de la salida de verde.
La cuenta hacia fuera, pGREEN, verde ' leer el componente verde.
VOLVER
