Specifications

268 Chapter 16
Application Programs
Basic Measurement
330| Cal_type = "FIX" ' Calibration Type: FIXED
340| Fixture = "FXT16197A" ' Test Fixture:
16197A
350| Mkr_src = "MAX" ' Specified Search Function:
MAXIMUM
360|
370| Reply = Message("All the preparations for a measurement
are complete?")
380| If Reply <> 0 Then GoTo Prog_int
390|
400| ' STEP2: Specifying Measurement Conditions
410|
420| ' Reset the E4991A to the Default State
430|
440| SCPI.Output "SYST:PRES"
450| buff = SCPI.Query("*OPC?")
460|
470| ' Specifying Sweep Conditions
480|
490| SCPI.Output "SWE:POIN " & CStr(nop)
500| SCPI.Output "SWE:TYPE " & Swp_type
510| SCPI.Output "FREQ:STAR " & CStr(Swp_start)
520| SCPI.Output "FREQ:STOP " & CStr(Swp_stop)
530| SCPI.Output "SOUR:CURR:MODE FIX"
540| SCPI.Output "SOUR:CURR " & CStr(Curr_lev)
550| SCPI.Output "TRIG:SOUR BUS"
560|
570| ' Specifying Measurement Parameters
580|
590| SCPI.Output "DISP:TRAC1 ON"
600| SCPI.Output "DISP:TRAC2 ON"
610| SCPI.Output "DISP:TRAC3 ON"
620| SCPI.Output "CALC1:FORM " & Para_a
630| SCPI.Output "CALC2:FORM " & Para_b
640| SCPI.Output "CALC3:FORM " & Para_c
650| SCPI.Output "DISP:TRAC1:Y:SPAC " & Fmt_a
660| SCPI.Output "DISP:TRAC2:Y:SPAC " & Fmt_b
670| SCPI.Output "DISP:TRAC3:Y:SPAC " & Fmt_c
680| SCPI.Output "CALC:AVER:COUN " & CStr(swp_count)
690| SCPI.Output "CALC:AVER ON"
700| SCPI.Output "DISP:FORM " & Display
710|
720| ' STEP3: Calibration
730|
740| SCPI.Output "SENS:CORR1?"
750| SCPI.Enter Corr
760| If Corr = 1 Then
770| Reply = Message("Do you perform a calibration?")
780| If Reply <> 0 Then GoTo Cal_skip
790| End If
800|
810| ' Initial Settings
820|
830| SCPI.Output "SENS:CORR1:CKIT DEF"
840| SCPI.Output "SENS:CORR1:COLL:FPO " & Cal_type
850|
860| ' Data Measurement
870|