YOKOGAWA WT200 User Manual page 153

13.2 Sample Program
Sample Program
13-14
'******************************************************************************
'*
'* WT200 DIGITAL POWER METER
'*
'* Used to set measurement condition/ranges for normal mesurement mode,
'* and read and display the following data each time measured/computed data
'* is updated.
'*
'******************************************************************************
REM $INCLUDE: 'qbdecl.bas'
DECLARE SUB gpiberr (msg$)
PRINT ""
CALL IBDEV(0, 1, 0, T10s, 1, 0, DEV%)
IF (DEV% <= 0) THEN CALL gpiberr("Ibdev error")
' interface clear
CALL IBCLR(DEV%)
IF (ibsta% AND EERR) THEN CALL gpiberr("Ibclr error")
' set measurement condition
' hold off , filter off , scaling off , averaging off
WRT$ = "HD0;FL0;SC0;AG0"
CALL IBWRT(DEV%, WRT$)
IF (ibsta% AND EERR) THEN CALL gpiberr("Ibwrt error")
' set displaying data
WRT$ = "DA1;DB2;DC3"
CALL IBWRT(DEV%, WRT$)
IF (ibsta% AND EERR) THEN CALL gpiberr("Ibwrt error")
' set voltage range
WRT$ = "RV7"
CALL IBWRT(DEV%, WRT$)
IF (ibsta% AND EERR) THEN CALL gpiberr("Ibwrt error")
' set current range
WRT$ = "RA7"
CALL IBWRT(DEV%, WRT$)
IF (ibsta% AND EERR) THEN CALL gpiberr("Ibwrt error")
' set measurement mode
WRT$ = "MN0"
CALL IBWRT(DEV%, WRT$)
IF (ibsta% AND EERR) THEN CALL gpiberr("Ibwrt error")
' set the communication output function (normal),
' and output delimitter (CR+LF+EOI)
WRT$ = "OFD0;DL0"
CALL IBWRT(DEV%, WRT$)
IF (ibsta% AND EERR) THEN CALL gpiberr("Ibwrt error")
' read measurement data
FOR I = 1 TO 5
MASK% = &H4800
CALL IBWAIT(DEV%, MASK%)
IF (ibsta% AND (EERR OR TIMO)) THEN CALL gpiberr("Ibwait error")
WRT$ = "OD"
CALL IBWRT(DEV%, WRT$)
IF (ibsta% AND EERR) THEN CALL gpiberr("Ibwrt error")
RDDAT:
RD$ = SPACE$(255)
CALL IBRD(DEV%, RD$)
*
*
*
*
*
*
*
IM 253421-01E