Agilent Technologies 34420A - Errnum% = Hpiboutputs(Hhpib%, Device&, Route, Len(Route)); Take the Reading and Check for Errors; Errnum% = Hpiboutputs(Hhpib%, Device&, Reed, Len(Reed))

... 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
Chapter 6 Application Programs
Microsoft Visual Basic Language Program
225