Errnum% = Hpiboutputs(Hhpib%, Device&, Null_Stmt$, Len(Null_Stmt$)); Errnum% = Hpiboutputs(Hhpib%, Device&, Reed$, Len(Reed$)); Errnum% = Hpibenter(Hhpib%, Device&, Reading!) - Agilent Technologies 34420A User Manual

Chapter 6 Application Programs
Microsoft Visual Basic Language Program
... continued
Rem Nulled Channel 2 Measurement
null_stmt$ = "SENS2:VOLT:DC:NULL ON"
errnum% = HpibOutputS(hHpib%, device&, null_stmt$, Len(null_stmt$))
Call check_srq
null_stmt$ = "SENS2:VOLT:DC:NULL " + Str$(reading2!)
errnum% = HpibOutputS(hHpib%, device&, null_stmt$, Len(null_stmt$))
Call check_srq
errnum% = HpibOutputS(hHpib%, device&, reed$, Len(reed$))
errnum% = HpibEnter(hHpib%, device&, reading!)
Text4.Text = Str$(reading!)
Call check_srq
Rem Close the instrument
errnum% = HpibClose(hHpib%)
End Sub
Sub Command2_Click ()
End
End Sub
Sub Command3_Click ()
Rem Set up interface variables
isc& = 7
device& = isc& * 100 + 22
swap% = 2
max% = 4000 * swap%
act% = 0
max1% = 50
TimeVal# = 10#
Rem Set up Measurement variables
Funct$ = "SCAL"
Trig_src$ = "EXT"
range% = 10
nplc% = 100
Gain% = .001
Offset% = .5
samp_count% = 100
ReDim Readings!(samp_count%)
Rem Clear out text boxes
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
226