STAMP BS 2 PBASIC 2 5 DIRA15 FOR

四個燈號依序個亮一秒 ' {$STAMP BS 2} ' {$PBASIC 2. 5} DIRA=15 FOR i=1 TO 3 OUTA=1 PAUSE 1000 OUTA=2 PAUSE 1000 OUTA=4 PAUSE 1000 OUTA=8 PAUSE 1000 OUTA=0 PAUSE 1000 *

四個燈號依序個亮一秒、循環三次 ' {$STAMP BS 2} ' {$PBASIC 2. 5} i VAR Word DIRA=15 FOR i=1 TO 3 OUTA=1 PAUSE 1000 OUTA=2 PAUSE 1000 OUTA=4 PAUSE 1000 OUTA=8 PAUSE 1000 OUTA=0 PAUSE 1000 NEXT

*7段顯示器 利用迴圈簡化版 *' {$STAMP BS 2} *' {$PBASIC 2. 5} *i VAR Word *DIRH=255 *DATA 119, 20, 179, 182, 212, 230, 231, 116, 247, 246, 119 *FOR i=0 TO 10 *READ(i), OUTH *PAUSE 1000 *NEXT *OUTH=0 *PAUSE 1000 *

*' {$STAMP BS 2} *' {$PBASIC 2. 5} *K VAR Word *I VAR Word *DIRH=255 *DIR 0=0 *K=IN 0 *DATA 119, 20, 179, 182, 212, 230, 231, 116, 247, 246 *IF K=0 THEN *FOR I=0 TO 8 STEP 2 *READ(I), OUTH *PAUSE 300 *NEXT *ELSEif K=1 THEN *FOR I=1 TO 9 STEP 2 *READ(I), OUTH *PAUSE 300 *NEXT *ENDIF 具 輸 入 選 擇 的 燈 號 亮 滅