Keysight 34420A - C Language Programs

6 Application Programs
250 Keysight 34420A User’s Guide
... continued
Rem Set up the meter
errnum% = GpibOpen(isc&, hGpib%)
Call check_srq
errnum% = GpibReset(hGpib%, isc&)
Call check_srq
errnum% = GpibTimeout(hGpib%, isc&, TimeVal#)
Call check_srq
rst$ = "*RST; *CLS; *SRE 32; *ESE 61"
errnum% = GpibOutputS(hGpib%, device&, rst$, Len(rst$))
Call check_srq
Rem Measurement Setup
quote$ = Chr$(34)
cmd$ = "SENS:FUNC " + quote$ + "VOLT:DC" + quote$
errnum% = GpibOutputS(hGpib%, device&, cmd$, Len(cmd$))
Call check_srq
cmd$ = "SENS:VOLT:DC:RANG " + Str$(range%)
errnum% = GpibOutputS(hGpib%, device&, cmd$, Len(cmd$))
Call check_srq
cmd$ = "SENS:VOLT:DC:NPLC " + Str$(nplc%)
errnum% = GpibOutputS(hGpib%, device&, cmd$, Len(cmd$))
Call check_srq
cmd$ = "CALC:FUNC " + Funct$
errnum% = GpibOutputS(hGpib%, device&, cmd$, Len(cmd$))
Call check_srq
cmd$ = "CALC:STAT ON"
errnum% = GpibOutputS(hGpib%, device&, cmd$, Len(cmd$))
Call check_srq
cmd$ = "CALC:SCAL:GAIN " + Str$(Gain%)
errnum% = GpibOutputS(hGpib%, device&, cmd$, Len(cmd$))
Call check_srq
cmd$ = "CALC:SCAL:OFFS " + Str$(Offset%)
errnum% = GpibOutputS(hGpib%, device&, cmd$, Len(cmd$))
Call check_srq
cmd$ = "SAMP:COUN " + Str$(samp_count%)
errnum% = GpibOutputS(hGpib%, device&, cmd$, Len(cmd$))
Call check_srq
cmd$ = "TRIG:SOUR " + Trig_src$
errnum% = GpibOutputS(hGpib%, device&, cmd$, Len(cmd$))
Call check_srq