National Instruments GPIB-PC User Manual

Contents

National Instruments GPIB-PC User Manual Manual pdf 183 page image

BASICA/QuickBASIC GPIB-PC Function Calls Section Four AGPIB-PC User Manual 4A-108 ©National Instruments Corp.QuickBASIC Example Program - DeviceQuickBASIC - Using device function calls.COMMON SHARED IBSTA%, IBERR%, IBCNT%REM Assign a unique identifier to deviceREM and store in variable DVM%.REMBDNAME$ = "DVM"CALL IBFIND (BDNAME$,DVM%)REMREM Check for error on IBFIND call.REMIF DVM% < 0 THEN GOSUB FIND-ERROR:REMREM Clear the device.REMCALL IBCLR (DVM%)REMREM Check for an error on each GPIB callREM to be safe.REMIF IBSTA% < 0 THEN GOSUB GPIB-ERROR:REMREM Write the function, range, and triggerREM source instructions to the DVM.REMWRT$ = "F3R7T3" : CALL IBWRT (DVM%,WRT$)IF IBSTA% < 0 THEN GOSUB GPIB-ERROR:REMREM Trigger the device.REMCALL IBTRG (DVM%)IF IBSTA% < 0 THEN GOSUB GPIB-ERROR:REMREM Wait for the DVM to set RQS or for aREM timeout; if the current time limitREM is too short, use IBTMO to change it.REMMASK% = &H4800 : CALL IBWAIT (DVM%,MASK%)IF (IBSTA% AND &HC000) <> 0 THEN GOSUB GPIB-ERROR:REMREM Since neither a timeout nor an errorREM occurred, IBWAIT must have returnedREM on RQS. Next, serial poll the device.REM