Public Shared Function SetPortName(ByVal defaultPortName As String) As StringĬonsole.Write("COM port():”, defaultPortHandshake.ToString()) If sComparer.Equals(“quit”, message) Thenĭim message As String = _serialPort.ReadLine() _serialPort.Handshake = SetPortHandshake(_serialPort.Handshake) _serialPort.StopBits = SetPortStopBits(_serialPort.StopBits) _serialPort.DataBits = SetPortDataBits(_serialPort.DataBits) _serialPort.Parity = SetPortParity(_serialPort.Parity) _serialPort.BaudRate = SetPortBaudRate(_serialPort.BaudRate) ![]() _serialPort.PortName = SetPortName(_serialPort.PortName) ’ Allow the user to set the appropriate properties. ’ Create a new SerialPort object with default settings. Visual Basic 2005 band up – Chat over serial portĭim sComparer As StringComparer = StringComparer.OrdinalIgnoreCaseĭim readThread As Thread = New Thread(AddressOf Read) ![]() Hey I think I found the source code for the chat VB application.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |