... 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
Chapter 6 Application Programs
Microsoft Visual Basic Language Program
228
Содержание 34420A
Страница 1: ......
Страница 2: ......
Страница 13: ...1 Quick Start ...
Страница 31: ...2 Front Panel Operation ...
Страница 55: ...3 Features and Functions ...
Страница 117: ...4 Remote Interface Reference ...
Страница 200: ...5 Error Messages ...
Страница 213: ...6 Application Programs ...
Страница 245: ...6 Chapter 6 Application Programs Microsoft Excel Macro Example 245 ...
Страница 246: ...Chapter 6 Application Programs Microsoft Excel Macro Example 246 ...
Страница 247: ...7 Measurement Tutorial ...
Страница 274: ...8 Specifications ...
Страница 279: ...Dimensions Chapter 8 Specifications 34420A Nano Volt Micro Ohm Meter 280 ...
Страница 294: ......