Agilent Technologies 34420A User Manual page 228

Chapter 6 Application Programs
Microsoft Visual Basic Language Program
... continued
Rem Need to set timeout so that sampling and averaging can complete.
Rem This assumes triggers occur at a rate high enough to be a
Rem negligible factor.
errnum% = HpibTimeout(hHpib%, isc&, samp_count% * nplc% / 20)
Call check_srq
Rem Use "INIT" and "FETCH" to initiate measurement and read back
Rem results into an array.
cmd$ = "INIT"
errnum% = HpibOutputS(hHpib%, device&, cmd$, Len(cmd$))
Call check_srq
reed$ = "FETC?"
errnum% = HpibOutputS(hHpib%, device&, reed$, Len(reed$))
errnum% = HpibEnterA(hHpib%, device&, Readings!(0), samp_count%)
Text1.Text = Str$(Readings!(0))
Call check_srq
Rem Close the instrument
errnum% = HpibClose(hHpib%)
End Sub
Sub Command5_Click ()
form1.PrintForm
End Sub
228