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

名前

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

本文 なるほど、モールス信号について理解しました。 ってか、単純ですね(^^;) 暗号じゃないんだから、当たり前か。。。 FFTを使用するほどでもなさそうですね。 ねろさんがすでに提案している方法 ゼロ−クロッシング法の応用で、 周波数(周期)解析をするのが適していそうです。 #ゼロ−クロッシング法 #波形が、ゼロ線をクロスする点の時間間隔を測り、 #それを２倍して周期を見出す方法。 ゼロ線の替わりに、適当な境界線(仮に1/5)で判断するサンプル。 Dim Flag1 As Boolean '現在の標本値(1 / 0) Dim Flag2 As Boolean '1点前の標本値(1 / 0) Dim ZeroCount As Long '0の連続標本数 Dim OneCount As Long '1の連続標本数 Dim Kyoukai As Long '最大値の1/5 Dim BitNum As Long '分解能(符号有りの場合) Kyoukai = (2 ^ (BitNum - 1)) / 5 '境界値の設定 If Buffer(i) > Kyoukai Then '境界値以上 Flag1 = True OneCount = OneCount + 1 Else '境界値以下 Flag1 = False ZeroCount = ZeroCount + 1 End If If Flag2 Xor Flag1 Then '1から0(0から1)に変わった瞬間 If Flag1 Then ZeroCount = 0 'カウンタリセット Else OneCount = 0 'カウンタリセット End If 'ここに文字を判別するコードを挿入 End If