FTdx10 をCAT制御で便利に使う （その３） VB.NETによるCATコントロールソフトの開発

VB.NETでシリアル通信ソフトを制作する最初の関門は、送受信がスムースにできるコードを確定することです。まずツールボックスから SirialPort を Form にドラッグし、そのプロパティに所定のCOMチャンネル、ボーレート、ストップビットを設定します。次に送信のコードは以下のようになります。

----------------------------------

'シリアルポートをオープンしていない場合、処理を行わない.

If SerialPort1.IsOpen = False Then 
            Return
End If
'送信するテキストは data 、ここでは VFO-A の周波数を読みに行く
Dim data As String
        data = "FA;"

 '送信するテキストがない場合、データ送信は行わない.

If String.IsNullOrEmpty(data) Then       
            Return
End If

Try             'シリアルポートからテキストを送信
            SerialPort1.WriteLine(data)       　  
End Try

これに対してもしポートにデータが入力された場合、これを読んで受信テキストを得ます。このコードはかなり厄介でベタコピがオススメ。

Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs)Handles SerialPort1.DataReceived

 'シリアルポートをオープンしていない場合、処理を行わない.

 If SerialPort1.IsOpen = False Then   
            Return
 End If

 Try

'受信データを読み込む.
Dim data As String               
data = SerialPort1.ReadExisting()

 '受信したデータをテキストボックスに書き込む.
Dim args(0) As Object           
args(0) = data
Invoke(New Delegate_RcvDataToTextBox(AddressOf Me.RcvDataToTextBox), args)
        End Try

End Sub

-------------------------------------

Private Sub RcvDataToTextBox(ByVal data As String)

 RcvTextBox.AppendText(data)
 If CommandStrings = "FA;" Then  TextBox1.Text = data 

End sub

-------------------------------------------

以上のコードで FA; を送信し無事 TextBox1 に周波数を受信することができました。次に周波数を連続して受信するコードを試してみました。

-------------------------------------------

Fstart:    　　　 '周波数の連続受信
 TextBox1.Clear()
 RcvTextBox.Clear()

 CommandStrings = "FA;"
 SerialPort1.WriteLine(CommandStrings)

 GoTo Fstart

-------------------------------------------

ところがこれが全然動きません。つまり単発の送信はできても連続すると動かない、ということです。そこで試行錯誤を行った結果次のような対策で可能になりました。

・FTdx10のタイムアウトタイマーをデフォルトの10msecに戻す。

・次の位置に遅延時間要素を挿入する。

--------------------------------------

Fstart:    　　　　　　
  TextBox1.Clear()
  RcvTextBox.Clear()

 CommandStrings = "FA;"
 SerialPort1.WriteLine(CommandStrings)

' FUNCTION でループによる遅延時間要素を作成する、＊はそのループ数（遅延時間）設定値

 DummyLoop(*)　　

GoTo Fstart

----------------------------------------------

これで周波数の連続受信が可能になりましたが、この遅延時間の値が動かすPCの性能により変える必要があることが分かりました。例えばPCの動作速度が速い場合、この遅延時間を大きくする必要があります。しかしあまり大きくすると動作しなくなり、その幅はやってみなければ分からない、という状況です。