YOKOGAWA WT200 User Manual page 209

IM 253421-01E
' read/display measured data
PRINT ""
FOR I = 1 TO 10
'clear extended event register
WRT$ = "STATUS:EESR?"
CALL IBWRT(DEV%, WRT$)
IF (ibsta% AND EERR) THEN CALL gpiberr("Ibwrt error")
RD$ = SPACE$(512)
CALL IBRD(DEV%, RD$)
IF (ibsta% AND EERR) THEN CALL gpiberr("Ibrd error")
'wait for completion of refreshing data
WRT$ = "COMMUNICATE:WAIT 1"
CALL IBWRT(DEV%, WRT$)
IF (ibsta% AND EERR) THEN CALL gpiberr("Ibwrt error")
'request output of measured data
WRT$ = "MEASURE:VALUE?"
CALL IBWRT(DEV%, WRT$)
IF (ibsta% AND EERR) THEN CALL gpiberr("Ibwrt error")
'read measured data
RD$ = SPACE$(128)
CALL IBRD(DEV%, RD$)
IF (ibsta% AND EERR) THEN CALL gpiberr("Ibrd error")
C$ = RD$
FOR J = 0 TO 3
L = INSTR(C$, " ")
B = INSTR(C$, ",")
IF B = 0 THEN B = INSTR(C$, CHR$(10))
D$(J) = LEFT$(C$, (B - 1))
C$ = MID$(C$, (B + 1), L)
NEXT J
'display measured data
PRINT "V", D$(0)
PRINT "A", D$(1)
PRINT "W", D$(2)
PRINT "VHZ", D$(3)
NEXT I
' Call the IBONL function to disable the hardware and software.
CALL IBONL(DEV%, 0)
END
14.5 Sample Program
'LF
14-47
14