VB 通过 GPIB 与仪器通讯
看到很多同仁,朋友在网上寻找 VB 通过 GPIB 与仪器通讯.的资料，我本人也常常查找这方
面的资料，深感痛苦！今天第一次将自己的 VB 通过 GPIB 与仪器通讯的经验与调试 OK 的
VB 程 序 与 大 家 分 享 。 当 然 也 可 以 给 写 邮 件 ， 大 家 一 起 学 习 ！ 我 的 邮 件 地 址 ：
158372430@qq.com
1.准备工作：
安装好的 VB 编译器(本人是在 VB6.0 下调试成功的），GPIB 卡一张(USB 或 PCI 插槽的都
行），GPIB 线一条(需要几台仪器通讯需准备多条),Agilent IO library 或者只要有 VISA 驱
动就行.(如要用 EXCEL 存取数据，就要安装好 EXCEL）
2.讲了这么多废话，大家都不耐烦了吧。我们开始动手吧！我就以我们公司目前在使用中
的仪器 Agilent E6607A 为例。
3. 打 开 VB6.0 编 程 标 准 界 面 ， 添 加 必 须 的 引 用 (VISA COM 488.2 FORMATTED I/O
1.0 ,VISA COM 3.0 type library-- 这 两 个 引 用 需 要 安 装 VISA 驱 动 后 才 会 在 引 用 选 项
里;microsoft excel 9.0 object library--需要存取数据到 EXCEL 的才需要添加此引用，否则可
以不添加，添加了也没影响),然后添加一个 CommonDialog1，和 Command1 控件.copy 一下
代码：
Dim E6607A As VisaComLib.FormattedIO488 ‘定义 VISA 对象
Dim rs As VisaComLib.ResourceManager
Private Sub Command1_Click()
Dim xl As Excel.Application
Dim xb As Excel.Workbook
Dim xs As Excel.Worksheet
Dim i As Long, j As Long
Dim fl As String
Set rs = New VisaComLib.ResourceManager
Set E6607A = New VisaComLib.FormattedIO488
Set DMM.IO = rs.Open("GPIB::22") '设置仪器的 GPIB 地址为 22，当然这里是定死了地址，
你可以改成可以自由设定的地址
CommonDialog1.Filter = "Excel Files(*.xls)|*.xls|All File|*.*"
评论0