Wow. Nice work! When I get some time, I will have to plug this in when I get some time. Yes, you are right about the resistors. Thanks

BTW, with the homework board, you don’t need the resistors, just make sure that the long leads of the LED’s are installed nearest the ports.

Have fun!

Try this:

‘{$STAMP BS2}
‘{$PBASIC 2.5}

‘Vehicle Stoplight Controller w/Pedestrian Signals
‘Author: Bob Holden – EAWF 7/7/2009
‘==================================================
‘ Initialization

‘ LED Setup:
‘ North/South Signals:
‘ Walk Signals:
NSPG PIN 0 ‘P0 – Green
NSPR PIN 1 ‘P1 – Red
‘ Traffic Signals:
NSTG PIN 3 ‘P3 – Green
NSTY PIN 4 ‘P4 – Yellow
NSTR PIN 5 ‘P5 – Red

‘ East/West Signals:
‘ Walk Signals:
EWPG PIN 10 ‘P10 – Green
EWPR PIN 11 ‘P11 – Red
‘ Traffic Signals:
EWTG PIN 13 ‘P13 – Green
EWTY PIN 14 ‘P14 – Yellow
EWTR PIN 15 ‘P15 – Red

second CON 1000 ‘Length of Second in Milliseconds

x VAR Word ‘Counters
y VAR Word

direction VAR Word : direction = 0 ‘current directional state

Start:
GOSUB Test
GOSUB AllRed
PAUSE 5*second

Main:
DO
GOSUB AllRed
PAUSE 3*second
SELECT direction
CASE 0
TOGGLE NSTR
TOGGLE NSTG
TOGGLE NSPR
TOGGLE NSPG
PAUSE 10*second
TOGGLE NSPG
FOR x = 0 TO 18
TOGGLE NSPR
PAUSE second/2
NEXT
PAUSE second*2
TOGGLE NSTG
TOGGLE NSTY
PAUSE 3*second
direction = 1
CASE 1
TOGGLE EWTR
TOGGLE EWTG
TOGGLE EWPR
TOGGLE EWPG
PAUSE 10*second
TOGGLE EWPG
FOR x = 0 TO 18
TOGGLE EWPR
PAUSE second/2
NEXT
PAUSE second*2
TOGGLE EWTG
TOGGLE EWTY
PAUSE 3*second
direction = 0
ENDSELECT
LOOP
END

‘ SUBROUTINES
AllRed:
GOSUB AllOff
HIGH NSTR
HIGH EWTR
HIGH NSPR
HIGH EWPR
RETURN
END

Test:
FOR y = 0 TO 3
FOR x = 0 TO 15
‘ Valid Lights @ 0,1,3,4,5,10,11,13,14,15
IF (x=2 OR x=6 OR x=7 OR x=8 OR x=9 OR x=12) THEN Skipit
TOGGLE x
PAUSE second/10
Skipit:
NEXT
NEXT
RETURN
END

AllOff:
FOR x = 1 TO 15
LOW x
NEXT
RETURN
END

AllOn:
FOR x = 1 TO 15
HIGH x
NEXT
RETURN
END