VB6.0串口操作.docVIP

VB6.0串口操作  HYPERLINK /blog/ \l m=0t=1c=fks_087064093085088070093085080095080081087074086083086070 \o 职业 职业 2010-12-22 11:30:58 阅读60 评论0 ??字号：大中小?订阅 一直想通过计算机人机界面来控制单片机，感觉用软件控制硬件，即计算机控制是一件比较有意思的事情。 计算机与单片机的连接，是通过串口来实现的。如何实现，我想应该明白VB怎样来操作串口，实现VB操作串口，就可以把单片机串口线接入计算机，从而实现真正的计算机控制单片机。 这其他是别人早已实现了的，我因为是刚接触，就写下来留作纪念吧。。。 开发软件：Visual Basic 6.0企业版（VB6） 新建一个工程：标准EXE。 接下来做Form界面。 代码： Private Sub Combo1_Click()If MSComm1.PortOpen = True Then 如果串口打开先关闭后再进行其他操作?? MSComm1.PortOpen = FalseEnd IfMSComm1.CommPort = Combo1.ListIndex + 1End Sub Private Sub Command1_Click()??? Dim Temp(0) As Byte??? Dim strBuff As String??? If Option3.Value = True Then 如果显示16进制发送则进行16进制处理 ，这里只发送一个?? Temp(0) = H Text1?? MSComm1.Output = Temp 发送一个16进制??????? Else???? strBuff = Text1End IfIf MSComm1.PortOpen = False Then?? MsgBox 请打开串口End IfOn Error GoTo uerrorMSComm1.Output = strBuff uerror: End Sub Private Sub Command2_Click()On Error GoTo uerror????? 发现错误跳转到错误处理If Command2.Caption = 关闭串口 Then??????? MSComm1.PortOpen = False??????? Command2.Caption = 打开串口 按钮文字改变??????? Shape1.FillColor = HFFFFC0??? 灯颜色改变Else????? ?????? MSComm1.PortOpen = True?????? Command2.Caption = 关闭串口?????? Shape1.FillColor = HFFEnd IfExit Sub uerror:??? msg$ = 无效端口号????????? 错误显示??? Title$ = 串口调试助手??? x = MsgBox(msg$, 48, Title$) 48标示显示警告图标?? End Sub Private Sub Command3_Click()Text2.Text = End Sub Private Sub Command4_Click()Text1.Text = End Sub Private Sub Form_Load()If MSComm1.PortOpen = True Then?? MSComm1.PortOpen = FalseElseEnd If Combo1.AddItem COM1Combo1.AddItem COM2Combo1.AddItem COM3Combo1.AddItem COM4Combo1.AddItem COM5Combo1.AddItem COM6Combo1.AddItem COM7Combo1.AddItem COM8Combo1.AddItem COM9Combo1.AddItem COM10Combo1.AddItem COM11Combo1.AddItem COM12Combo1.AddItem COM13Combo1.AddItem COM14Combo1.AddItem COM15Combo1.AddItem COM16Combo1.ListIndex = 0 MSComm1.CommPort = Combo1.ListIndex + 1MSComm1.Settings = 9600,n,8,1?? Command2.Caption = 打开串口?? Shape1