ＲＳ２３２のコマンド通信を行いたい
質問
-
win vista
32bit
下記プログラムにおいて
コマンド送信
ComSerialPort.Write("SNDA" & vbCr)
このコマンドを送信した際、上手くデータが帰ってきませんでした。ポート開放通信は上手くできましたが、このコマンド送信で上手くデータが帰ってきませんでした。
どのようにコマンド送信を変更したら宜しいでしょうか？
Imports System
Imports System.Collections.Generic
Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Text
Imports System.Windows.Forms
Public Class RS232CForm
Dim pos As Integer
Dim pos2 As Integer
Dim pos3 As Integer
Dim rhex As Byte
' フォームのLoadイベントハンドラ
Private Sub RS232CForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With ComSerialPort
.PortName = "COM1" ' 通信ポートはCOM4
.BaudRate = 9600 ' 通信速度は9600bps
.DataBits = 8 ' データ長は８ビット
.Parity = IO.Ports.Parity.None ' パリティチェックなし
.StopBits = IO.Ports.StopBits.One
' ストップビットは１
' ハードウェアによるハンドシェイク
.Handshake = IO.Ports.Handshake.RequestToSend
.RtsEnable = False
.DtrEnable = False
End With
End Sub
' 通信開始ButtonのClickイベントハンドラ
Private Sub ConnectButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ConnectButton.Click
Try
' 通信ポートが開いているかどうかの判定
If ComSerialPort.IsOpen = False Then
' 通信ポートを開く場合の処理
ComSerialPort.Open() ' 通信ポートを開く
ConnectButton.Text = "通信停止"
Else
' 通信ポートを切断する場合の処理
ComSerialPort.Close() ' 通信ポートを切断
ConnectButton.Text = "通信開始"
End If
Catch ex As Exception
' 通信ポートの接続・切断時のエラー処理
MessageBox.Show(ex.Message, "接続エラー", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
' 送信ButtonのClickイベントハンドラ
Private Sub SendButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SendButton.Click
ComSerialPort.Write("R" & vbLf)
End Sub
' デリゲート型の宣言
Delegate Sub RecieveDataDelegate(ByVal RecieveData As String)
' デリゲート型のプロシージャを宣言
Private Sub SetRecieveData(ByVal DataString As String)
RecieveDataTextBox.Text &= DataString
End Sub
' SerialPortコントロールのDataReceivedイベントハンドラ
Private Sub ComSerialPort_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles ComSerialPort.DataReceived
Dim RecieveData As String
' デリゲート型の変数の宣言と生成
Dim recieve As New RecieveDataDelegate(AddressOf SetRecieveData)
Try
' データの受信
rhex = ComSerialPort.ReadByte
Dim bytearray(ComSerialPort.BytesToRead - 1) As Byte
Dim uni As Encoding = Encoding.Unicode
Dim ecSjis As Encoding = Encoding.GetEncoding("shift-jis")
ComSerialPort.Read(bytearray, 0, ComSerialPort.BytesToRead)
Dim uniBytes As Byte() = Encoding.Convert(ecSjis, uni, bytearray)
RecieveData = uni.GetString(uniBytes)
Catch ex As Exception
End Try
'デリゲート型のプロシージャを呼び出す
Invoke(recieve, RecieveData)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
ComSerialPort.Write("SNDA" & vbLf)
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
TextBox1.Text = RecieveDataTextBox.Text
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
pos = RecieveDataTextBox.Text.IndexOf("S", pos + 1)
TextBox1.Text = RecieveDataTextBox.Text.Substring(pos, 4)
pos2 = RecieveDataTextBox.Text.IndexOf("D", pos2 + 1)
TextBox2.Text = RecieveDataTextBox.Text.Substring(pos2, 4)
pos2 = RecieveDataTextBox.Text.IndexOf("P", pos2 + 1)
TextBox3.Text = RecieveDataTextBox.Text.Substring(pos2, 4)
Dim drow As DataRow
drow = テーブルDataSet1.Tables("テーブル1").NewRow
drow("フィールド1") = TextBox3.Text
テーブルDataSet1.Tables("テーブル1").Rows.Add(drow)
Me.Validate()
BindingSource1.EndEdit()
テーブル1TableAdapter1.Update(テーブルDataSet1.テーブル1)
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
ComSerialPort.Write("SNDA<CR>" & vbLf)
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
ComSerialPort.Write("SNDA" & vbCr)
End Sub
End Class
