7451A/7461A/7461P Digital Multimeter Operation Manual
6.9 Sample Programs (SCPI command)
6-59
6.9 Sample Programs (SCPI command)
This section describes examples of a program in which a computer controls this instrument through GPIB.
Computer: FMV-5350ML3 (OS:Windows98) made by Fujitsu Limited
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 7461A is used. If the 7451A is used, change the settings
such as a range configuration which depends on the multimeter.
Example 1 Measures the D.U.T in the DCV 10 V range and reads the measurement data from the 7461A.
The GPIB address of the 7461A is set to 1.
Dim DMM_ADR As Integer ' Declares the variable of the 7461A
' 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 7461A
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 7461A.
Call ibwrt(dmm, ":SENSE:FUNCTION 'VOLTAGE:DC'" & Chr(10))
' Sets the measurement function to DCV.
Call ibwrt(dmm, ":SENSE:VOLTAGE:DC:RANGE 10" & Chr(10))
' Sets the measurement range to 10 V.
Call ibwrt(dmm, ":SENSE:VOLTAGE:DC:SRATE SSLOW" & Chr(10))
' Sets the sampling rate to SLOW2.
Call ibwrt(dmm, ":FETCH?" & Chr(10))
' Requests the measurement value data.
' (Software revision A01 and earlier) *1
Call ibwrt(dmm, ":READ?" & Chr(10))
' Requests the measurement value data.
' (Software revision B00 and later) *1
Call ibrd(dmm, dt) ' Substitutes the measurement value for a variable.
Cells(1, 1) = "'" & Left(dt, 13)
' Substitutes the measurement value for a cell.
Call ibonl(dmm, 0) ' Terminates.
NOTE:
*1: Select either one according to the software revision.
To Next Page
Loading...
Need help?
General
