VB中串口通讯的实现

下载该文档文档格式：DOC 更新时间：2008-12-01 下载次数：0 点击次数：1

文档基本属性

文档语言：

Simplified Chinese

文档格式：

doc

文档作者：

simon

关键词：

主题：

备注：

点击这里显示更多文档属性

本程序使用的是Com1对Com1的连接.
D,输入以下代码:
Private Sub Command1_Click()
'...发送数据
MSComm1.OutBufferCount = 0 '...清空输出寄存器
MSComm1.Output = Text1.Text '...发送数据
End Sub
Private Sub Command2_Click()
'...退出
Unload Me
End Sub
Private Sub Form_Load()
'...初始化
MSComm1.CommPort = 1 '...使用Com1口
MSComm1.Settings = "9600,n,8,1" '...设置通讯参数
MSComm1.PortOpen = True '...打开串口
End Sub
Private Sub Mscomm1_Oncomm()
'...通讯事件发生
Select Case MSComm1.CommEvent
Case comEvReceive '...有接受事件发生
Text2.Text = MSComm1.Input '...接受显示数据
MSComm1.InBufferCount = 0 '...清空输入寄存器
End Select
End Sub
2,PC机与单片机之间的通讯
PC机与单片机之间的通讯被广泛的用于工业,医疗测控等领域之中.在应用中,我们通常将单片机作为"感受器"和"效应器",负责数据采集,响应计算机发出的指令对电路进行控制,有时也进行一些简单的运算, 最后再将执行数据反馈给计算机处理.本程序将实现在PC机上输入一个0-255之间的整数,将此数据发送到单片机,单片机接收到数据后,将数据在显示管上显示,再将此数除以2,将得数返回给PC机.(运行效果如图 3.BMP所示)其实现方法如下:
A,同PC机间通讯的实现方法A-B.
B,连接电脑和单片机.注意!由于PC机端的RS232电平与单片机端TTL的并不不匹配,故应注意电平转换.
C,在VB中输入以下代码:
Private Sub Mscomm1_Oncomm()
'...通讯事件发生
Dim indata As Variant
Dim bte(0) As Byte
Select Case MSComm1.CommEvent
Case comEvReceive '...有接受事件发生
indata = MSComm1.Input
'...注意!要通过MSComm控件发送或接收二进制数据必须用Variant类型的变量对二进
'...制Byte类型的变量进行转换!
bte(0) = AscB(indata)
Text2.Text = bte(0)

文档基本属性
文档语言：	Simplified Chinese
文档格式：	doc
文档作者：	simon
关键词：
主题：
备注：
点击这里显示更多文档属性
经理：
单位：	hp
分类：
创建时间：
上次保存者：
修订次数：
编辑时间：
文档创建者：
修订：
加密标识：
幻灯片：
段落数：
字节数：
备注：
演示格式：
上次保存时间：