Imports System
Imports System.IO.Ports
Imports System.Threading
Public Class PortChat
Shared _serialPort As SerialPort
Public Shared Sub Main()
Dim message As String
Dim sComparer As StringComparer = StringComparer.OrdinalIgnoreCase
_serialPort = New SerialPort()
_serialPort.ReadTimeout = 500
_serialPort.WriteTimeout = 500
_serialPort.Open()
_serialPort.WriteLine("message")
message = _serialPort.ReadLine()
Console.WriteLine(message)
End Sub
End Class
|