我的vb串口代码

概述'------------------COM ----------Dim COM_NO As ByteDim DELAY As LongDim TXCNT As LongDim RXCNT As LongDim TOTALTX As Long'-----------------------------Private Sub Form_Load()On Error G

'------------------COM ----------Dim COM_NO As ByteDim DELAY As LongDim TXCNT As LongDim RXCNT As LongDim TOTALTX As Long'-----------------------------Private Sub Form_Load()On Error GoTo err'-------------CHECK THE COM-------------Dim i As IntegerFor i = 1 To 16 MSComm1.CommPort = i On Error Resume Next MSComm1.Portopen = True If err.Number = 0 Then COM_NO = i Else MSComm1.Portopen = False End IfNext i'-----------------------------------------MSComm1.CommPort = COM_NOIf MSComm1.Portopen = True Then MSComm1.Portopen = FalseIf MSComm1.Portopen = False Then MSComm1.Settings = "9600,n,8,1" MSComm1.RThreshold = 1 '******核心语句，去掉则无法触发 'MSComm1.SThreshold = 1 '发送缓冲区中允许的最小字符数触发 MSComm1.OutBufferSize = 10 MSComm1.inputLen = 0 '***********CHANGEED MSComm1.inputMode = cominputModeBinary '1-- 'MSComm1.inputMode = cominputModeText MSComm1.Portopen = True '---------------------------------End IfIf MSComm1.Portopen = False Then MsgBox "串口打开失败，请检查": EndExit Suberr:MsgBox "串口错误"End SubPrivate Sub MSComm1_OnComm()Dim Instring As ByteDim ins As StringDim RE_BUF As DoubleOn Error GoTo errSelect Case MSComm1.CommEvent Case comEvReceive Dim InByte,i As Integer InByte = MSComm1.input For i = 0 To UBound(InByte) Instring = (InByte(i)) Next End SelectIf Instring = 255 And FUNC = "CHOSE" Then MAIN_PWM = True: MsgBox "PWM设置成功": Exit SubIf Instring < 5 And FUNC = "CHOSE" ThenIf Instring = 1 Then CH1 = True: Form5.Text1.Text = Form5.Text1.Text + "通道1 OK"If Instring = 2 Then CH2 = True: Form5.Text1.Text = Form5.Text1.Text + "通道2 OK"If Instring = 3 Then CH3 = True: Form5.Text1.Text = Form5.Text1.Text + "通道3 OK"If Instring = 4 Then CH4 = True: Form5.Text1.Text = Form5.Text1.Text + "通道4 OK"Exit SubElseEnd IfInstring = Hex(Instring)If Instring > 10 And Instring < 18 ThenIf Instring = 11 Then CH1_STEP = 1 If Instring = 12 Then CH1_STEP = 3 If Instring = 13 Then CH1_STEP = 2 If Instring = 14 Then CH1_STEP = 4 If Instring = 15 Then CH1_STEP = 6 If Instring = 16 Then CH1_STEP = 5 If Instring = 17 Then CH1_STEP = 7If CH1_STEP > 0 Then Form8.ShowIf CH1_STEP > 0 Then Form8.Command1.Value = TrueExit SubElseEnd IfIf Instring > 20 And Instring < 28 ThenIf Instring = 21 Then CH3_STEP = 1If Instring = 22 Then CH3_STEP = 3If Instring = 23 Then CH3_STEP = 2If Instring = 24 Then CH3_STEP = 4If Instring = 25 Then CH3_STEP = 6If Instring = 26 Then CH3_STEP = 5If Instring = 27 Then CH3_STEP = 7If CH3_STEP > 0 Then Form10.ShowIf CH3_STEP > 0 Then Form10.Command1.Value = TrueExit SubElseEnd IfIf Instring > 30 And Instring < 38 ThenIf Instring = 31 Then CH2_STEP = 1 If Instring = 32 Then CH2_STEP = 3 If Instring = 33 Then CH2_STEP = 2 If Instring = 34 Then CH2_STEP = 4 If Instring = 35 Then CH2_STEP = 6 If Instring = 36 Then CH2_STEP = 5 If Instring = 37 Then CH2_STEP = 7If CH2_STEP > 0 Then Form9.ShowIf CH2_STEP > 0 Then Form9.Command1.Value = TrueExit SubElseEnd IfIf Instring > 40 And Instring < 48 ThenIf Instring = 41 Then CH4_STEP = 1If Instring = 42 Then CH4_STEP = 3If Instring = 43 Then CH4_STEP = 2If Instring = 44 Then CH4_STEP = 4If Instring = 45 Then CH4_STEP = 6If Instring = 46 Then CH4_STEP = 5If Instring = 47 Then CH4_STEP = 7If CH4_STEP > 0 Then Form11.ShowIf CH4_STEP > 0 Then Form11.Command1.Value = TrueElseEnd IfExit Suberr:MSComm1.InBufferCount = 0Call cominitEnd Sub'发送函数做的是全局函数，调用的form2的com控件Public Function RS232_SEND(SEND_COUNT As Integer)If Form2.MSComm1.Portopen = False Then Form2.MSComm1.Portopen = TrueForm2.MSComm1.OutBufferCount = 0'DeBUG.Print "start"Dim iFor i = 1 To SEND_COUNTDim cc(0) As Bytecc(0) = RS232_SEND_BUFFER(i - 1)Form2.MSComm1.Output = ccDeBUG.Print RS232_SEND_BUFFER(i - 1)Next i'DeBUG.Print "end"End Function

串口会出现假死机的现象
初步怀疑是软体原因
我在接收程序中作了修改
一旦开始接收就把MSComm1.RThreshold = 0 暂时停止接收触发

如果接收出错则清空接受区，重新初始化串口

接收缓冲区设置为40，inputleng设置为1

看效果如何

如果还不行就考虑是下位机pic单片机的问题

总结

以上是内存溢出为你收集整理的我的vb串口代码全部内容，希望文章能够帮你解决我的vb串口代码所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。