教育首页 | 行业资讯 | 专题 | 访谈 | 展会 | 商情 | 大全 | 论坛 | 求职 | 图片 | 热点 | E周刊 RSS
教育装备 | 数字化校园 | 投影 | 语音室 | 摄录编 | 实验设备 | 仪器仪表 | 技术中心 | 商机 | 促销
慧聪网首页 > 教育行业 > 实验仪器设备 > 实验设备-技术文章
行业搜索
用VB6实现仪器串口通信及检测功能
2005年1月11日 14:23  来源:遥控网

    随着Windows98的推出,越来越多的微机用户已习惯于Windows操作系统。不过Windows应用软件的开发对于一般工程技术领域的技术人员来说并非易事,然而使用微软的VisualBasic6.0(简称VB6)来开发这些方面的Windows应用软件就十分方便,编程工作量相对较小,只需进行主要应用功能的编程和少量界面控制的编程。本文介绍利用VB6串行通信编程的方法对采用了RS-232接口的仪器,进行串行通信的计算机测控软件开发和实现仪器功能和指标的验收。

    VB6提供了许多供用户选择的控件(Customcontrol),这些控件以.OCX为文件后缀名,其中MSCOMM.OCX即是用于串行通信的控件。如果需要使用该控件,可将该控件添加到工具箱(toolbox)内,这样就可以利用该控件进行串行通信程序的设计。

    下面举一个简单的例子,说明如何进行串行通信程序的设计,该程序在Windows98环境下已调试通过。该例介绍通过RS-232对一台HP53150A微波计数器的程控功能和性能指标的验收。

1 设计用户界面

    首先新建一个“标准EXE”工程,然后选择“工程/部件”菜单项,在“部件”对话框中选择Microsoft Comm Control6.0即可添加MsComm控件;再在窗体中依次布置如下控件并设置其属性。


2 编写程序代码

    编写的程序代码如下:

PriVate Sub Form_Load()
Msc1.CommPort=1    ’ 使用串行口1
’波特率9600,偶校验,8个数据位,1个停止位
Msc 1.Settings=“9600,E,8,1”
’当使用Msc 1.Input时,每次从接收缓冲区取一个字节。
Msc1.InputLen=0 ’读取整个接收缓冲区内码或消除
Msc1.Portopen=True   ’ 打开串行口
End Sub
Private Sub Comd1_Click()
On Error Resume Next    ’简单的错误处理
If Txt1.Text = "" Then
x = MsgBox("被检仪器程控码不能为空值", 16)
Exit Sub
End If
MSC1.Output = Txt1.Text + Chr$(13)
’发送程控码
For i = 1 To 20000000
Next
End Sub
Private Sub Comd2_Click()
Txt1.Text = ""
Txt1.SetFocus
End Sub
Private Sub Comd3_Click()
Dim instring As string
instring = MSC1.Input
MSC1.Output = Txt2.Text + Chr$(13)
Do
DoEvents
Loop Until MSC1.InBufferCount >= 20
instring = MSC1.Input ’ 从接收队列中读入字符串
Txt2.Text = ""
Txt2.Text = instring ’ 显示读入的字符串
End Sub
Private Sub Comd4_Click()
Txt2.Text = ""
Txt2.SetFocus
End Sub
Private Sub Comd5_Click()
MSC1.PortOpen = False ’ 关闭串行口
End
End Sub

3 程序简要说明

    上述程序设置的端口通信协议为: 9600波特率,偶校验,8个数据位,1个停止位。当退出程序时,一定要关闭串行口,通过comm1.PortOpen=False完成。使用时,在“请输入被检仪器程控码控制仪器功能”文本框中输入“FUNC‘FREQ 1;FREQ:RES1HZ”即仪器的程控码为:“功能通道1测频,分辨率为1Hz。单击“确定”后,HP53150A置于相应功能。加入信号后即可测量检测,当读取测量数据时在“请输入被检仪器程控码读取仪器数据”框中输入“DATA?”,单击“确定”后,该框中以字符的形式显示测量结果。从而实现仪器程控功能和性能指标的检测。上述只是一个简单的例子。要实现完善的功能,必须进一步改进程序。

    上面介绍了笔者在使用VB6开发Windows环境下测控软件的一点收获,可以看出使用VB6开发Windows98下与仪器进行串口通信程序是非常简单的。

 
 [关键词]:仪器 通信检测 VB6  发表评论    【推荐】 【打印

特别推荐:
·[07月27日更新]免费电影下载
·2006年春季高教仪器设备展示会
更多精彩:
·教育部长周济谈教育改革发展三大任务
·2万元教育投影机精选 最新投影市场观察
相关文章 更多 
·网络化----测量技术与仪器的新趋势  (1.10 11:46)
·光学仪器分析基本概念和原理  (1.6 13:56)
·目前科学仪器发展面临的主要问题  (1.5 13:36)
·临沂师院700万元进口大型仪器装备  (1.5 9:44)
·700万元进口仪器装备临沂师范学院  (1.5 9:21)

我来评两句〖查看最新评论〗 
请您注意:
·遵守中华人民共和国的各项有关法律法规
·承担一切因您的行为而导致的法律责任
·本网留言板管理人员有权删除其管辖留言内容
·您在本网的留言,本网有权在网站内转载或引用
·参与本留言即表明您已经阅读并接受上述条款
昵称:匿名

文字广告
热点专题

教育多媒体课件全攻略
教材采购 给点阳光才灿烂
高考经济 谁经济了谁?
2006中国民办大学排行榜
2006年五四青年节专题
教育乱收费治理边际效应
揭密教育采购幕后玄机
产品超市
·寻求各多功能厅、会议室
·供应电热套/稳控仪/搅拌器
·求购调音台
·供应直流电源稳压器 EPS系列
·求购大口径变焦夜视镜头
·供应台式万用表 3136A
·求购多媒体中控讲台
大话教育
[转帖]和一个美女同事..
不喝中国水的日本人,..
鹰的重生----TCL李..
企业、个人合理避税大..
使人困惑的吴敬琏
中国现今最贫穷的是哪..
中国最忙城市排行榜
图说教育