Specifications

86 Chapter 4
Preparation for Accurate Measurement
Calibration
1130
1140 If Inp_char = vbOK Then
1150 Select Case Standard
1160 Case "Open"
1170 bool = CalMeasure(CalOpen)
1180 Case "Short"
1190 bool = CalMeasure(CalShort)
1200 Case "Load"
1210 bool = CalMeasure(CalLoad)
1220 Case "Low-loss C"
1230 bool = CalMeasure(CalLowLossC)
1240 End Select
1250
1260 If bool = 0 Then
1270 MsgBox Standard & " Calibration aborted!", vbOKOnly,
"Calibration"
1280 Cal = -1
1290 Else
1300 Cal = 0
1310 End If
1320 Else
1330 Cal = -1
1340 End If
1350
1360 End Function
1370
1380 Sub Inp_data(Mes As String, Inp_val As Double)
1390
1400 Inp_val = Val(InputBox(Mes, "Input values"))
1410
1420 End Sub