ツールの作り方 – 通信編/上位リンク(KEYENCE) | PLCのメモ書き

ツールの作り方 – 通信編/上位リンク(KEYENCE) | PLCのメモ書き

Option Explicit On Imports System.Net.Sockets Public Sub ReadSample() Dim tx() As Byte ' 送信バッ...概要を表示 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 -