Chapter 9
103
Measurement Applications (Sample Programs)
Executing OPEN/SHORT/LOAD Correction
9.
M
easu
rem
ent
Applica
tio
ns
(S
amp
le
Prog
ra
ms)
MsgBox "Cpref= " & Cpref & vbNewLine & "Dref= " & Dref & vbNewLine &
"|Zref| = " & Zref
MsgBox "Cp= " & Param1 & vbNewLine & "D= " & Param2 & vbNewLine &
"|Z| = " & Zm
If Abs((Zm - Zref) / Zref) >= Limit Then Err_Flag = 1
End Select
If Err_Flag = False Then
MsgBox (Standard & " Data measurement completed.")
Else
MsgBox (Standard & " Data measurement not completed."),
vbExclamation
End If
End If
'===================================
' Setup End
'===================================
Call viClose(defrm)
FnComp = Err_Flag
End Function