Chapter 9
95
Measurement Applications (Sample Programs)
Setting Up Measurement Conditions and LCD Display
9.
M
easu
rem
ent
Applica
tio
ns
(S
amp
le
Prog
ra
ms)
'===================================
' ErrorCheck
'===================================
Sub ErrorCheck(ErrorStatus As Long)
Dim strVisaErr As String * 500
' Check if VISA Error
If ErrorStatus <> VI_SUCCESS Then
Call viStatusDesc(defrm, ErrorStatus, strVisaErr)
MsgBox "*** Error : " + strVisaErr
End If
End Sub
'===================================
' Select Connection Mode (GPIB/USB)
'===================================
Sub SelectMode(defrm As Long, Agte4981a As Long)
Dim SelectMode As String
SelectMode = Worksheets("ControlPanel").Range("B3").Value
If SelectMode = "GPIB" Then
ErrorCheck viOpen(defrm, "GPIB0::17::INSTR", 0, 0, Agte4981a)
End If
If SelectMode = "USB" Then
ErrorCheck viOpen(defrm, "USB0::2391::2313::MY12345678::0::INSTR",
0, 0, Agte4981a)
End If
End Sub
Содержание E4981A
Страница 2: ......
Страница 20: ...18 Chapter1 Making Effective Use of This Manual How To Use This Manual ...
Страница 60: ...58 Chapter4 Preparation for Accurate Measurement Executing Correction Using the Cable Correction Function ...
Страница 88: ...86 Chapter7 Sorting Based on Measured Result Comparator Function Sample Program ...
Страница 162: ...160 Chapter9 Measurement Applications Sample Programs Detecting Error Occurrence using SRQ HT Basic ...
Страница 376: ...374 AppendixE Error Messages Warning Messages WARNING ...
Страница 382: ......
Страница 383: ...This information is subject to change without notice Keysight Technologies 2008 2014 Edition 2 August 2014 E4981 90001 ...