VB6.0串口操作

VB6.0串行端口操作职业2010-12-22 1133330333369058 60阅读评论0大小：中小型订阅一直想通过计算机人机界面控制单片机，觉得用软件控制硬件是更有趣的事情。计算机与微控制器的连接通过串行端口进行。如何，我必须了解VB如何操作串行端口，VB如何操作串行端口，这样才能访问计算机，实现真正的计算机控制单片机。这另一件事是别人已经实现的，我刚接触过，所以记下来留作纪念吧。即可从workspace页面中移除物件。即可从workspace页面中移除物件。开发软件：Visual Basic 6.0 enterprise (VB6)新建项目：标准EXE。接下来，创建表单界面。代码：Private Sub Combo1_Click()If MSComm1。PortOpen=True Then如果在打开串行端口后执行其他操作MSComm1。PortOpen=FalseEnd IfMSComm 1.com mport=com B1 . listindex 1End SubPrivate Sub Command1_Click()Dim Temp(0) As ByteDim strBuff As StringIf Option3。Value=True Then如果显示十六进制传输，则执行十六进制处理。在这里只传输一个Temp(0)=H Text1MSComm1。Output=Temp发送十六进制数字ElseStrBuff=Text1End IfIf MSComm1。PortOpen=False ThenMsgBox“打开串行端口”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=更改HFFFFC0灯的颜色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_Load()If MSComm1。PortOpen=True ThenMSComm1。PortOpen=FalseElseEnd If组合1。additem“com1”组合1。additem“com 2”组合1。additem“com 3”组合1。additem com 4 组合1。additem“com 5”组合1。additem com 6 组合1。additem“com 7”组合1。additem“com 8”组合1。additem com 9 组合1。additem com 10 组合1。additem com 11 组合1。additem com 12 组合1。additem com 13 组合1。additem com 14 组合1。additem com 15 组合1。additem com 16 组合1。listindex=0MSComm 1.com mport=com B1 . listindex 1MSComm1。Settings=9600，n，8，1 Command2。Caption=“打开串行端口”Shape1 .FillColor=HFFFFC0Option2。Value=TrueOption4。Value=True组合2。additem 256000 组合2。additem 128000 组合2。additem 115200 组合2。additem 57600 组合2。additem 38400 组合2。additem 28800 组合2。additem 19200 组合2。additem 14400 组合2。additem 1298 组合2。additem 11520 组合2。additem 9600 组合2。additem 4800 组合2。additem 2400 组合2。additem 1200 组合2。additem 600 组合3。additem“无无”组合3。additem“奇数Odd”组合3。additem“甚至Even”组合4。additem 4 组合4。additem 5 组合4。additem 6 组合4。additem 7 组合4。additem 8 组合5。additem 1 组合5。additem 2 End SubPrivate Sub MSComm1_OnComm()Dim BytReceived() As ByteDim strBuff As StringDim I As Integer选择事例MSComm1。会触发CommEvent事件案例2ClsMSComm1。InputLen=0缓冲区读取全部内容StrBuff=MSComm1。使用输入缓冲区读取if MSComm 1 . input mode=cominput modbinary thenBytReceived()=如果处于strBuff二进制接收模式，则执行数据处理，否则直接显示字符串For I=0 To UBound(BytReceived)if len(hex(byt received(I)=1 then如果只有一个字符str data=str data 0 hex(byt received(I)，则f显示0F，后跟零，例如最后填充空格Else可以轻松显示观测值，例如00 0F FEstr data=str data hex(byt received(I) End If下一个Text2=Text2 strDataStrData= ElseText2=Text2 strBuffEnd IfEnd SelectEnd SubPrivate Sub Option1_Click()MSComm 1 . input mode=cominput modbinaryEnd SubPrivate Sub Option2_Click()MSComm 1 . input mode=cominput mode textEnd Sub重要信息：一个。加入新VB控制：在控制工具箱中，按一下右键：加入次组合：Microsoft comm control 6.0(ms comm 1)二、Mscomm1设置选择Mscomm1修改：RThreshold 0 - 1LThreshold 0 - 1其他不需要更改，默认值。好了，现在你可以完成这个小程序，发一条短信。如果在单片机中编译接收程序，例如，打开和关闭LED灯，数字管显示，它以后会努力获得发布。附件：在上述程序界面中命名：关于(1)发送区域：使用frame3(必须使用，这样隔离option1，2).Text1(发送文本框)option3(发送十六进制)option 4(发送字符格式)“发送1”(command 1)“清除发送区域”(command4)(2)接收区域：Frame1(必需，分离option3，4，)Text2(接收文本框，多行，即属性：MultiLine:True)Option1(接收十六进制)option2(接收字符格式)command3(清除接收区：Text2)(3)端口设置区域：(Form_load中设置的初始值)组合1(端口，文本： combo1)组合2(波特率)组合3(奇偶校验位)组合4(数据位)组合5(停止位)L