目次 前 次

音出しカラクリ

 
　IchigoJamのBasicには、BEEPという音を出す手続きが
　用意されています。

　BEEPの仕様は、以下。

　BEEP [<周期>,<長さ>]

　長さは、60で１秒になるので、1/60秒の倍数を指定します。
　周期は１から255で(7850Hz/N)のNに相当するようです。

　モールス符号の長点、短点は３：１の時間比をもつので
　サブルーチンとして、長さを受取って音を出すように
　定義すればよいでしょう。

　行番号500以降に長点、短点を出すコードを入れます。

500 ' send dot or dash
510 IF A=0 GOTO 540
520 IF A=1 LET L,15
525 IF A=3 LET L,45
530 OUT 4,1:BEEP 10,L:OUT 4,0
540 WAIT 40
550 RETURN

　モールス符号を出力している間は
　LEDを点灯して、光でモニタします。

　英字、数字を、時間の長さに変換して記憶して
　おかないと、モールス符号を出力できません。

　英字、数字の時間長の記憶には、配列を利用します。

　長点、短点を２進数で表現し、11と01を並べて
　該当する英字あるいは数字を表現します。

　数字１なら、「. - - - -」なので、01 11 11 11 11と
　なります。数字なら５符号で簡単にコード化できますが
　英字では、１符号から４符号で固定長ではないので工夫
　が必要。

　11と01で表現した符号を逆順に並べておき、10ビットか
　８ビットにします。その値を２ビットずつ取出して音と
　して出力。１音出力したなら、２ビット右にシフトして
　同じことを繰返します。

　数字と英字に分けて、数字なら10ビットのコードとし
　英字なら８ビットのコードにして、配列に格納します。

　Ａを例に８ビットコードにしてみます。

　　Ａは、「. -」。
　　符号を逆順に並べ変えて、「- .」。
　　長点、短点を11、01とするので、「11 01」。
　　８ビットにまとめて、「00 00 11 01」。
　　16進数で表現すると、0D。

　１を10ビットコードにしてみます。

　　１は、「. - - - -」。
　　符号を逆順に並べ変えて、「- - - - .」。
　　長点、短点を11、01とするので、「11 11 11 11 01」。
　　16進数で表現すると、3FD。

　IchigoJamのBasicは、変数、配列は16ビットサイズと
　なっているので、８ビット、10ビットのコードを変数
　の中に格納できます。

　配列のどこに格納するかは、ASCIIコードの並びを活用します。

　  PRINT CHR$(65) -> 表示は A
    PRINT CHR$(48) -> 表示は 0

　数字は48から格納し、英字は65から格納すれば
　効率よくモールス符号の時間データを取出せます。

　Ａを例に、モールス符号の出力を見てみます。

    

  1. Ａにより取り出せるビット列は、「00 00 11 01」。

  2. 下２桁が01なので、短点出力。

  3. ビット列を右に２ビットシフトして、「00 00 11」。

  4. 下２桁が11なので、長点出力。

  5. ビット列を右に２ビットシフトして、「00 00」。

  6. 下２桁が00なので、音出力なし。

  7. ビット列を右に２ビットシフトして、「00」。

  8. 下２桁が00なので、音出力なし。


　１を例に、モールス符号の出力を見てみます。

    

  1. １により取り出せるビット列は、「11 11 11 11 01」。

  2. 下２桁が01なので、短点出力。

  3. ビット列を右に２ビットシフトして、「11 11 11 11」。

  4. 下２桁が11なので、長点出力。

  5. ビット列を右に２ビットシフトして、「11 11 11」。

  6. 下２桁が11なので、長点出力。

  7. ビット列を右に２ビットシフトして、「11 11」。

  8. 下２桁が11なので、長点出力。

  9. ビット列を右に２ビットシフトして、「11」。

  10. 下２桁が11なので、長点出力


　数字、英字に相当するビット列を取り出して
　２ビットごとに区切って得られる０、１、３
　をサブルーチンに与えれば、モールス符号を
　出力できます。
目次 前 次

inserted by FC2 system