Facebookの「IchigoJam-FAN」グループで、2進数を表示するそろばんプログラムを公開された方がいたので、私もIchigoJamで作ってみました。
珠をパチパチ動かすとなかなか面白いです(^_^)
使い方
- プログラムを実行すると、8桁のそろばんが表示されます。それぞれ2進数の桁になっていて、下に2進数・10進数・16進数の数字が表示されます。
- カーソルキーの左←右→でカーソルが左右に動きます。スペースキーを押すと、その桁の珠が上下に動いて0と1が切り替わります。
- そろばんの下の2進数・10進数・16進数が、そろばんを動かすとどんな値になるか、観察してみてください。
プログラム
10 '*BIN SOROBAN 20 CLV:VIDEO 3 30 GSB @SOROBAN 40 @LOOP 50 LC 7-B,4-[B],1 60 K=INKEY() 70 IF !K GOTO @LOOP 80 B=B+(K=28)*(B<7)-(K=29)*(B>0) 90 IF K=32 [B]=![B]:GSB @SOROBAN 100 GOTO @LOOP 110 @SOROBAN 120 CLS 130 ?"1" 140 ?"2631" 150 ?"84268421" 160 FOR J=7 TO 0 STEP -1 170 LC 7-J,3 180 IF [J] ?CHR$(233) ELSE ?CHR$(146) 190 LC 7-J,4 200 IF [J] ?CHR$(146) ELSE ?CHR$(233) 210 LC 7-J,5:?[J] 220 NEXT 230 LC 8,5:?"="; 240 M=1:Z=0 250 FOR J=0 TO 7 260 Z=Z+M*[J] 270 M=M<<1 280 NEXT 290 ?Z 300 ?CHR$(154,145,145,155,154,145,145,155) 310 ?" ";HEX$(Z/16,1);" ";HEX$(Z%16,1);" h" 320 RTN
