Specifications

Chapter 16 269
Application Programs
Basic Measurement
16. Application Program
880| Result = Cal("OPEN")
890| If Result <> 0 Then GoTo Prog_int
900|
910| Result = Cal("SHORT")
920| If Result <> 0 Then GoTo Prog_int
930|
940| Result = Cal("LOAD")
950| If Result <> 0 Then GoTo Prog_int
960|
970| Reply = Message("Do you want to measure a LOW-LOSS
CAPACITOR?")
980| If Reply = 0 Then
990| Result = Cal("LOW-LOSS C")
1000| If Result <> 0 Then GoTo Prog_int
1010| End If
1020|
1030| SCPI.Output "SENS:CORR1:COLL:SAVE"
1040| buff = SCPI.Query("*OPC?")
1050| MsgBox "All cal-data measurement completion", vbOKOnly,
"Calibration"
1060|
1070| Cal_skip:
1080|
1090| ' STEP4: Connect the Test Fixture
1100| ' STEP5: Setting the Electrical Length of the Test
Fixture
1110|
1120| Reply = Message("Connect the " & Fixture & " test
fixture to the E4991A.")
1130| If Reply <> 0 Then GoTo Prog_int
1140| SCPI.Output "SENS:CORR2:FIXT " & Fixture
1150| buff = SCPI.Query("*OPC?")
1160|
1170| ' STEP6: Compensation (FIXED)
1180|
1190| ' Initial Settings
1200|
1210| SCPI.Output "SENS:CORR2:COLL:FPO " & Cal_type
1220|
1230| ' Data Measurement
1240|
1250| Result = Fixt_comp("OPEN")
1260| If Result <> 0 Then GoTo Prog_int
1270|
1280| Result = Fixt_comp("SHORT")
1290| If Result <> 0 Then GoTo Prog_int
1300|
1310| SCPI.Output "SENS:CORR2:COLL:SAVE"
1320| buff = SCPI.Query("*OPC?")
1330| MsgBox "All compen-data measurement completion",
vbOKOnly, "Compensation"
1340|
1350| ' STEP7: Connect the DUT (Chip Inductor)
1360|
1370| Meas_start:
1380| Reply = Message("Connect the DUT to electrode plate on
the fixture.")
1390| If Reply <> 0 Then GoTo Prog_int