公民館でのプログラミング教室で、IchigoJamだらけのクリスマス会。
全員がクリスマス会の 「作り手」 で、全員がクリスマス会の 「参加者」 。
こういうことができるのも、IchigoJamの醍醐味の一つですよね♪
↓↓↓ラインナップはコチラ↓↓↓
- ドローンでお菓子釣り（Tello × MixJuice × IchigoJam）
- クリスマスっぽいキラキラ装飾（フルカラーLED ×IchigoJam）
- クリスマス音楽（300円スピーカー × IchigoJam）
室内の空調なども含め、空中の操作の難しさを改めて肌で感じた子も多かったようです。
ドローンの風で、軽いお菓子が飛ばされるのもやってみないとわからないところ。
そんな中で、お菓子をGetできた子は嬉しそうでした。
【ドローンラジコン】
10 ?"MJ APC TELLO-B550AE
20 WAIT300
30 C="MJ UDP 192.168.10.1 8889 "
40 ?STR$(C);"command":WAIT120
50 S=0:IF INKEY()!=0 GOTO50
60 K=INKEY():CLK
70 IF K=32&&S=0 ?STR$(C);"takeoff":S=1:GOTO60
80 IF K=32&&S=1 ?STR$(C);"land":S=0:GOTO60
90 IF K=30 ?STR$(C);"forward 50"
100 IF K=31 ?STR$(C);"back 50"
110 IF K=28 ?STR$(C);"left 50"
120 IF K=29 ?STR$(C);"right 50"
130 IF K=65 ?STR$(C);"up 30"
140 IF K=90 ?STR$(C);"down 30"
150 WAIT30:GOTO60
【操作】
スペースキー：離陸／着陸
↑キー：前進
↓キー：後退
←キー：左へ水平移動
→キー：右へ水平移動
Aキー：上昇
Zキー：下降
60行目の CLK がなにげにポイント。
こどもたちは、テンションが上がってくると、ついついキーを連打してしまうのでドローンに命令がいき過ぎないアイデアです。
【フルカラーLED】
10 FOR I=0 TO 30
20 LET[I*3],RND(30),RND(30),RND(30)
30 NEXT
40 WS.LED30,100
50 WAIT40
60 GOTO10
【ジングルベル】
10 PLAY"T112O4 R2 C8C8A8G8F8CR8 C8C8A8G8F8DR8 D8D8B-8A8G8ER8 <C8D8C8>B-8G8AR8 C8C8A8G8F8CR8 C8C8A8G8F8 DR8 D8D8B-8A8G8<C8C8C8C8 D8C8>B-8G8F.R8 "
20 IF SOUND() WAIT3:CONT
30 PLAY"T112O4 A8A8AA8A8A A8<C8>F8.G16AR8 B-8B-8B-8.B-16B-8A8A8A16A8 A8G8G8F8G8<C. >A8A8AA8A8A A8<C8>F8.G16AR8 B-8B-8B-8.B-16B-8A8A8A8 <C8 C8 >B-8G8 F."
40 IF SOUND() WAIT7:CONT
50 WAIT60:GOTO10
番外編
準備をしている中で、知った便利機能。
GigaIchigoDakeは カトラリーアップス を使えばPCでプログラムを書き込み可能で、コピペでコードがはれる！！（イベントの準備とかで、重宝しそうです）
