
Chapter 6 195
Advanced Operations
Passing Control
380 GOTO Try_again
390 ELSE
400 PRINT "ERROR =";ERRN
410 STOP
420 END IF
430 !
440 END
450 !
460 SUB Start_program
470 !
480 COM /Hpib_names/ INTEGER Internal_hpib,External_hpib
490 COM /Cntrl_names/ Ext_cntrl_addrs,Int_cntrl_addrs
500 COM /Io_names/ INTEGER Printer_addrs,Pwr_suply_addrs
510 COM /Io_values/ REAL Meas_power
520 !
530 PRINT "SETTING POWER SUPPLY"
540 OUTPUT External_hpib+Pwr_suply_addrs;"IMAX 8;ISET 5"
550 OUTPUT External_hpib+Pwr_suply_addrs;"VMAX 15;VSET 13.2"
560 !
570 PRINT "SETTING UP INTERNAL INSTRUMENTS"
580 OUTPUT Internal_hpib;"RFG:FREQ 850.030 MHz;AMPL -40 dBm"
590 OUTPUT Internal_hpib;"AFG1:FREQ 3 KHZ;DEST ’FM’;FM 3 KHZ"
600 OUTPUT Internal_hpib;"DISP TX;MEAS:RFR:POW?"
610 ENTER Internal_hpib;Meas_power
620 !
630 OUTPUT External_hpib+Printer_addrs;"Measured power = ";Meas_power
640 !
650 OUTPUT External_hpib+Pwr_suply_addrs;"VSET 0"
660 !
670 SUBEND
Comentários a estes Manuais