279
Chapter 6 Application Programs
Example: BASIC for Windows
4
6
500 PRINT "AM Modulation - press CONTinue"
510 !
520 OUTPUT @Fgen;"OUTPut:LOAD INFinity" ! Configure for Hi Z load
530 OUTPUT @Fgen;"APPLy:SINusoid 1e6,1,0" ! 1MHz Sine, 1Vpp, 0Vdc Offset
540 OUTPUT @Fgen;"AM:INTernal:FUNCtion RAMP" ! Modulating signal: Ramp
550 OUTPUT @Fgen;"AM:INTernal:FREQuency 10e3" ! Modulating frequency: 10kHz
560 OUTPUT @Fgen;"AM:DEPTh 80" ! Modulating depth: 80%
570 OUTPUT @Fgen;"AM:STATe ON" ! Turn ON AM modulation
580 Check_errors ! Routine checks for errors
590 PAUSE
600 OUTPUT @Fgen;"am:stat off" ! Turn OFF AM modulation
610 !
620 PRINT "FM Modulation - press CONTinue"
630 !
640 OUTPUT @Fgen;"outp:load 50" ! Configure for 50 ohm load
650 OUTPUT @Fgen;"appl:sin 20e3,1,0" ! 20kHz Sine, 1Vpp, 0Vdc Offset
660 OUTPUT @Fgen;"fm:dev 20e3" ! FM deviation: 20kHz
670 OUTPUT @Fgen;"fm:int:freq 1000" ! FM Modulating Freq: 1kHz
680 OUTPUT @Fgen;"fm:stat on" ! Turn ON FM modulation
690 Check_errors ! Routine checks for errors
700 PAUSE
710 OUTPUT @Fgen;"fm:stat off" ! Turn OFF FM modulation
720 !
730 PRINT "Linear Sweep - press CONTinue"
740 !
750 OUTPUT @Fgen;"sweep:time 1" ! 1 second sweep time
760 OUTPUT @Fgen;"freq:start 100" ! Start frequency: 100Hz
770 OUTPUT @Fgen;"freq:stop 20000" ! Stop frequency: 20kHz
780 OUTPUT @Fgen;"sweep:stat on" ! Turn ON sweeping
790 Check_errors ! Routine checks for errors
800 PAUSE
810 OUTPUT @Fgen;"sweep:stat off" ! Turn OFF sweeping
820 !
830 PRINT "Pulse Waveform with variable Edge Times - press CONTinue"
840 !
850 OUTPUT @Fgen;"output:state off" ! Disable Output BNC
860 OUTPUT @Fgen;"volt:low 0;:volt:high 0.75" ! Low = 0V, High = 0.75V
870 OUTPUT @Fgen;"pulse:period 1e-3" ! 1ms intervals
880 OUTPUT @Fgen;"pulse:width 100e-6" ! 100us pulse width
890 OUTPUT @Fgen;"pulse:tran 10e-6" ! Edge time 10us
900 OUTPUT @Fgen;"func pulse" ! Select Function Pulse
910 OUTPUT @Fgen;"output:state on" ! Enable Output BNC
920 FOR I=1 TO 10 ! Vary edge by 1usec steps
930 OUTPUT @Fgen;"puls:tran ";1.0E-5+I*1.E-6
940 WAIT .3
950 NEXT I
960 Check_errors ! Routine checks for errors
970 PAUSE
980 !
Continued...