Errnum% = Hpiboutputs(Hhpib%, Device&, Route$, Len(Route$)); Take The Reading And Check For Errors; Errnum% = Hpiboutputs(Hhpib%, Device&, Reed$, Len(Reed$)) - Agilent Technologies 34420A User Manual

Chapter 6 Application Programs
Microsoft Visual Basic Language Program
... continued
Rem Channel 1 measurement
conf1$ = "CONF:VOLT:DC 1,0.01,(@FRON1)"
errnum% = HpibOutputS(hHpib%, device&, conf1$, Len(conf1$))
Call check_srq
conf2$ = "CONF:VOLT:DC 0.001,MAX,(@FRON2); "
errnum% = HpibOutputS(hHpib%, device&, conf2$, Len(conf2$))
Call check_srq
route$ = "ROUT:TERM FRONT1"
errnum% = HpibOutputS(hHpib%, device&, route$, Len(route$))
' Take the reading and check for errors.
reed$ = "READ?"
errnum% = HpibOutputS(hHpib%, device&, reed$, Len(reed$))
errnum% = HpibEnter(hHpib%, device&, reading1!)
Text1.Text = Str$(reading1!)
Call check_srq
Rem Channel 2 measurement
route$ = "ROUT:TERM FRONT2"
errnum% = HpibOutputS(hHpib%, device&, route$, Len(route$))
Call check_srq

' Take the reading and check for errors.

errnum% = HpibOutputS(hHpib%, device&, reed$, Len(reed$))
errnum% = HpibEnter(hHpib%, device&, reading2!)
Text2.Text = Str$(reading2!)
Call check_srq
Rem Nulled Channel 1 Measurement
null_stmt$ = "SENS1:VOLT:DC:NULL ON"
errnum% = HpibOutputS(hHpib%, device&, null_stmt$, Len(null_stmt$))
Call check_srq
null_stmt$ = "SENS1:VOLT:DC:NULL " + Str$(reading1!)
errnum% = HpibOutputS(hHpib%, device&, null_stmt$, Len(null_stmt$))
Call check_srq
errnum% = HpibOutputS(hHpib%, device&, reed$, Len(reed$))
errnum% = HpibEnter(hHpib%, device&, reading!)
Text3.Text = Str$(reading!)
Call check_srq
6
225