电子产品世界

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

关键词： 串行 通讯 单片机 PC VB 实现 基于