Agilent Technologies 34420A, User Manual

Page: 224 / 294

Microsoft Visual Basic Language Program
This example was created in Microsoft
®
Visual Basic for Windows

. The
example uses the 82335B and HP-IB control library. You must set up
the GLOBAL.BAS to provide access to the HP-IB.DLL. The
GLOBAL.BAS file is included with the Hewlett-Packard control libraries.
In addition to the global declarations, the subroutine check_srq is also
included in the GLOBAL.BAS file.
The HP-IB (IEEE-488) address is set to "22" when the meter is shipped
from the factory. The examples in this chapter assume a HP-IB address
of 22. When sending a remote interface command, you append this
address to the HP-IB interface’s select code (normally 7). Therefore, with
an address of 22 and a select code of 7, the combination is "722".
Sub Command1_Click ()
Rem Set up interface variables
isc& = 7
device& = isc& * 100 + 22
swap% = 2
max% = 4000 * swap%
act% = 0
max1% = 50
TimeVal# = 10#
Rem Clear out text boxes
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Rem Set up the meter
errnum% = HpibOpen(isc&, hHpib%)
Call check_srq
errnum% = HpibReset(hHpib%, isc&)
Call check_srq
errnum% = HpibTimeout(hHpib%, isc&, TimeVal#)
Call check_srq
rst$ = "*RST; *CLS; *SRE 32; *ESE 60"
errnum% = HpibOutputS(hHpib%, device&, rst$, Len(rst$))
Call check_srq
Chapter 6 Application Programs
Microsoft Visual Basic Language Program
224
GPIB
GPIB
GPIB
GPIB
Agilent Control Libraries.