当前位置：文档之家 › VB6.0串口操作

VB6.0串口操作

  • 格式：doc
  • 大小：44.50 KB
  • 文档页数：5

下载文档原格式

  / 5
  1. 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
  2. 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
  3. 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

VB6.0串口操作

职业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 = False

End If

mPort = Combo1.ListIndex + 1

End 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 = Text1

End If

If MSComm1.PortOpen = False Then

MsgBox "请打开串口"

End If

On Error GoTo uerror

MSComm1.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 = &HFF

End If

Exit 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 = False

Else

End If

Combo1.AddItem "COM1"

Combo1.AddItem "COM2"

Combo1.AddItem "COM3"

Combo1.AddItem "COM4"

Combo1.AddItem "COM5"

Combo1.AddItem "COM6"

Combo1.AddItem "COM7"

Combo1.AddItem "COM8"

Combo1.AddItem "COM9"

Combo1.AddItem "COM10"

Combo1.AddItem "COM11"

Combo1.AddItem "COM12"

Combo1.AddItem "COM13"

Combo1.AddItem "COM14"

Combo1.AddItem "COM15"

Combo1.AddItem "COM16"

Combo1.ListIndex = 0

mPort = Combo1.ListIndex + 1 MSComm1.Settings = "9600,n,8,1"

Command2.Caption = "打开串口"

Shape1.FillColor = &HFFFFC0

Option2.Value = True

Option4.Value = True

Combo2.AddItem "256000"

Combo2.AddItem "128000"

Combo2.AddItem "115200"

Combo2.AddItem "57600"

Combo2.AddItem "38400"

Combo2.AddItem "28800"

Combo2.AddItem "19200"

'Combo2.AddItem "14400"

'Combo2.AddItem "12800"

'Combo2.AddItem "11520"

Combo2.AddItem "9600"

Combo2.AddItem "4800"

Combo2.AddItem "2400"

Combo2.AddItem "1200"

Combo2.AddItem "600"

Combo3.AddItem "无None"

Combo3.AddItem "奇Odd"

Combo3.AddItem "偶Even"

Combo4.AddItem "4"

Combo4.AddItem "5"

Combo4.AddItem "6"

相关主题