Microsoft Visual Basic Language Program; Call Check_Srq; Errnum% = Hpibopen(Isc&, Hhpib%) Call Check_Srq; Errnum% = Hpibreset(Hhpib%, Isc&) Call Check_Srq - Agilent Technologies 34420A User Manual

Chapter 6 Application Programs

Microsoft Visual Basic Language Program

Microsoft Visual Basic Language Program
This example was created in Microsoft
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.
GPIB
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
224
GPIB
GPIB
®
Visual Basic for Windows . The
Agilent Control Libraries.
GPIB