
5-2
IM 704310-12E
5.3
Example of Statistical Data Output
'*********************************************************************
'* *
'* TA520 Sample Program2 for GP-IB interface *
'* Microsoft QuickBASIC 4.0/4.5 Version *
'* *
'*********************************************************************
'* *
'* Set the instrument to hardware histogram and multi-window modes. *
'* Measure and output the statistics for each window. *
'* *
'*********************************************************************
'
REM $INCLUDE: 'qbdecl4.bas'
'
DEVICE$ = "DEV1": CALL IBFIND(DEVICE$, TA%)
CALL IBSIC(TA%)
BORD$ = "GPIB0": CALL IBFIND(BORD$, BD%)
CALL IBSIC(BD%)
V% = 1: CALL IBSRE(BD%, V%)
CALL IBCLR(TA%)
'
CMD$ = "MEASURE:MODE HHISTOGRAM"
'Hardware histogram mode
CALL IBWRT(TA%, CMD$)
CMD$ = "MEASURE:FUNCTION PWIDTH,A"
'Pulse width measurement
CALL IBWRT(TA%, CMD$)
CMD$ = "MEASURE:POLARITY POSITIVE"
'Positive polarity
CALL IBWRT(TA%, CMD$)
CMD$ = "SAMPLE:GATE:MODE EVENT"
'Event gate
CALL IBWRT(TA%, CMD$)
CMD$ = "SAMPLE:GATE:EVENTSIZE 1000000"
'Sampling size to 1000 points
CALL IBWRT(TA%, CMD$)
'
CMD$ = "HHISTOGRAM:MODE MULTI"
'Multi-window
CALL IBWRT(TA%, CMD$)
CMD$ = "HHISTOGRAM:MULTI:SIZE 10"
'Number of windows to 10
CALL IBWRT(TA%, CMD$)
CMD$ = "HHISTOGRAM:MULTI:TVALUE 37ns"
'Constant T to 37 ns
CALL IBWRT(TA%, CMD$)
CMD$ = "HHISTOGRAM:MULTI:WINDOW1:LABEL 3"
'Set label
CALL IBWRT(TA%, CMD$)
CMD$ = "HHISTOGRAM:MULTI:WINDOW2:LABEL 4"
CALL IBWRT(TA%, CMD$)
CMD$ = "HHISTOGRAM:MULTI:WINDOW3:LABEL 5"
CALL IBWRT(TA%, CMD$)
CMD$ = "HHISTOGRAM:MULTI:WINDOW4:LABEL 6"
CALL IBWRT(TA%, CMD$)
CMD$ = "HHISTOGRAM:MULTI:WINDOW5:LABEL 7"
CALL IBWRT(TA%, CMD$)
CMD$ = "HHISTOGRAM:MULTI:WINDOW6:LABEL 8"
CALL IBWRT(TA%, CMD$)
CMD$ = "HHISTOGRAM:MULTI:WINDOW7:LABEL 9"
CALL IBWRT(TA%, CMD$)
CMD$ = "HHISTOGRAM:MULTI:WINDOW8:LABEL 10"
CALL IBWRT(TA%, CMD$)
CMD$ = "HHISTOGRAM:MULTI:WINDOW9:LABEL 11"
CALL IBWRT(TA%, CMD$)
CMD$ = "HHISTOGRAM:MULTI:WINDOW10:LABEL 14"
CALL IBWRT(TA%, CMD$)
CMD$ = "HHISTOGRAM:MULTI:UPDATE"
'Update scale of each window
CALL IBWRT(TA%, CMD$)
'
CMD$ = "CALCULATION:PARAMETER:AVERAGE ON;SDEVIATION ON"
'Turn ON statistical
calculation
CALL IBWRT(TA%, CMD$)
'
CMD$ = "STATUS:FILTER1 RISE"
'Set transition filter
CALL IBWRT(TA%, CMD$)
CMD$ = "STATUS:EESR?"
'Clear extended event register
CALL IBWRT(TA%, CMD$)
RES$ = SPACE$(100)
CALL IBRD(TA%, RES$)
'
5.3 Example of Statistical Data Output