; Experiment-002-3Color-LED-ON-OFF.bas #picaxe 28X2 ; Define the MCU ; Declare Constants, Variables and Devices * * * * * * * * * * * * * * * symbol RLED = B.7 symbol GLED = B.6 symbol BLED = B.5 symbol i = b0 ; Initialze Constants, Variables and Devices * * * * * * * * * * * * * * * gosub LEDsOFF ; BEGIN Main Body * * * * * * * * * * * * * * * do gosub red pause 1000 ; wait 1 second gosub green pause 1000 ; wait 1 second gosub blue pause 1000 ; wait 1 second gosub Orange pause 1000 ; wait 1 second gosub Teal pause 1000 ; wait 1 second gosub Police pause 1000 ; wait 1 second loop ; loop back to start again ; END Main Body * * * * * * * * * * * * * * * * end ; BEGIN LED Subroutines * * * * * * * * * * * * * * * LEDsOFF: high RLED ; switch RED OFF high GLED ; switch Green OFF high BLED ; switch Blue OFF return red: low RLED ; switch RED ON high GLED ; switch Green OFF high BLED ; switch Blue OFF return green: high RLED ; switch RED OFF low GLED ; switch Green ON high BLED ; switch Blue OFF return blue: high RLED ; switch RED OFF high GLED ; switch Green OFF low BLED ; switch Blue On return Teal: high RLED ; switch RED OFF low GLED ; switch Green OFF low BLED ; switch RED ON return Orange: low RLED ; switch RED ON low GLED ; switch Green ON HIGH BLED ; switch Blue OFF return Police: For i = 0 to 4 gosub red pause 50 gosub LEDsOFF pause 50 gosub red pause 50 gosub LEDsOFF pause 100 gosub blue pause 50 gosub LEDsOFF pause 50 gosub blue pause 50 gosub LEDsOFF pause 100 next i return ; END LED Subroutines * * * * * * * * * * * * * * * * end