Agilent Technologies Multiple Channel Controller 85330A - Manual (Page 101)

85330A Multiple Channel Controller 6-27
Programming
Programming Examples
1089 OUTPUT @Rec;”TRGSEXT;HOLD;” ! SET TO EXTERNAL TRIGGER FOR CONTROLLED
1090 !
1091 !
1092 Set_85330a:!
1093 !
1094 OUTPUT @Hp85330a;”*RST;” ! SOFT RESET
1095 !
1097 OUTPUT @Hp85330a;”RUNT:EVEN:TRIG TTL;” ! Set the triggering.
1098 OUTPUT @Hp85330a;”RUNT:EVEN:COUN “;Angle_pts;”;” ! Angle increments
1099 !
1100 OUTPUT @Hp85330a;”RUNT:TIME:EVEN 0,15000000;” ! timeout 1st point: 15 sec.
1101 OUTPUT @Hp85330a;”RUNT:TIME:EVEN 1,5000000;” ! timeout 2nd - last: 5 sec.
1102 OUTPUT @Hp85330a;”RUNT:TIME:REC 1000000;” ! timeout receiver: 1 sec.
1103 !
1104 OUTPUT @Hp85330a;”RUNT:SWIT:DEL 50;” ! Switch settling is 50 uS
1105 ! ! when using multi-parameter
1106 ! ! display.
1107 OUTPUT @Hp85330a;”RUNT:SWIT:SCAN 1,(@”;Switch_start;”:”;Switch_stop;”);”
1108 !
1109 OUTPUT @Hp85330a;”RUNT:SOUR:COUN “;Freq_pts;”;” ! Frequency points.
1110 OUTPUT @Hp85330a;”RUNT:SOUR:SOURCE1:TRIG IMM;” ! No External triggering.
1111 OUTPUT @Hp85330a;”RUNT:SOUR:SOURCE2:TRIG IMM;” ! No External triggering.
1112 !
1113 !
1114 Set_positioner:!
1115 !
1116 ! Set positioner to start angle.
1117 ! Set velocity, acceleration.
1118 ! Set start, stop and increment angles.
1119 ! Set positioner to issue TTL triggers at increment angles.
1120 !
1121 !
1122 Start_meas:!
1123 !
1124 OUTPUT @Rec;”CLES;SING;” ! Start receiver single sweep.
1125 OUTPUT @Hp85330a;”RUNT:INIT:IMM;” ! Start measurement process
1126 REM Set the positioner to take an angle scan. ! Start the positioner.
1127 !
1128 FOR Passes=1 TO Angle_pts
1129 REPEAT
1130 ! Wait for SING sweep to complete
1131 UNTIL BIT(SPOLL(@Rec),4)
1132 FOR N=1 TO Chan_pts
1133 OUTPUT @Rec;”PARA”&VAL$(N)&”;”
1134 OUTPUT @Rec;”FORM3;OUTPDATA;”