点字をプログラムで遊ぶ小学生！小中学生プログラミング大会展示で会った小学生と次への挑戦状

2018-10-22

Space Apps Challengeの日、東京で開催されていた小中学生プログラミング大会の展示＆表彰式！

micro:bitのマトリクスLEDに点字に見た、点字メーカー by 越智晃瑛くん
腕に付けたコンピューターを傾けて文字を選択、光センサーで隠して点字化、振って点字を送信！
大人がわからない暗号で、メッセージし合うって、ワクワクしますね！
「全国小中学生プログラミング大会、ゲーム作品が最高賞」
準グランプリ、おめでとう！

巻物上に印刷された、ソースコード！
点字といえば長谷川さん開発の体表点字！ぜひ試してみてね
「体表点字で点字をスピーディーにラーニング！」

点字を解読するマシーン、キーボード編ということで、ブラインドタッチのホームポジション、SDF JKLを使って、6点の点字をトグルさせて、その点字が表すカタカナを表示するプログラムを作ってみました。

「点字解読カナ編 RUN on IchigoJam web」

まずは、キーボードで押して、点字を画面に出すところ。

100 CLS 101 FOR I=0 TO 5 102 LC 13+I%2*5,7+I/2*5:IF 32>>I&N ?CHR$(233) ELSE ?CHR$(232) 103 NEXT 110 K=INKEY():IF!KCONT 120 IF K=ASC(" ") N=0 130 IF K=ASC("F") N=N^32 140 IF K=ASC("J") N=N^16 150 IF K=ASC("D") N=N^8 160 IF K=ASC("K") N=N^4 170 IF K=ASC("S") N=N^2 180 IF K=ASC("L") N=N^1 190 GOTO100

点字を2進数6桁で表します。100〜103行で場所を指定(LC)して、黒丸か白丸で表示！
110〜180行で押されたキーに対応するビットをXOR(^)演算して反転します。
（参考、IchigoJamのオリジナルキャラづくりで覚える、2進数）

100〜103行、数式を使ったテクニックを使うと1行に凝縮することもできます。

100 CLS:FORI=0TO5:LC13+I%2*5,7+I/2*5:?CHR$(233-!(32>>I&N)):NEXT

次にこの点字を解読してみましょう！
6桁2進数を全部IF文で判定する形や、テーブルにしてチェックする方法でもOKですが、母音と子音ご3点ずつ分かれているカナ点字の性質を使って、コンパクトに判定。 Nに点字を入れて、GOSUB200でCに対応するカナが入るプログラムがこちら。

200 LET[0],`010010,`010011,`010110,`000010,`000110,`000111 210 C=0:FORI=0TO5:IF N=[I] LET[0],212,213,214,220,166,221:C=[I] 220 NEXT:IF C RTN 230 LET[0],`000,`001,`101,`110,`010,`011,`111,`100 240 C=-1:FORI=0TO7:IF N&`111=[I] C=177+I*5-(I=7)*2 250 NEXT:IF C<0 C=0:RTN 260 F=0:LET[0],`100,`101,`110,`111,`011 270 FORI=0TO4:IF N>>3=[I] C=C+I:F=1 280 NEXT:IF F=0 C=0 290 RTN

* 7 = `111 とIchigoJamでは表記する、2進数とASCIIコードが肝！

2つのプログラムをつなげて、できあがり！

105 GOSUB 200:LC15,3:?CHR$(C)

キーボードで使うキーを表示すると、操作がちょっとわかりやすくなりますね。

106 LC12,19:?"SDF JKL"

IchigoJamの入力(IN)を使って、物理ボタンで入力できるようにしたり、AquesTalk picoでしゃべらせたり、いろいろ遊んでみてください！

子供のはじめての自動販売機 by 佐藤空汰くん
近づくとしゃべってくれる改良型！入選おめでとう！