|
分類:[VB.NET/VB2005 以降]
お世話になります。
OS、Win7で環境はVisual Studio Express2013でシリアル通信させるソフトを開発しようとしています。
プログラムについては独学で、周りにもプログラムの知識持っている人がいません。
とある装置でTeraterm上で動作確認できているシリアル通信をVSで出来るようにしたいと思っているのですが、
ソフトが途中で固まってしまいます。
Teraterm上で動作確認できたコマンドとレスポンスは以下のとおり。
コマンド:@SendData=3,022000
レスポンス:ACK,@SendData,0,0xB,000000000000000000E7B1
これをVS上で下記の記述で動かそうとしています。
Public Sub Read_Click(sender As Object, e As EventArgs) Handles Read.Click
With SerialPort1
.PortName = rw_port.Text
.BaudRate = 9600
.Parity = IO.Ports.Parity.None
.DataBits = 8
.StopBits = IO.Ports.StopBits.One
.Handshake = IO.Ports.Handshake.None
.NewLine = vbCr
End With
SerialPort1.Open()
SerialPort1.WriteLine("@SendData=3,022000") '<-ここで止まる
response = SerialPort1.ReadLine()
SerialPort1.Close()
TextBox1.Text = response
End Sub
一行づつ実行して「<-」の箇所で動作止まってしまいます。
別の装置ではうまくいった記述なのですが、何が問題なのか分かりません。
シリアルポート設定はTeratermを見ながら同じ設定にしています。
すみませんが、ご教授のほど、よろしくお願いします。
|