Table of Contents
Advertisement
Measurement Applications (Sample Programs)
Executing OPEN/SHORT/LOAD Correction
'===================================
' Open Instrument
'===================================
ErrorCheck viOpenDefaultRM(defrm)
Call SelectMode(defrm, Agte4981a)
ErrorCheck viSetAttribute(Agte4981a, VI_ATTR_TMO_VALUE,
TimeOutTime)
Err_Flag = False
Const Pi = 3.141592654
ErrorCheck viVPrintf(Agte4981a, "STAT:OPER:ENAB 16" + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, "*SRE 128" + vbLf, 0)
Select Case Standard
Case "OPEN"
Std = "STAN1"
Case "SHORT"
Std = "STAN2"
Case "LOAD"
Std = "STAN3"
Load1 = InputBox("Enter the load Cp Value for " & Freq)
Load2 = InputBox("Enter the load D Value for " & Freq)
ErrorCheck viVPrintf(Agte4981a, ":CORR:CKIT:STAN3:FORMAT CPD" +
vbLf, 0) ' Set Load Type CP and D
ErrorCheck viVPrintf(Agte4981a, ":SOUR:FREQ " & Freq + vbLf, 0)
ErrorCheck viVPrintf(Agte4981a, ":CORR:CKIT:STAN3 " &
CStr(Load1) & "," & CStr(Load2) + vbLf, 0) ' Set Primary/Secondary
parameter Load Coorection Values
100
Chapter 9
Advertisement
Table of Contents
