Chapter 9
101
Measurement Applications (Sample Programs)
Executing OPEN/SHORT/LOAD Correction
9.
M
easu
rem
ent
Applica
tio
ns
(S
amp
le
Prog
ra
ms)
End Select
j= MsgBox("Set " & Standard & " connection and Press OK.",
vbOKCancel)
If j = vbCancel Then
MsgBox "Operation cancelled. Ending the program."
Err_Flag = True
Else
ErrorCheck viVPrintf(Agte4981a, ":CORR:COLL " & Std +
vbLf, 0)
' Data Check
ErrorCheck viVPrintf(Agte4981a, ":CORR:DATA? " & Std +
vbLf, 0)
ErrorCheck viVScanf(Agte4981a, "%t", Result)
Res = Split(Result, ",")
Param1 = Val(Res(0))
Param2 = Val(Res(1))
Select Case Standard
Case "OPEN"
Ym = Sqr(Param1 * Param2 * Param2)
MsgBox "G= " & Param1 & vbNewLine & "B= " & Param2 &
vbNewLine & "|Y| = " & Ym
If Ym >= Limit Then Err_Flag = True