vb如何检索计算机上已有串口,VB6.0串口操作

《VB6.0串口操作》由会员分享，可在线阅读，更多相关《VB6.0串口操作(7页珍藏版)》请在人人文库网上搜索。

1、VB6.0串口操作职业2010-12-22 11:30:58 阅读60评论0 字号：大中小 订阅一直想通过计算机人机界面来控制单片机，感觉用软件控制硬件，即计算机控制是一件比较有意思的事情。计算机与单片机的连接，是通过串口来实现的。如何实现，我想应该明白VB怎样来操作串口，实现 VB操作串口，就可以把单片机串口线接入计算机，从而实现真正的计算机控制单片机。这其他是别人早已实现了的，我因为是刚接触，就写下来留作纪念吧。开发软件：Visual Basic 6.0 企业版(VB6)新建一个工程：标准 EX巳接下来做Form界面。代码:Private Sub Combo1_Click()If MSCo。

2、mm1.PortOpen = True Then 如果串口打开先关闭后再进行其他操作MSComm1.PortOpen = FalseEnd IfMSComm1.CommPort = Combo1.Listlndex + 1End SubPrivate Sub Command1_Click()Dim Temp(0) As ByteDim strBuff As StringIf Option3.Value = True Then 如果显示16进制发送则进行16进制处理，这里只发送一个Temp(0) = &H & Text1MSComm1.Output = Temp 发送一个 16 进制Elsest。

3、rBuff = Text1End IfIf MSComm1.PortOpen = False Then MsgBox 请打开串口 End IfOn Error GoTo uerrorMSComm1.Output = strBuffuerror: End SubPrivate Sub Command2_Click()On Error GoTo uerror 发现错误跳转到错误处理If Command2.Caption = 关闭串口 ThenMSComm1.PortOpen = FalseCommand2.Caption = 打开串口 按钮文字改变Shape1.FillColor = &HFFFF。

4、C0 灯颜色改变 ElseMSComm1.PortOpen = TrueCommand2.Caption = 关闭串口 Shape1.FillColor = &HFFEnd IfExit Subuerror:msg$ = 无效端口号 错误显示Title$ = 串口调试助手 x = MsgBox(msg$, 48, Title$) 48 标示显示警告图标End SubPrivate Sub Command3_Click()Text2.Text = End SubPrivate Sub Command4_Click()Text1.Text = End SubPrivate Sub Form_Loa。

5、d()If MSComm1.PortOpen = True ThenMSComm1.PortOpen = False ElseEnd IfCombo1.AddItem COM1Combo1.AddItem COM2Combo1.AddItem COM3Combo1.AddItem COM4Combo1.AddItem COM5Combo1.AddItem COM6Combo1.AddItem COM7Combo1.AddItem COM8Combo1.AddItem COM9Combo1.AddItem COM10Combo1.AddItem COM11Combo1.AddItem COM12。

6、Combo1.AddItem COM13Combo1.AddItem COM14Combo1.AddItem COM15Combo1.AddItem COM16Combo1.ListIndex = 0MSComm1.CommPort = Combo1.ListIndex + 1MSComm1.Settings = 9600,n,8,1Command2.Caption = 打开串口 Shape1.FillColor = &HFFFFC0Option2.Value = TrueOption4.Value = TrueCombo2.AddItem 256000Combo2.AddItem 12800。

7、0Combo2.AddItem 115200Combo2.AddItem 57600Combo2.AddItem 38400Combo2.AddItem 28800Combo2.AddItem 19200Combo2.AddItem 14400Combo2.AddItem 12800Combo2.AddItem 11520Combo2.AddItem 9600Combo2.AddItem 4800Combo2.AddItem 2400Combo2.AddItem 1200Combo2.AddItem 600Combo3.AddItem 无 NoneCombo3.AddItem 奇 OddCom。

8、bo3.AddItem 偶 EvenCombo4.AddItem 4Combo4.AddItem 5Combo4.AddItem 6Combo4.AddItem 7Combo4.AddItem 8Combo5.AddItem 1Combo5.AddItem 2End SubPrivate Sub MSComm1_OnComm()Dim BytReceived() As ByteDim strBuff As StringDim i As IntegerSelect Case MSComm1.CommEvent 事件发生Case 2ClsMSComm1.InputLen = 0 读入缓冲区全部内容。

9、strBuff = MSComm1.Input 读入到缓冲区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显示OF,最后补空格Else方便显示观察如： 00 0F FE strData = s。

10、trData & Hex(BytReceived(i) & End IfNext Text2 = Text2 & strData strData = ElseText2 = Text2 & strBuffEnd IfEnd SelectEnd SubPrivate Sub Option1_Click()MSComm1.InputMode = comInputModeBinaryEnd SubPrivate Sub Option2_Click()MSComm1.InputMode = comInputModeTextEnd Sub重要:添加新的 VB控件：在控件 工具箱点鼠标右键：部件添加：Mi。

11、crosoft Comm Cont6.0 (Mscomml)二、设置 Mscomm1选中 Mscomm1改：RThreshold 0-1LThreshold01其他可不用改，默认。OK以上基本可以完成这个小程序的设计，这样点发送就可以发送一个字符了。如果有单片机，在单片机里编好接收程序，则可以实现一定的控制，如实现LED灯的亮与灭，数码管显示，这在以后我会努力搞定发表的。附：上面程序界面中命名：信息(1)发送区：用frame3 (必须用，这样隔离 option1 ，2).Text1 (发送文本框) option3 ( 16进制发送)option 4(字符格式发送)发送(command1) 清空。

12、发送区(command4)(2)接收区：Frame1 (必须用，隔离 option3 ，4，)Text2(接收文本框，要多行，即：属性： MultiLine:True)option1(16 进制接收)option2( 字符格式接收)command3 (清空接收区：Text2)端口设置区：(在 Form_load里设置的初值)combo1(端口，Text:COM1)combo2(波特率)combo3(校验位)combo4(数据位)combo5(停止位)Label1Label5 标示名字 ： 即：Label1:端口 Label2:波特率 Label3 :校验位 Label4 :数据位 Label5: 停止位(4)command2 :打开串口，(5)Mscomm1添加的 VB6.0 串口控件)(6) 添加一 Shape1(圆形的用3-Circle)通过设置其FillColor(颜色变化)来标示COM口是否打开以上基本完成。其他功能大家相互学习吧。(注：专业文档是经验性极强的领域，无法思考和涵盖全面，素材和资料部分 来自网络，供参考。可复制、编制，期待你的好评与关注。