To Next Page

To Previous Page

7352 Series Digital Multimeter Operation Manual

6.7 Sample Programs

6-52

6.7 Sample Programs

6.7.1 Sample Programs (GPIB commands used in ADC CORPORATION)

This section describes example programs in which a computer controls this instrument through a GPIB

interface.

[Operation check environment]

Computer: DELL OPTIPLEX GX170L(Pentium4 CPU 2.80GHz)

GPIB hardware: GPIB-USB-HS manufactured by NATIONAL INSTRUMENTS

Module: Niglobal.bas,Vbib-32.bas (Included software in PCI-GPIB)

Language: Microsoft Excel Visual Basic for Application

NOTE: The GPIB address of the 7352A is set to 1.

Example 1 Sets the DCV-Ach 2 V range for the left side display and the ACV-Ach 2 V range for the right

side display, and then performs the measurement in the free run state. Detects the measure-

ment end by polling the status byte, reads the measured data from the 7352A, and then dis-

plays the data in cells.

Dim DMM_ADR As Integer 'Declares the GPIB address variable of the 7352A.

Dim dmm As Integer 'Declares the variable of the device descriptor.

Dim dt As String * 100 'Declares the variable of the buffer used for receiving the GPIB data.

DMM_ADR = 1 'GPIB address of the 7352A

Call ibdev(0, DMM_ADR, 0, T10s, 1, 0, dmm)

'Initializes the GPIB I/F.

Call ibconfig(dmm, IbcUnAddr, 1) 'Sets the transmitting and receiving addresses individually.

Call ibwrt(dmm, "*RST" & vbLf) 'Initializes the 7352A.

Call ibwrt(dmm, "H1" & vbLf) 'Sets the header of the output data to ON.

Call ibwrt(dmm, "DSP1,F1" & vbLf) 'Sets the measurement function for the left side display to DCV.

Call ibwrt(dmm, "DSP1,R4" & vbLf) 'Sets the measurement range for the left side display to 2 V.

Call ibwrt(dmm, "DSP2,F2" & vbLf) 'Sets the measurement function for the right side display to ACV.

Call ibwrt(dmm, "DSP2,R4" & vbLf) 'Sets the measurement range for the right side display to 2 V.

Call ibwrt(dmm, "PR2" & vbLf) 'Sets the sampling rate to MED.

Call ibwrt(dmm, "*CLS" & vbLf) 'Clears the status byte.

Do 'Reads the status byte of the measurement end.

Call ibwrt(dmm, "*STB?" & vbLf) 'Requests the content of the status byte.

Call ibrd(dmm, dt) 'Writes the content of the status byte into the variable dt.

dt = dt And 16 'Performs the AND operation in bit4 (MAV).

Loop While (dt <> 16)

Call ibwrt(dmm, "SD1" & vbLf) 'Sets the output data to the left side display.

Call ibrd(dmm, dt) 'Reads the measured data on the left side display.

Cells(1, 1) = "'" & Left(dt, 18) 'Substitutes the measured value on the left side display for a cell.

ADCMT 7352A User Manual

Questions and Answers: