Specifications

Chapter 16 271
Application Programs
Basic Measurement
16. Application Program
1920|
1930| Dim Reply As Integer
1940| Dim Answer As Long
1950|
1960| Reply = Message("Connect " & Standard & " standard to
DUT port.")
1970|
1980| If Reply = 0 Then
1990| Select Case Standard
2000| Case "OPEN"
2010| Answer = CalMeasure(CalOpen)
2020| Case "SHORT"
2030| Answer = CalMeasure(CalShort)
2040| Case "LOAD"
2050| Answer = CalMeasure(CalLoad)
2060| Case "LOW-LOSS C"
2070| Answer = CalMeasure(CalLowLossC)
2080| End Select
2090| If Answer = 0 Then
2100| MsgBox Standard & " Calibration aborted!", vbOKOnly,
"Calibration"
2110| Cal = -1
2120| Else
2130| Cal = 0
2140| End If
2150| Else
2160| Cal = -1
2170| End If
2180|
2190| End Function
2200|
2210| Function Fixt_comp(Standard As String) As Integer
2220|
2230| Dim Reply As Integer
2240| Dim Answer As Long
2250|
2260| Reply = Message("Connect " & Standard & " standard to
electrode plate on the test fixture.")
2270|
2280| If Reply = 0 Then
2290| Select Case Standard
2300| Case "OPEN"
2310| Answer = CompenMeasure(CompenOpen)
2320| Case "SHORT"
2330| Answer = CompenMeasure(CompenShort)
2340| End Select
2350| If Answer = 0 Then
2360| MsgBox Standard & " Compensation aborted!",
vbOKOnly, "Compensation"
2370| Fixt_comp = -1
2380| Else
2390| Fixt_comp = 0
2400| End If
2410| Else
2420| Fixt_comp = -1
2430| End If
2440|
2450| End Function