SHIROのIchigoJam日記

マイコン「IchigoJam」(イチゴジャム)の電子工作とプログラミングをメインに

みなさん、よいお年を(^_^)/~~~

皆さん、素敵なクリスマスを迎えられたでしょうか。
今年も残り1週間。よい新年をお迎えください。


【IchigoJam】みなさん、よいお年を

※締めくくりとして、「IchigoJam Advent Calendar 2018」の12/25にエントリーしました。
https://qiita.com/advent-calendar/2018/ichigojam

Ichigo鉄琴:曲データ「第九」

10 '*Tekkin - Daiku
20 LET [ 0],#103,#103,#104,#105,#105,#104,#103,#102
30 LET [ 8],#101,#101,#102,#103,#103,#200,#202,#102,#100
40 LET [17],#103,#103,#104,#105,#105,#104,#103,#102
50 LET [25],#101,#101,#102,#103,#102,#200,#201,#101,#100
60 LET [34],#102,#102,#103,#101,#102,#203,#204,#103,#101
70 LET [43],#102,#203,#204,#103,#102,#101,#102,#100,#103
80 LET [52],#103,#103,#104,#105,#105,#104,#103,#102
90 LET [60],#101,#101,#102,#103,#102,#200,#201,#101,#100
100 L=68
110 LRUN 0,G

LED Tree

※この記事は「IchigoJam Advent Calendar 2018」にエントリーしています。

LED Star」「LED Heart」に続く、LEDイルミネーション基板シリーズ第3弾、クリスマスツリー形です。
f:id:shiro0922:20181224130620j:plain

IchigoJam用シールドとして、オリジナル基板を作りました。
f:id:shiro0922:20181225081422p:plain

f:id:shiro0922:20181225081438p:plain

f:id:shiro0922:20181224103506j:plain
「AUTO」のパッドは、ジャンパーでつなぐとBTN端子がGNDにつながって、プログラムが自動起動するようになります。

情報センターのギャラリーにも展示しました(^_^)
f:id:shiro0922:20181224134010j:plain

基板データ

*この基板ガーバーデータは、CC BYライセンスとします。どうぞご利用ください。

(C) 2018 Shiro Saito (https://www.ichigojaman.jp)

プログラム

パターンとランダムで光ります。

10 '*LED Tree
20 @LOOP
30 FOR I=1 TO 11:OUT I,0:NEXT
40 FOR I=1 TO 11
50 OUT I,1
60 WAIT 10
70 NEXT
80 FOR I=1 TO 11
90 OUT I,0
100 WAIT 10
110 NEXT
120 FOR I=1 TO 10
130 L=0
140 FOR J=1 TO 12
150 L=L<<1+!RND(4)
160 NEXT
170 OUT L
180 WAIT 60
190 NEXT
200 GOTO @LOOP

立形信号機

IchigoJamの14ピンソケットに立てるタイプの信号機です。
動かしてみた動画はこちら。

【IchigoJam】立形信号機

f:id:shiro0922:20181223112129j:plain

車用・歩行者用それぞれの専用基板を作りました。
車用には光センサー(フォトトランジスタ)、歩行者用には圧電ブザーが付いています。
(PCN三重・チーム伊勢さんが販売する信号機と差別化 ^_^; )
f:id:shiro0922:20181223225602p:plain

f:id:shiro0922:20181223225616p:plain

f:id:shiro0922:20181223225533p:plain

f:id:shiro0922:20181223225546p:plain

f:id:shiro0922:20181222165750j:plain

f:id:shiro0922:20181223112448j:plain

プログラム

動かし方はプログラム次第ですが、動画のプログラムはこちら。

10 'TRAFFIC LIGHT MELODY
20 VIDEO 0,30:OUT 0
30 OUT 1,1
40 OUT 5,1
45 IF ANA(2)<300 GSB 300:GOTO 60
50 IF !BTN() GOTO 45
60 OUT 1,0
70 OUT 2,1
80 WAIT 4
90 OUT 2,0
100 OUT 3,1
110 WAIT 4
120 OUT 5,0
130 OUT 6,1
140 VIDEO 0,1
150 PLAY "O4L8 E2E4D4E4ED>B2 <F4FFA4FEFEDDE2 FFFF4AFEFEDDE2"
160 WAIT 720
170 FOR I=1 TO 3
180 OUT 6,1
190 PLAY "F4"
200 WAIT 30
210 OUT 6,0
220 PLAY "B4"
230 WAIT 30
240 NEXT
250 VIDEO 0,30
260 OUT 5,1
270 WAIT 4
280 OUT 3,0
290 GOTO 30
300 OUT 1,0
310 OUT 2,1
320 WAIT 1
330 OUT 2,0
340 WAIT 1
350 IF ANA(2)<300 GOTO 300
360 RTN

プログラミングテキスト

十勇士パソコンクラブのページで、プログラミングテキストを公開しています。www.white.umic.jp