vbmscomm控件在多机通信中的应用.doc

操作说明：此程序主要是为了实现单片机多机通信而设置，所以功能都是围绕这个目的实现。多机通信中的第九位要通过校验位发送。M代表发送第九位为1,S代表发送第九位为0.首先 打开串口在发送窗口写入发送地址点击手动发送，此时校验一定要选择mark，这样串口才能识别第九位发送的1，然后就发送数据，此时改变校验方式选择space，串口就识别第九位为0.（程序设置若com口和校验方式该变串口会自动关闭必须再次自动打开）。通信代码*窗体加载内容Private Sub Form_Load() If MSComm1.PortOpen = True Then 默认必须按下打开串口按钮 MSComm1.PortOpen = False 所以启动就默认关闭串口 Else End If Combo1.AddItem COM1 列表框添加com口 Combo1.AddItem COM2 Combo1.AddItem COM3 Combo1.AddItem COM4 Combo1.AddItem COM5 Combo1.AddItem COM6 Combo1.AddItem COM7 Combo1.AddItem COM8 Combo1.ListIndex = 0 默认com1 Combo2.AddItem 9600 Combo2.AddItem 4800 Combo2.AddItem 2400 Combo2.AddItem 1200 Combo2.ListIndex = 0 默认波特率 Combo3.AddItem 无None Combo3.AddItem 奇Odd Combo3.AddItem 偶Even Combo3.AddItem mark Combo3.AddItem space Combo3.ListIndex = 0 默认无校验 Combo4.AddItem 7 Combo4.AddItem 8 Combo4.ListIndex = 1 Combo5.AddItem 1 Combo5.AddItem 2 Combo5.ListIndex = 0 默认一停止位 MSComm1.CommPort = Combo1.ListIndex + 1 MSComm1.Settings = 9600,S,8,1 默认属性设置“第九位为0” Shape1.FillColor = vbRed 串口控件没打开次控件为红色End Sub*com口有变动关闭控件且读取新的com口Private Sub Combo1_click() change不可以替代clickIf MSComm1.PortOpen = True Then 如果串口打开先关闭后再进行其他操作 MSComm1.PortOpen = False End IfMSComm1.CommPort = Combo1.ListIndex + 1 读取com口号Command2.Caption = 打开串口Shape1.FillColor = vbRedEnd Sub*校验方式有变动选择新的方式且关闭串口Private Sub COMBO3_CLICK()If MSComm1.PortOpen = True Then MSComm1.PortOpen = FalseEnd IfIf Combo3 = 无None Then MSComm1.Settings = 9600,N,8,1ElseIf Combo3 = 奇Odd Then MSComm1.Settings = 9600,O,8,1ElseIf Combo3 = 偶Even Then MSComm1.Settings = 9600,E,8,1ElseIf Combo3 = mark Then MSComm1.Settings = 9600,M,8,1Else MSComm1.Settings = 9600,S,8,1 End If Command2.Caption = 打开串口 Shape1.FillColor = vbRedEnd Sub*按钮控制打开和关闭串口Private Sub Command2_Click() On Error GoTo uerror 发现错误跳转到错误处理 If Command2.Caption = 关闭串口 Then MSComm1.PortOpen = False Command2.Caption = 打开串口 Shape1.FillColor = vbRed 灯颜色改变 Else MSComm1.PortOpen = True Command2.Caption = 关闭串口 Shape1.FillColor = vbGreen End If Exit Sub uerror: msg$ = 无效端口号 错误显示 Title$ = 串口调试助手 X = MsgBox(msg$, 48, Title$) 48标示显示警告图标End Sub*串口接收 事件触发Private Sub MSComm1_OnComm() Dim BytReceived() As Byte Dim strBuff As String Dim i As Integer Select Case MSComm1.CommEvent 事件发生 Case 2 2就是接收事件 ，参考mscomm属性 Cls 清空以前的设置 MSComm1.InputLen = 0 读入缓冲区全部内容 strBuff = MSComm1.Input 读入到缓冲区 Label3.Caption = Label3.Caption + Len(strBuff) 接收计数 If MSComm1.InputMode = comInputModeBinary Then BytReceived() = strBuff 如果是二进制接收模式则进行数据处理，否则直接显示字符串 For i = 0 To UBound(BytReceived) 数组长度 If Len(Hex(BytReceived(i) = 1 Then strData = strData & 0 & Hex(BytReceived(i) & 如果只有一个字符，则前补0，如F显示0F，最后补空格 Else 方便显示观察如： 00 0F FE strData = strData & Hex(BytReceived(i) & End If Next Text3 = Text3 & strData 16进制 数组显示在文本框中 strData = 清空上一个字节内容 Else Text3 = Text3 & strBuff 字符格式显示 End If End SelectEnd Sub单选按钮设置 接收方式Private Sub Option3_Click() 接收方式 MSComm1.InputMode = comInputModeBinary 选择接收方式End SubPrivate Sub Option4_Click() 接收方式 MSComm1.InputMode = comInputModeText 选择接收方式End Sub串口发送设置，二进制和字符格式发送Private Sub Command3_Click() Dim strBuff As String Dim k As Integer Dim le As Integer Dim outbyte() As Byte Dim vchar() As String If Option1.Value = True Then strBuff = Replace(Text1.Text, , ) 把数组中的空格删去 le = Len(strBuff) 2 求出数组长度 ReDim outbyte(le - 1) 重新定义数组 ReDim vchar(le - 1) 重新定义字符串 For k = 0 To le - 1 vchar(k) = Mid(strBuff, 2 * k + 1, 2) 取字符串中两个数 eg：E9 outbyte(k) = Val(&H + vchar(k) 转成要发送的16进制 E9 Next k Label4.Caption = Label4.Caption + le 计算发送的数组个数 If MSComm1.PortOpen = False Then MsgBox 请打开串口 Else MSComm1.Output = outbyte 把刚才的数组发送出去 End If Else strBuff = Text1 发送字符串 If MSComm1.PortOpen = False Then MsgBox 请打开串口 Else MSComm1.Output = strBuff Label4.Caption = Label4.Caption + Len(strBuff) 发送计数 End If End If End Sub*实现自动发送 不用看此过程代码Private Sub Command4_Click()If Command4.Caption = 自动发送 Then Command4.Caption = 关闭自动发送 Timer1.Interval = Text2.Text Timer1.Enabled = TrueElse Command4.Caption = 自动发送 Timer1.Enabled = FalseEnd IfEnd SubPri