Specifications

Chapter 4 85
Preparation for Accurate Measurement
Calibration
4. Preparation for Accurate Measurement
570 MsgBox "All cal-data measurement completion", vbOKOnly,
"Calibration"
580
590 SCPI.Output "FORM:DATA ASC"
600 SCPI.Output "DATA:CCO1?"
610 SCPI.Enter Cal_a1, "#"
620 SCPI.Output "DATA:CCO2?"
630 SCPI.Enter Cal_b1, "#"
640 SCPI.Output "DATA:CCO3?"
650 SCPI.Enter Cal_c1, "#"
660 SCPI.Output "DATA:CCO4?"
670 SCPI.Enter Cal_a2, "#"
680 SCPI.Output "DATA:CCO5?"
690 SCPI.Enter Cal_b2, "#"
700 SCPI.Output "DATA:CCO6?"
710 SCPI.Enter Cal_c2, "#"
720
730 SCPI.Output "SWE:POIN?"
740 SCPI.Enter Nop_cal
750
760 iFileNo = FreeFile
770 file = "a:\CAL_COEF"
780
790 Open file For Output As iFileNo
800 For i = 1 To Nop_cal * 2
810 Write #iFileNo, Val(Cal_a1(i - 1))
820 Next i
830 For i = 1 To Nop_cal * 2
840 Write #iFileNo, Val(Cal_b1(i - 1))
850 Next i
860 For i = 1 To Nop_cal * 2
870 Write #iFileNo, Val(Cal_c1(i - 1))
880 Next i
890 For i = 1 To Nop_cal * 2
900 Write #iFileNo, Val(Cal_a2(i - 1))
910 Next i
920 For i = 1 To Nop_cal * 2
930 Write #iFileNo, Val(Cal_b2(i - 1))
940 Next i
950 For i = 1 To Nop_cal * 2
960 Write #iFileNo, Val(Cal_c2(i - 1))
970 Next i
980 Close #iFileNo
990
1000 MsgBox "Saving Calibration Coefficient File Completion",
vbOKOnly, "Calibration"
1010
1020 Prog_end: End
1030
1040 End Sub
1050
1060 Function Cal(Standard As String) As Integer
1070 Dim Inp_char As Integer
1080 Dim bool As Long
1090
1100 Inp_char = MsgBox("Connect " & Standard & _
1110 " standard to DUT port.", _
1120 vbOKCancel, "Calibration")