WowWee van Elvis Alive aan het Elivinator Project (29 / 64 stap)

Stap 29: Eye fade in- en uitzoomen test

Hier is de code voor dit:

' {$STAMP BS2}
' {$PBASIC 2.5}
' Dit programma stelt de helderheid van het oog en verdwijnt in en de
pwmduty VAR Byte
pwmout PIN 6 ' LED verbonden naar P6

"init
pwmduty = 0 ' taakcyclus ingesteld op 0

runhigh:
DO WHILE pwmduty < 255 ' dutycycle blijven toenemen tot 255 is bereikt
PWM PWMout, pwmduty, 15' uitvoeren om spanning op LED verlagen laatste # voor sneller
pwmduty = pwmduty + 1 ' Verhoog taakcyclus door 1
LOOP

runlow:
IF pwmduty > = 255 dan pwmduty = 254 ' taakcyclus ingesteld op 254
DO WHILE pwmduty > = 1 ' blijven dalen spanning op LED
PWM pwmout, pwmduty, 25' lopen naar het verminderen van de spanning op LED laatste # voor sneller stijgen
pwmduty = pwmduty-1 ' cyclus door 1 verlagen
LOOP
PAUZE 2000
GOTO runhigh ' Herbegin