E5071C
1186
640 !
650 PRINT "## Full "&VAL$(Num_of_ports)&" Port ECal ##"
660 !
670 OUTPUT @Agte507x;"*CLS"
680 SELECT Num_of_ports
690 CASE 1
700 PRINT "Connect Port "&VAL$(Port(1))&" to ECal Module."
710 PRINT "Then push [Enter] key."
720 INPUT "",Buff$
730 OUTPUT @Agte507x;":SENS"&Ch$&":CORR:COLL:ECAL:SOLT1 ";Port(1)
740 CASE 2
750 PRINT "Connect Port "&VAL$(Port(1));
760 PRINT " and Port "&VAL$(Port(2))&" to ECal Module."
770 PRINT "Then push [Enter] key."
780 INPUT "",Buff$
790 OUTPUT @Agte507x;":SENS"&Ch$&":CORR:COLL:ECAL:SOLT2 ";Port(1); ",";Port(2)
800 CASE 3
810 PRINT "Connect Port "&VAL$(Port(1));
820 PRINT ", Port "&VAL$(Port(2));
830 PRINT " and Port "&VAL$(Port(3))&" to ECal Module."
840 PRINT "Then push [Enter] key."
850 INPUT "",Buff$
860 OUTPUT @Agte507x;":SENS"&Ch$&":CORR:COLL:ECAL:SOLT3 ";Port(1); ",";Port(2);",";Port(3)
870 CASE 4
880 PRINT "Connect Port 1, Port 2, Port 3 and Port 4 to to ECal Mod ule."
890 PRINT "Then push [Enter] key."
900 INPUT "",Buff$
910 OUTPUT @Agte507x;":SENS"&Ch$&":CORR:COLL:ECAL:SOLT4 1,2,3,4"
920 END SELECT
930 PRINT "Executing ..."
940 OUTPUT @Agte507x;":SYST:ERR?"
950 ENTER @Agte507x;Err_no,Err_msg$
960 IF Err_no<>0 THEN
970 PRINT "Error occurred!!"
980 PRINT " No:";Err_no,"Description: "&Err_msg$
990 PRINT "ECAL INTERRUPT!!"
1000 ELSE
To Next Page
Loading...
Need help?
General
