Download 4 - Keysight

Chapter 6 Application Programs
Microsoft Visual Basic Language Program
... continued
Rem Set up the meter
errnum% = HpibOpen(isc&, hHpib%)
Call check_srq
errnum% = HpibReset(hHpib%, isc&)
Call check_srq
errnum% = HpibTimeout(hHpib%, isc&, TimeVal#)
Call check_srq
rst$ = "*RST; *CLS; *SRE 32; *ESE 61"
errnum% = HpibOutputS(hHpib%, device&, rst$, Len(rst$))
Call check_srq
Rem Measurement Setup
quote$ = Chr$(34)
cmd$ = "SENS:FUNC " + quote$ + "VOLT:DC" + quote$
errnum% = HpibOutputS(hHpib%, device&, cmd$, Len(cmd$))
Call check_srq
cmd$ = "SENS:VOLT:DC:RANG " + Str$(range%)
errnum% = HpibOutputS(hHpib%, device&, cmd$, Len(cmd$))
Call check_srq
cmd$ = "SENS:VOLT:DC:NPLC " + Str$(nplc%)
errnum% = HpibOutputS(hHpib%, device&, cmd$, Len(cmd$))
Call check_srq
cmd$ = "CALC:FUNC " + Funct$
errnum% = HpibOutputS(hHpib%, device&, cmd$, Len(cmd$))
Call check_srq
cmd$ = "CALC:STAT ON"
errnum% = HpibOutputS(hHpib%, device&, cmd$, Len(cmd$))
Call check_srq
cmd$ = "CALC:SCAL:GAIN " + Str$(Gain%)
errnum% = HpibOutputS(hHpib%, device&, cmd$, Len(cmd$))
Call check_srq
6
cmd$ = "CALC:SCAL:OFFS " + Str$(Offset%)
errnum% = HpibOutputS(hHpib%, device&, cmd$, Len(cmd$))
Call check_srq
cmd$ = "SAMP:COUN " + Str$(samp_count%)
errnum% = HpibOutputS(hHpib%, device&, cmd$, Len(cmd$))
Call check_srq
cmd$ = "TRIG:SOUR " + Trig_src$
errnum% = HpibOutputS(hHpib%, device&, cmd$, Len(cmd$))
Call check_srq
227