2024年5月27日发(作者：过若雁)
VB通过GPIB与仪器通讯
看到很多同仁,朋友在网上寻找VB通过GPIB与仪器通讯.的资料，我本人也常常查找
这方面的资料，深感痛苦！今天第一次将自己的VB通过GPIB与仪器通讯的经验与调试
OK 的VB 程序与大家分享。当然也可以给写邮件，大家一起学习！我的邮件地址：
158372430@
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 tedIO488 ‘定义VISA 对象
Dim rs As ceManager
Private Sub Command1_Click()
Dim xl As ation
Dim xb As ok
Dim xs As eet
Dim i As Long, j As Long
Dim fl As String
Set rs = New ceManager
Set E6607A = New tedIO488
Set = ("GPIB::22") '设置仪器的GPIB地址为22，当然这里是定
死了地址，你可以改成可以自由设定的地址
= "Excel Files(*.xls)|*.xls|All File|*.*"
r =
en
fl = me
2024年5月27日发(作者：过若雁)
VB通过GPIB与仪器通讯
看到很多同仁,朋友在网上寻找VB通过GPIB与仪器通讯.的资料，我本人也常常查找
这方面的资料，深感痛苦！今天第一次将自己的VB通过GPIB与仪器通讯的经验与调试
OK 的VB 程序与大家分享。当然也可以给写邮件，大家一起学习！我的邮件地址：
158372430@
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 tedIO488 ‘定义VISA 对象
Dim rs As ceManager
Private Sub Command1_Click()
Dim xl As ation
Dim xb As ok
Dim xs As eet
Dim i As Long, j As Long
Dim fl As String
Set rs = New ceManager
Set E6607A = New tedIO488
Set = ("GPIB::22") '设置仪器的GPIB地址为22，当然这里是定
死了地址，你可以改成可以自由设定的地址
= "Excel Files(*.xls)|*.xls|All File|*.*"
r =
en
fl = me