问题描述
“System.IO.IOException”类型的未经处理的异常出现在System.dll中。其他信息:连到系统上的设备没有发挥作用。“System.IO.IOException”类型的未经处理的异常出现在System.dll中。其他信息:端口“COM1”不存在。
解决方案
解决方案二：
不要光丢两个错误信息出来,不放代码,鬼知道你干什么了
解决方案三：
而且既然报错告诉你端口COM1不存在了,就到设备管理器里看端口号到底是COM几不存在你还去操作,不报错才怪
解决方案四：
补充如下：接收代码PrivateSubSerialPort1_DataReceived(ByValsenderAsObject,ByValeAsSystem.IO.Ports.SerialDataReceivedEventArgs)HandlesSerialPort1.DataReceivedDimiAsUInteger=0Thread.Sleep(50)'根据字符数量及波特率计算延时单位为ms'intNum=0intNum=SerialPort1.BytesToReadIfintNum=0ThenReturnEndIfReDimrc(intNum)Fori=0To(intNum-1)rc(i)=SerialPort1.ReadByte'strRec=SerialPort1.ReadLineNextIfintNum>4Thenflag1=1'StatusDefine.TwoEnum'IfSerialPort1.IsOpenThenSerialPort1.Close()EndIfEndSub
解决方案五：
端口是在出错后在此打开提示没有此端口正常时端口存在
解决方案六：
继续补充如下为读完后解析部分：PrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.TickDimcrcAsUInteger=0Me.Text=TimeOfDay&"——SHK-UIFS.Short"Ifflag1=1AndintNum>4Then'StatusDefine.TwoEnumThen'这里如何使用变量等于某一个数=StatusDefine.TwoEnumIfrc(0)=&H1Thencrc=CRC16(rc,intNum-3)Ifcrc=(rc(intNum-1)*256+rc(intNum-2))ThenIfrc(1)=&H10ThenIfrc(3)=&H2Then'短路时刻strRec+=CStr(Now.Year)&"年"&CStr(Now.Month)&"月"&CStr(rc(8))&"日"&CStr(rc(9))&":"&CStr(rc(10))&":"&CStr(rc(11))TextBox3.ForeColor=Color.GreenTextBox3.Text=TextBox3.Text&TimeOfDay&"——"&"短路时刻设置完成:"&strRec&Chr(13)&Chr(10)TextBox3.ForeColor=Color.BlackShortTimeStr.Text=strRecShortTime1=rc(8)ShortTime2=rc(9)ShortTime3=rc(10)ShortTime4=rc(11)strRec=""ElseIfrc(3)=&H3Then'短路参考相位Ifrc(6)=&H0ThenstrRec+="A相"ElseIfrc(6)=&H1ThenstrRec+="B相"ElseIfrc(6)=&H2ThenstrRec+="C相"EndIfTextBox3.ForeColor=Color.GreenTextBox3.Text=TextBox3.Text&TimeOfDay&"——"&"短路参考相设置完成:"&strRec&Chr(13)&Chr(10)TextBox3.ForeColor=Color.BlackReferencePStr.Text=strRecShortRefer1=rc(6)strRec=""ElseIfrc(3)=&H4Then'短路相角strRec+=CStr(rc(6)*256+rc(7))&"°"TextBox3.ForeColor=Color.GreenTextBox3.Text=TextBox3.Text&TimeOfDay&"——"&"短路相位设置完成:"&strRec&Chr(13)&Chr(10)TextBox3.ForeColor=Color.BlackShortPStr.Text=strRecShortP1=rc(6)*256+rc(7)strRec=""ElseIfrc(3)=&H6Then'短路持续时间strRec+=CStr(rc(6)*256+rc(7))&"ms"TextBox3.ForeColor=Color.GreenTextBox3.Text=TextBox3.Text&TimeOfDay&"——"&"短路相位持续时间设置完成:"&strRec&Chr(13)&Chr(10)TextBox3.ForeColor=Color.BlackShortCtimeStr.Text=strRecShortConTime1=rc(6)*256+rc(7)strRec=""ElseIfrc(3)=&H5Then'系统校时strRec+=CStr(Now.Year)&"年"&CStr(rc(7))&"月"&CStr(rc(8))&"日"&CStr(rc(9))&":"&CStr(rc(10))&":"&CStr(rc(11))TextBox3.ForeColor=Color.GreenTextBox3.Text=TextBox3.Text&TimeOfDay&"——"&"系统时间设置完成:"&strRec&Chr(13)&Chr(10)TextBox3.ForeColor=Color.BlackstrRec=""EndIf