5492GPIB B&K Precision, 5492GPIB Datasheet - Page 88

• Manufacturer Part Number: 5492GPIB
• Description: DMM BENCH 5 1/2DGT WITH GPIB CRD
• Manufacturer: B&K Precision
• Type: Digital (DMM)r

Specifications of 5492GPIB

• Includes: Test Leads
• Style: Bench
• Display Digits: 5.5
• Display Type: VFD, Dual
• Display Count: 120000
• Function: Voltage, Current, Resistance, Frequency
• Functions, Extra: Continuity, dB, Diode Test
• Features: Hold, Min/Max, RS-232 Port
• Ranging: Auto/Manual
• Response: True RMS
• Accuracy: +/- 0.012 %
• Lead Free Status / Rohs Status: Lead free / RoHS Compliant

' Reset the meter by issuing the reset (*RST) command. Instruct the
' meter to measure the volts alternating current (VAC) using auto-ranging (AUTO).
' If the error bit EERR is set in IBSTA%, call GPIBERR with an error message.
' Initialize the accumulator of the 10 measurements to zero.
' Establish FOR loop to read the 10 measurements. The variable i% will
' serve as a counter for the FOR loop.
' Print the average of the 10 readings.
' Call the IBONL function to disable the hardware and software.
CALL ibclr(dvm%)
IF (ibsta% AND EERR) THEN CALL gpiberr("Ibclr Error")
wrt$ = "*RST"
CALL ibwrt(dvm%, wrt$)
IF (ibsta% AND EERR) THEN CALL gpiberr("Ibwrt Error")
wrt$ = "CONF:VOLT:AC"
CALL ibwrt(dvm%, wrt$)
IF (ibsta% AND EERR) THEN CALL gpiberr("Ibwrt Error")
sum = 0!
FOR i% = 1 TO 10
NEXT i%
PRINT "The average of the 10 readings is: ", sum / 10
wrt$ = "READ?"
CALL ibwrt(dvm%, wrt$)
IF (ibsta% AND EERR) THEN CALL gpiberr("Ibwrt Error")
rd$ = SPACE$(11)
CALL ibrd(dvm%, rd$)
IF (ibsta% AND EERR) THEN CALL gpiberr("Ibrd Error")
reading$ = LEFT$(rd$, ibcnt%)
PRINT "reading: "; reading$
sum = sum + VAL(reading$)
' Request the measurement by sending the instruction
' "READ?". If the error bit EERR is set in IBSTA%, call GPIBERR
' with an error message.
' Read the meter measurement. If the error bit EERR is set in
' IBSTA%, call GPIBERR with an error message.
' Remove blank spaces in RD$ and assign resulting buffer to READING$.
' Print measurement returned by the meter.
' Convert READING$ to its numeric value and add to the accumulator.
' Continue FOR loop until 10 measurements are read.
88