Agilent Technologies Multiple Channel Controller 85330A User Manual
Page 106
6-32
85330A Multiple Channel Controller
Programming
Programming Examples
1143 OUTPUT @Hp85330a;”RUNT:TIME:EVEN 0,15000000;” ! 15 sec, 1st point.
1144 OUTPUT @Hp85330a;”RUNT:TIME:EVEN 1,5000000;” ! 5 sec, 2nd - last point.
1145 OUTPUT @Hp85330a;”RUNT:TIME:REC 1000000;” ! timeout receiver.
1146 !
1147 OUTPUT @Hp85330a;”RUNT:SWIT:DEL 2;” ! Switch settling is 2 uS.
1148 OUTPUT @Hp85330a;”RUNT:SWIT:SCAN 1,(@”;Switch_start;”:”;Switch_stop;”);”
1149 !
1150 OUTPUT @Hp85330a;”RUNT:SOUR:COUN “;Freq_pts;”;” ! No of frequency points.
1151 OUTPUT @Hp85330a;”RUNT:SOUR:SOURCE1:TRIG TTL;” ! Set source to ext trig.
1152 OUTPUT @Hp85330a;”RUNT:SOUR:SOURCE2:TRIG TTL;” ! Set source to ext trig.
1153 !
1154 REPEAT
1156 OUTPUT @Hp85330a;”SYST:ERR?;” ! Check error status
1157 ENTER @Hp85330a;Err_num,Err_str$ ! until error is 0.
1158 UNTIL Err_num=0
1160 !
1161 Set_positioner:!
1162 !
1163 ! Set positioner to start angle.
1164 ! Set velocity, acceleration.
1165 ! Set start, stop and increment angles.
1166 !
1167 Start_meas:!
1168 !
1169 ! Set the HP 8530A in FAST AUTO-RANGING data mode.
1170 !
1171 OUTPUT @Rec;”FASAD;” ! SET THE RECEIVER TO FAST DATA w/ AUTO-RANGE.
1172 REPEAT ! WAIT UNTIL THE RECEIVER IS READY TO
1173 WAIT .001 ! TO TAKE DATA.
1174 UNTIL BIT(SPOLL(@Rec),2) !
1175 TRIGGER @Rec ! ISSUE HPIB TRIGGER TO BEGIN FAST DATA MODE.
1176 !
1177 ! Set the HP 85330A to intitiate the run time control.
1178 !
1179 OUTPUT @Rf;”INIT:CONT ON;” ! Initiate the rf source.
1180 OUTPUT @Lo;”INIT:CONT ON;” ! Initiate the lo source.
1181 OUTPUT @Hp85330a;”RUNT:INIT:IMM;” ! Initiate the HP 85330A run time mode.
1182 !
1183 ! Set the positioner to take an angle scan.
1184 !
1185 REM Start the positioner.
1186 !
1187 ! This starts the data tranfer from the receiver to the computer. When
1188 ! a trigger is issued to the receiver the data is placed into the receiver’s
1189 ! buffer and then read from the reciever using the following TRANSFER
1190 ! statement.
1191 !
1192 TRANSFER @Rec TO @Buffer;RECORDS Points,EOR (COUNT 6)
1193 !