ADCMT 7351A - Sample Programs (SCPI Command)

7351 Series Digital Multimeter Operation Manual
6.9 Sample Programs (SCPI command)
6-53
6.9 Sample Programs (SCPI command)
This section describes examples of a program in which a computer controls this instrument through GPIB.
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
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 address 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, ":SENSE:FUNCTION 'VOLTAGE:DC'" & Chr(10))
' Sets the measurement function to DCV.
Call ibwrt(dmm, ":SENSE:VOLTAGE:DC:RANGE 19" & Chr(10))
' Sets the measurement range to 20 V.
Call ibwrt(dmm, ":SENSE:VOLTAGE:DC:SRATE SSLOW" & Chr(10))
' Sets the sampling rate to SLOW2.
Call ibwrt(dmm, ":READ?" & Chr(10))
' Requests the measurement value data.
Call ibrd(dmm, dt) ' Substitutes the measurement value for a variable.
Cells(1, 1) = "'" & Left(dt, 12)
' Substitutes the measurement value for a cell.
Call ibonl(dmm, 0) ' Terminates.