7351 Series Digital Multimeter Operation Manual
6.8 Sample Programs (Command used in ADC CORPORATION)
6-51
6.8
Sample Programs (Command used in ADC CORPORATION)
This section describes examples of a program in which a computer controls this instrument through GPIB.
The USB driver includes examples of a program in which this instrument is controlled through USB.
For more information on the USB driver, refer to 3.3.2, “Caution when Connecting Peripherals”.
Computer:
OptiPlex GX270 (OS:WindowsXP) made by Dell Computer Corp.
GPIB hardware:
PCI-GPIB made by NATIONAL INSTRUMENTS
Module:
Niglobal.bas, Vbib-32.bas (Included software in PCI-GPIB)
Compatible language: Microsoft Excel Visual Basic for Application
NOTE:
These samples are programmed assuming that the 7351A is used.
Example 1 Measures a voltage in the DCV 20 V range and reads the measurement data from the 7351A.
The GPIB address of the 7351A is set to 1 and the header is set to OFF.
Dim DMM_ADR As Integer
' Declares the variable of the 7351A GPIB address.
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
' The GPIB number of the 7351A
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" & Chr(10))
' Initializes the 7351A.
Call ibwrt(dmm, "F1" & Chr(10))
' Sets the measurement function to DCV.
Call ibwrt(dmm, "R5" & Chr(10))
' Sets the measurement range to 20 V.
Call ibwrt(dmm, "PR4" & Chr(10))
' Sets the sampling rate to SLOW2.
Call ibrd(dmm, dt)
' Reads the measurement value data.
Cells(1, 1) = "'" & Left(dt, 12)
' Substitutes the measurement value for a cell.
Call ibonl(dmm, 0)
' Terminates.
