上位リンクで読み書きならこんな感じになると思う
#Ether接続できるのは手元にないので動作確認してないです
Module Module1
Sub Main()
Dim address = New System.Net.IPAddress(New Byte() {127, 0, 0, 1}) 'シーケンサに設定したIP4アドレスを指定
Dim port As Integer = 8501 'シーケンサに設定したポート番号
Dim endpoint = New System.Net.IPEndPoint(address, port)
Using client = New System.Net.Sockets.TcpClient() 'TCP/IPを使用の場合 (UDPならSystem.Net.Sockets.UdpClient)
'必要ならタイムアウトを設定
client.SendTimeout = 1000
client.ReceiveTimeout = 5000
Try
client.Connect(endpoint) '#コネクションオープン
Catch ex As Exception
Console.WriteLine(ex.Message)
End Try
If (Not client.Connected) Then
Console.WriteLine("接続できません")
Return
End If
Dim stream = client.GetStream()
Dim reader As New System.IO.StreamReader(stream, System.Text.Encoding.ASCII) 'コマンドはASCIIでやりとり
Dim writer As New System.IO.StreamWriter(stream, System.Text.Encoding.ASCII)
writer.AutoFlush = True '*** AutoFlushで自動的にFlushさせる ***
writer.NewLine = vbCr 'コマンドの終端はCR
Dim cmd As String = "?K" + vbCr
writer.WriteLine("?K") '#コマンド (機種の問い合わせを送信(CR終端))
'writer.Flush()
'stream.Flush() 'stream.Flushでパケット送信させる
Dim response = reader.ReadLine() '#レスポンス (終端CRLFまで読み取り(CRLFは除く))
Dim typeNumber As Integer
If (Not Integer.TryParse(response, typeNumber)) Then 'Notの入れ間違い
Console.WriteLine("応答異常")
Else
Select Case typeNumber
Case 55
Console.WriteLine("KV-7500")
Case Else
Console.WriteLine("機種が違います")
End Select
End If
'以下てきとうに()
writer.WriteLine("RD R000000")
response = reader.ReadLine()
Console.WriteLine(response)
client.Close() '#クローズ
End Using
End Sub
End Module
個別に明示されていない限りgekkaがフォーラムに投稿したコードにはフォーラム使用条件に基づき「MICROSOFT LIMITED PUBLIC LICENSE」が適用されます。(かなり自由に使ってOK!)
