ツールの作り方 – 通信編/上位リンク(KEYENCE)

Option Explicit On
Imports System.Net.Sockets

    Public Sub ReadSample()
        Dim tx() As Byte            ' 送信バッファ
        Dim cmd As String           ' コマンド文字列
        Dim idx As Integer          ' 送信バッファ アクセスIndex
        Dim sentLen As Integer      ' 送信Byte数

        Dim readLen As Short        ' 読出点数

        ' 送信データ
        ReDim tx(8191)  ' バッファサイズは適当に。

        ' コマンドデータ
        readLen = 100
        cmd = "RDS DM1000.H " & readLen.ToString() & vbCr    ' DM1000から16進で100点読出
        ' Ascii→Byteに変換
        For idx = 0 To cmd.Length - 1
            tx(idx) = CType(Asc(cmd.Substring(idx, 1)), Byte)
        Next
        ''tx = System.Text.Encoding.ASCII.GetBytes(cmd) ' ←変換はこっちの書き方がスマートかも？

        ' 送信
        ' _sockはSocketクラスで既にConnectされているものとする
        sentLen = _sock.Send(tx, idx, SocketFlags.None)



        Dim rx() As Byte            ' 受信バッファ
        Dim recvLen As Integer      ' 受信Byte数
        Dim resLen As Integer       ' レスポンスデータ長
        Dim errCode As Short        ' エラーコード
        Dim readData() As Short     ' 読出データ(デバイス値)
        Dim i As Integer

        ' 受信
        ReDim rx(8191)  ' バッファサイズは適当に。
        recvLen = _sock.Receive(rx)

        ' チェック
        If recvLen = 4 Then
            ' エラーコード2文字 + CR + LF
            ' ChrでByte→Asciiに変換
            errCode = Short.Parse(Chr(rx(0)) & Chr(rx(1)), Globalization.NumberStyles.HexNumber)
            Return
        End If

        ' デリミタはCR+LFの2文字だが1文字分を引いてデータ数をチェック
        ' →データはスペース区切りのため1要素で4文字+スペースの5文字と考える
        '   (最後の要素はスペースの代わりにCRで5文字)
        resLen = recvLen - 1
        If resLen <> readLen * 5 Then Return ' レスポンスデータ(Byte数)は読出点数×5と一致しないとNG
        ReDim readData(readLen - 1)
        For i = 0 To readLen - 1 Step 5
            ' ChrでByte→Asciiに変換
            readData(i) = Short.Parse(Chr(rx(i + 0)) & Chr(rx(i + 1)) & Chr(rx(i + 2)) & Chr(rx(i + 3)), Globalization.NumberStyles.HexNumber)
        Next

    End Sub

Option Explicit On
Imports System.Net.Sockets

    Public Sub WriteSample()
        Dim tx() As Byte            ' 送信バッファ
        Dim cmd As String           ' コマンド文字列
        Dim idx As Integer          ' 送信バッファ アクセスIndex
        Dim sentLen As Integer      ' 送信Byte数

        ' 送信データ
        ReDim tx(8191)  ' バッファサイズは適当に。

        ' コマンドデータ
        cmd = "WR MR12000 1" & vbCr ' SET="1", RST="0"
        ' Ascii→Byteに変換
        For idx = 0 To cmd.Length - 1
            tx(idx) = CType(Asc(cmd.Substring(idx, 1)), Byte)
        Next
        ''tx = System.Text.Encoding.ASCII.GetBytes(cmd) ' ←変換はこっちの書き方がスマートかも？

        ' 送信
        ' _sockはSocketクラスで既にConnectされているものとする
        sentLen = _sock.Send(tx, idx, SocketFlags.None)



        Dim rx() As Byte            ' 受信バッファ
        Dim recvLen As Integer      ' 受信Byte数
        Dim errCode As Short        ' エラーコード

        ' 受信
        ReDim rx(8191)  ' バッファサイズは適当に。
        recvLen = _sock.Receive(rx)

        ' チェック
        If recvLen <> 4 Then Return ' 4Byte以外の受信はそもそもNG。

        If Chr(rx(0)) = "O"c AndAlso Chr(rx(1)) = "K"c Then
            ' 正常終了
            Return

        Else
            ' 異常終了
            ' ChrでByte→Asciiに変換
            errCode = Short.Parse(Chr(rx(0)) & Chr(rx(1)), Globalization.NumberStyles.HexNumber)
            Return
        End If

    End Sub