Una solución a la acidificación del suelo (3 / 7 paso)

Paso 3: Código de ejemplo

' {$STAMP BS2}

' {$PBASIC 2.0} hacia fuera CON 7

S3 CON 0

S2 CON 1

LED CON 5

pRED CON 15

pGREEN CON 12

pBLUE CON 9

ROJO VAR palabra

VERDE VAR palabra

AZUL VAR palabra

Inicio: Alto LED

MainLp:

GOSUB Color DEBUG "R", DEC3 rojo DEBUG "G", DEC3 verde "B", DEC3 azul DEBUG CR GOTO MainLp Color de depuración:

BAJO S2 bajo S3 cuenta hacia fuera, pRED, rojo alta S3 cuenta hacia fuera, pBLUE, azul alta S2 COUNT Out, pGREEN, verde

VOLVER

IF rojo = 200 a 260, verde = 100 a 200, azul = 100 a 200 entonces baja 1

IF rojo = 0, verde = 0, azul = 1 entonces alta 100 a 260

IF rojo = 160 y 80, verde = 20 a 50, azul = baja entonces de 130 a 260 1