モールス信号を解読するには？ (ID:84244)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 文字の判断は、下の方にした方がスマートかも。。。 'トンは下位バイトのビット 'ツーは上位バイトのビット 'として2バイトの値を計算 For i = 0 To TonTuCount If TonTuData(i) Then MojiTable = MojiTable + 2 ^ i Else MojiTable = MojiTable + (2 ^ i) * 256 End If Next i '2バイトの値を元に文字決定 Select Case MojiTable Case 258 '・− OutString = "A" Case 2055 '−・・・ OutString = "B" Case 2565 '−・−・ OutString = "C" Case 1027 '−・・ OutString = "D" Case 1 '・ OutString = "E" Case 525 '・・−・ OutString = "F" Case 1537 '−−・ OutString = "G" Case 15 '・・・・ OutString = "H" Case 3 '・・ OutString = "I" Case 1800 '・−−− OutString = "J" Case 1282 '−・− OutString = "K" Case 1035 '・−・・ OutString = "L" Case 768 '−− OutString = "M" Case 513 '−・ OutString = "N" Case 1792 '−−− OutString = "O" Case 1545 '・−−・ OutString = "P" Case 3330 '−−・− OutString = "Q" Case 517 '・−・ OutString = "R" Case 7 '・・・ OutString = "S" Case 256 '− OutString = "T" Case 262 '・・− OutString = "U" Case 270 '・・・− OutString = "V" Case 772 '・−− OutString = "W" Case 2310 '−・・− OutString = "X" Case 2820 '−・−− OutString = "Y" Case 3075 '−−・・ OutString = "Z" Case 3856 '・−−−− OutString = "1" Case 1816 '・・−−− OutString = "2" Case796 '・・・−− OutString = "3" Case 286 '・・・・− OutString = "4" Case 31 '・・・・・ OutString = "5" Case 4111 '−・・・・ OutString = "6" Case 6151 '−−・・・ OutString = "7" Case 7171 '−−−・・ OutString = "8" Case 7681 '−−−−・ OutString = "9" Case 3840 '−−−−− OutString = "0" Case 2581 '・−・−・ OutString = "+" Case 8478 '−・・・・− OutString = "-" Case 2310 '−・・− OutString = "*" Case 4621 '−・・−・ OutString = "/" Case 4366 '−・・・− OutString = "=" Case 5641 '−・−−・ OutString = "(" Case 11538 '−・−−・− OutString = ")" Case 7713 '・−−−−・ ← OutString = "'" Case 4653 '・−・・−・ OutString = "''" Case 7713 '・−−−−・ ← OutString = ";" Case 14343 '−−−・・・ OutString = ":" Case 13068 '−−・・−− OutString = "," Case 5418 '・−・−・− OutString = "." Case 3123 '・・−−・・ OutString = "?" Case 255 '・・・・・・・・ '訂正 'データを貯めてるならLeft$(文字列, Len$(文字列-1)) '書き出してるなら、BSキー(Chr$(8))を送る End Select #下記ページを元にテーブル作ったけど、 #『)』と『;』が同じなのは間違いだよね。。。 http://www1.odn.ne.jp/haru/data-list/morse.html