Agilent Technologies Infiniium 8000A Programmer's Reference Manual page 135

1410 !
1420 OUTPUT @Scope;":MEASure:FREQuency? CHANnel1"
1430 ENTER @Scope;Freq_str$
1440 Bytes_read=LEN(Freq_str$)
1450 IF Freq_str$[Bytes_read;1]="0" THEN
1460 PRINT
1470 PRINT "Frequency is ";VAL(Freq_str$[1,Bytes_read-1])
1480 PRINT
1490 ELSE
1500 PRINT
1510 PRINT "Automated frequency measurement error with result
";Freq_str$[Bytes_read;1]
1520 PRINT
1530 END IF
1540 !
1550 !
1560 ! METHOD TWO
1570 !
1580 OUTPUT @Scope;":MEASure:SENDvalid OFF"
1590 OUTPUT @Scope;":MEASure:VPP? CHANnel1"
1600 ENTER @Scope;Vpp
1610 IF Vpp<9.99E+37 THEN
1620 PRINT
1630 PRINT "VPP is ";Vpp
1640 PRINT
1650 ELSE
1660 PRINT
1670 PRINT "Automated vpp measurement error ";Vpp
1680 PRINT
1690 END IF
1700 OUTPUT @Scope;":MEASure:FREQuency? CHANnel1"
1710 ENTER @Scope;Freq
1720 IF Freq<9.99E+37 THEN
1730 PRINT
1740 PRINT "Frequency is ";Freq
1750 PRINT
1760 ELSE
1770 PRINT
1780 PRINT "Automated frequency measurement error";Freq
1790 PRINT
1800 END IF
1810 SUBEND
1820 !
1830 !
1840
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!
1850 !
Sample Programs
init.bas Sample Program
!Query frequency
!Find string length
!Determine result value
!turn off results
!Query volts peak-to-peak
6-41