ADCMT 7352A User Manual

7352 Series Digital Multimeter Operation Manual
6.7.1 Sample Programs (GPIB commands used in ADC CORPORATION)
6-54
Example 2 Sets the DCV-Ach 2 V range for the left side display and the ACV-Ach 2 V range for the right
side display, specifies BUS as the trigger source, sets the sample count to 10, sets the mea-
surement data memory to ON, and then triggers to start the measurement. Detects the mea-
surement end by the SRQ interruption, reads the measurement memory data from the 7352A,
and displays 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 * 200 'Declares the variable of the buffer used for receiving the GPIB data.
Dim s As Integer 'The variable in which the serial polling result is stored
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 ibconfig(0, IbcAUTOPOLL, 0) 'Disables the automatic serial polling.
Call ibwrt(dmm, "*RST" & vbLf) 'Initializes the 7352A.
Call ibwrt(dmm, "S0" & vbLf) 'Permits SRQ transmitting.
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, "SPN10" & vbLf) 'Sets the sampling count to 10.
Call ibwrt(dmm, "TRS3" & vbLf) 'Specifies "BUS" as the trigger source.
Call ibwrt(dmm, "ST1" & vbLf) 'Sets the measurement data memory to ON.
Call ibwrt(dmm, "ICL" & vbLf) 'Measurement data memory initialization
Call ibwrt(dmm, "*CLS" & vbLf) 'Clears the status byte.
Call ibwrt(dmm, "DSP2,MSE256" & vbLf)
'Sets the measurement end flag of MSR for the right side display.
Call ibwrt(dmm, "*SRE1" & vbLf) 'Sets the measurement end flag of SRE.
Call ibwrt(dmm, "*TRG" & vbLf) 'Triggers.
Call ibwait(dmm, RQS Or TIMO) 'Waits for the SRQ transmission.
If (ibsta And TIMO) Then 'Judges whether a time-out occurs.
Call MsgBox("SRQ Time Out", vbOKOnly, "Error")
'Sends a message if a time-out occurs.
Call ibwrt(dmm, "DS1" & vbLf) 'Sets the display to ON.
Call ibonl(dmm, 0) 'Terminates.
Exit Sub
Else
Call ibrsp(dmm, s) 'Reads the status.
End If
Call ibwrt(dmm, "IRD0,9" & vbLf) 'Sets the data reading range for the left side display.
Call ibwrt(dmm, "IRO?" & vbLf) 'Data reading for the left side display
Call ibrd(dmm, dt) 'Reads the measured data on the left side display.
Cells(1, 1) = "'" & dt 'Substitutes the measured value on the left side display for a cell.
Call ibwrt(dmm, "DSP2,IRD0,9" & vbLf)
'Sets the data reading range for the right side display.

ADCMT 7352A Specifications

General

Brand	ADCMT
Model	7352A
Category	Multimeter
Language	English