用vb6实现仪器串口通信及检测功能

《用vb6实现仪器串口通信及检测功能》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、用VB6实现仪器串口通信及检测功能

2、第1内容加载中...摘要介绍利用VB6串行通信编程的方法，对采用了RS-232接口的仪器进行串行通信的计算机测控软件开发，以及实现仪器功能和指标的验收。关键词串行通信测控软件开发随着SM.OCX即是用于串行通信的控件。如果需要使用该控件，可将该控件添加到工具箱（toolbox）内，这样就可以利用该控件进行串行通信程序的设计。下面举一个简单的例子，说明如何进行串行通信程序的设计，该程序在sm控件；再在窗体中依次布置如下控件并设置其属性。控件名称name属性Caption属性F

3、ormform1空Frame1frame1空Frame2frame2空Frame3frame3空mand1d1确定mand2d2退出mand3d3确定mand4d4退出mand5d5做完退出MSmmsc1空Label1lab1RS-232接口功能检测Label2lab2请输入被检仪器程控码控制仪器功能Label3lab3请输入被检仪器程控码读取仪器数据Text1txt1空Text2txt2空完成后的界面如图1所示500)this.style.ouseg(this)">图1用户界面2编写程序代码编写的程序代码如

4、下：PriVateSubForm_Load（）Msc1.mPort=1’使用串行口1’波特率9600，偶校验，8个数据位，1个停止位Msc1.Settings=“9600，E，8，1”’当使用Msc1.Input时，每次从接收缓冲区取一个字节。Msc1.InputLen=0’读取整个接收缓冲区内码或消除Msc1.Portopen=True’打开串行口EndSubPrivateSubd1_Click（）OnErrorResumeNext’简单的错误处理IfTxt1.Text=""Thenx=MsgBox（"被检

5、仪器程控码不能为空值",16）ExitSubEndIfMSC1.Output=Txt1.Text+Chr$（13）’发送程控码Fori=1To20000000NextEndSubPrivateSubd2_Click（）Txt1.Text=""Txt1.SetFocusEndSubPrivateSubd3_Click（）DiminstringAsstringinstring=MSC1.InputMSC1.Output=Txt2.Text+Chr$（13）DoDoEventsLoopUntilMSC1.InBuf

6、ferCount>=20instring=MSC1.Input’从接收队列中读入字符串Txt2.Text=""Txt2.Text=instring’显示读入的字符串EndSubPrivateSubd4_Click（）Txt2.Text=""Txt2.SetFocusEndSubPrivateSubd5_Click（）MSC1.PortOpen=False’关闭串行口EndEndSub3程序简要说明上述程序设置的端口通信协议为：9600波特率，偶校验，8个数据位，1个停止位。当退出程序时，一定要关闭串行口

7、，通过m1.PortOpen=False完成。使用时，在“请输入被检仪器程控码控制仪器功能”文本框中输入“FUNC‘FREQ1；FREQ：RES1HZ”即仪器的程控码为：“功能通道1测频，分辨率为1Hz。单击“确定”后，HP53150A置于相应功能。加入信号后即可测量检测，当读取测量数据时在“请输入被检仪器程控码读取仪器数据”框中输入“DATA？”，单击“确定”后，该框中以字符的形式显示测量结果。从而实现仪器程控功能和性能指标的检测。上述只是一个简单的例子。要实现完善的功能，必须进一步改进程序。上面介绍了笔者

8、在使用VB6开发Windows环境下测控软件的一点收获，可以看出使用VB6开发Windows98下与仪器进行串口通信程序是非常简单的。