Specifications

90 Chapter 4
Preparation for Accurate Measurement
Calibration
320 For i = 1 To Nop_cal * 2
330 Input #iFileNo, Cal_a1(i)
340 Next i
350 For i = 1 To Nop_cal * 2
360 Input #iFileNo, Cal_b1(i)
370 Next i
380 For i = 1 To Nop_cal * 2
390 Input #iFileNo, Cal_c1(i)
400 Next i
410 For i = 1 To Nop_cal * 2
420 Input #iFileNo, Cal_a2(i)
430 Next i
440 For i = 1 To Nop_cal * 2
450 Input #iFileNo, Cal_b2(i)
460 Next i
470 For i = 1 To Nop_cal * 2
480 Input #iFileNo, Cal_c2(i)
490 Next i
500
510 Close #iFileNo
520
530 data_a1 = Cal_a1(1)
540 data_b1 = Cal_b1(1)
550 data_c1 = Cal_c1(1)
560 data_a2 = Cal_a2(1)
570 data_b2 = Cal_b2(1)
580 data_c2 = Cal_c2(1)
590 For i = 2 To Nop_cal * 2
600 data_a1 = data_a1 & "," & Cal_a1(i)
610 data_b1 = data_b1 & "," & Cal_b1(i)
620 data_c1 = data_c1 & "," & Cal_c1(i)
630 data_a2 = data_a2 & "," & Cal_a2(i)
640 data_b2 = data_b2 & "," & Cal_b2(i)
650 data_c2 = data_c2 & "," & Cal_c2(i)
660 Next i
670
680 ' -> Input Calibration Data
690
700 SCPI.Output "FORM:DATA ASC"
710 SCPI.Output "DATA:CCO1 " & data_a1
720 SCPI.Output "DATA:CCO2 " & data_b1
730 SCPI.Output "DATA:CCO3 " & data_c1
740 SCPI.Output "DATA:CCO4 " & data_a2
750 SCPI.Output "DATA:CCO5 " & data_b2
760 SCPI.Output "DATA:CCO6 " & data_c2
770
780 MsgBox "Data Writing succeed!", vbOKOnly, "Transfer"
790
800 End
810
820 Prog_end: End Sub