frmSerial.MSComm1.CommPort = 1 'Example of Comm 1 frmSerial.MSComm1.Settings = "9600,o,7,1" 'Example of 9600 Baud,Parity,Data,Stop
frmSerial.MSComm1.InputLen = 1 'Read one character at a time
frmSerial.MSComm1.PortOpen = True 'Open port
哪里有错误?
Ports.Add("COM5")
With Ports("COM5")
.close
.Parity=Parity.Odd
.StopBits=StopBits.One
.BaudRate = 9600
.DataBits =7
'.ReadTimeout=2000
.Open
End With
[此贴子已经被作者于2024/7/4 15:52:05编辑过]