微波EDA网,见证研发工程师的成长!
首页 > 硬件设计 > 嵌入式设计 > 基于VB实现PC机与单片机的串行通讯

基于VB实现PC机与单片机的串行通讯

时间:03-22 来源:互联网 点击:

Private sub form_l oad()
Comm1.portopen=true
Timer.interval=1000 '定时器时间间隔为1000s
Timer.enabled=true
Mscomm1.compore=1 '选择通讯口1
Mscomm1.settings=“110,n,8,1” '波特率110,无奇偶校验,8个数据位,一个停止位
Mscomm1. inputmode=1 '通过input属性以二进制形式取回数据
Mscomm1.inputlen=0 '读取接收缓冲区全部内容
Mscomm1.rthreshold=1 '每收到一个字符位引发oncomm事件
Graph1.scale(0,10)-(20,0) '定制坐标
Grahp1.forecoclr=rgb(0,0,255)
End sub
Private Sub Command1_Click()
Dim a!(30), b!(30)
num = MSComm1.InBufferCount '取输入缓冲区字节个数
instring = MSComm1.Input '把输入缓冲区数据送给数组
For i = 0 To num - 1
a(i) = i
b(i) = instring(i)
GRAPH1.Cls
If i = 1 Then
GRAPH1.PSet (a(i), b(i))
Else
GRAPH1.Line -(a(i), b(i)) '将数组数据给绘图函数
End If
Next i
End Sub

3、结束语

利用VB6.0的事件驱动方式可以很方便地开发数据采集与监控系统,用单台PC机可以测量和监控多路控制信号,整控制系统设计方便,对小型测控系统的设计具有很大的实用性。

参考文献:
1、 何立民,单片机应用系统设计.北京:航空航天大学出版社,1992
2、 美Jan Axelson 著,串行端口大全,精英科技译,2001.5

Copyright © 2017-2020 微波EDA网 版权所有

网站地图

Top