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

2330 ! Parameters: none
2340 ! Return value: none
2350 ! Description:
voltage information
2360 !
2370 !
2380 !
2390 !
2400 SUB Convert_data
2410 COM /Io/@Scope,@Path,Interface
2420 COM /Raw_data/ INTEGER Data(4095)
2430 COM /Converted_data/ REAL Time(4095),Volts(4095)
2440 COM /Variables/ REAL Xinc,Xorg,Yinc,Yorg
2450 COM /Variables/ INTEGER Record_length
2460 !
2470 FOR I=0 TO Record_length-1
2480 Time(I)=(I-*Xinc)+Xorg
2490 Volts(I)=(Data(I)*Yinc)+Yorg
2500 NEXT I
2510 SUBEND
2520 !
2530 !
2540
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!!!!!!!!!!!!!
2550 !
2560 !
2570 ! Subprogram name: Store_csv
2580 ! Parameters: none
2590 ! Return value: none
2600 ! Description:
about the waveform
2610 !
file format.
2620 !
2630 !
2640 SUB Store_csv
2650 COM /Io/@Scope,@Path,Interface
2660 COM /Converted_data/ REAL Time(4095),Volts(4095)
2670 COM /Variables/ REAL Xinc,Xorg,Yinc,Yorg
2680 COM /Variables/ INTEGER Record_length
2690 !Create a file to store pairs in
2700 ON ERROR GOTO Cont
2710 PURGE "Pairs.csv"
2720 Cont: OFF ERROR
2730 CREATE "Pairs.csv",Max_length
2740 ASSIGN @Path TO "Pairs.csv";FORMAT ON
2750
This routine converts the waveform data to time/
using the values Xinc, Xorg, Yinc, and Yorg used to describe
the raw waveform data.
This routine stores the time and voltage information
as time/voltage pairs in a comma-separated variable
!Output data to file
Sample Programs
init.bas Sample Program
6-43