Keysight 34420A - Page 252

6 Application Programs
248 Keysight 34420A User’s Guide
... continued
Rem Channel 1 measurement
conf1$ = "CONF:VOLT:DC 1,0.01,(@FRON1)"
errnum% = GpibOutputS(hGpib%, device&, conf1$, Len(conf1$))
Call check_srq
conf2$ = "CONF:VOLT:DC 0.001,MAX,(@FRON2); "
errnum% = GpibOutputS(hGpib%, device&, conf2$, Len(conf2$))
Call check_srq
route$ = "ROUT:TERM FRONT1"
errnum% = GpibOutputS(hGpib%, device&, route$, Len(route$))
’ Take the reading and check for errors.
reed$ = "READ?"
errnum% = GpibOutputS(hGpib%, device&, reed$, Len(reed$))
errnum% = GpibEnter(hGpib%, device&, reading1!)
Text1.Text = Str$(reading1!)
Call check_srq
Rem Channel 2 measurement
route$ = "ROUT:TERM FRONT2"
errnum% = GpibOutputS(hGpib%, device&, route$, Len(route$))
Call check_srq
’ Take the reading and check for errors.
errnum% = GpibOutputS(hGpib%, device&, reed$, Len(reed$))
errnum% = GpibEnter(hGpib%, device&, reading2!)
Text2.Text = Str$(reading2!)
Call check_srq
Rem Nulled Channel 1 Measurement
null_stmt$ = "SENS1:VOLT:DC:NULL ON"
errnum% = GpibOutputS(hGpib%, device&, null_stmt$, Len(null_stmt$))
Call check_srq
null_stmt$ = "SENS1:VOLT:DC:NULL " + Str$(reading1!)
errnum% = GpibOutputS(hGpib%, device&, null_stmt$, Len(null_stmt$))
Call check_srq
errnum% = GpibOutputS(hGpib%, device&, reed$, Len(reed$))
errnum% = GpibEnter(hGpib%, device&, reading!)
Text3.Text = Str$(reading!)
Call check_srq