Tako can fry!

とほほ・・・

E-BASIC(仮) (5)

そろそろ進み具合も遅くなってきたかな。


DELAY コマンドを使うと、LED チカチカはもっと簡単になった。
(代入関係も多少改善。)

LED: GPIOC PIN6 OUT
MAIN: LOOP
  LED = 1 - LED
  DELAY 100
ENDLOOP

これで 100ms 置きに LED を反転させるプログラムの出来上がり。


ふたつの LED を交互に光らせたい場合はこんな感じに。

LEDRED: GPIOC PIN7 OUT
LEDGRN: GPIOC PIN8 OUT
MAIN: LOOP
  LEDRED = 1 - LEDRED
  LEDGRN = 1 - LEDGRN
  DELAY 100
ENDLOOP


連続した代入も扱えるようにして、7セグのような配列の扱いも楽に。

SEG7ARY: ARRAY 129 237 67 73 45 25 17 141 1 9
SEG7: DATA GPIOD 0 1 2 3 4 5 6 7 OUT
COUNTER: VAL 0
MAIN: LOOP
  SEG7 = SEG7ARY = COUNTER
  DELAY 100
  COUNTER = COUNTER + 1
  IF COUNTER >= 10
    COUNTER = 0
  ENDIF
ENDLOOP