EasyManuals Logo

ADCMT 7451A User Manual

ADCMT 7451A
212 pages
To Next Page IconTo Next Page
To Next Page IconTo Next Page
To Previous Page IconTo Previous Page
To Previous Page IconTo Previous Page
Page #157 background imageLoading...
Page #157 background image
7451A/7461A/7461P Digital Multimeter Operation Manual
6.8 Sample Programs (Command used in ADC CORPORATION)
6-57
Call ibconfig(0, IbcAUTOPOLL, 0)
' Disables the automatic serial polling. (Note)
Call ibwrt(dmm, "*RST" & Chr(10))
' Initializes the 7461A.
Call ibwrt(dmm, "H0" & Chr(10))
' Sets the header of the output data to OFF.
Call ibwrt(dmm, "S0" & Chr(10))
' Permits the SRQ transmitting.
Call ibwrt(dmm, "F1" & Chr(10))
' Sets the measurement function to DCV.
Call ibwrt(dmm, "R5" & Chr(10))
' Sets the measurement range to 10 V.
Call ibwrt(dmm, "TRS3" & Chr(10))
' Specifies "BUS" as the trigger.
Call ibwrt(dmm, "AZ0" & Chr(10))
' Disables the auto-zero.
Call ibwrt(dmm, "ITS0.0001" & Chr(10))
' Sets integration time to 100 ms.
Call ibwrt(dmm, "TRT0.0005" & Chr(10))
' Sets the sampling interval to 500 s.
Call ibwrt(dmm, "DS0" & Chr(10))
' Sets the display to OFF.
Call ibwrt(dmm, "ST1" & Chr(10))
' Enables the measurement memory.
Call ibwrt(dmm, "ICL" & Chr(10))
' Clears the measurement memory.
Call ibwrt(dmm, "SPN1000" & Chr(10))
' Sets the sampling counts per one trigger. (1000 counts)
Call ibwrt(dmm, "IRD0,999" & Chr(10))
' Sets the range of the measurement memory recall. (0 to 999)
Call ibwrt(dmm, "*CLS" & Chr(10))
' Clears the status byte.
Call ibwrt(dmm, "MSE256" & Chr(10))
' Sets the measurement end flag of MSR.
Call ibwrt(dmm, "*SRE1" & Chr(10))
' Sets the measurement end flag of SRE.
Call ibwrt(dmm, "*TRG" & Chr(10))
' Triggers.
Call ibwait(dmm, RQS Or TIMO) ' Waits for the SRQ transmitting.
If (ibsta And TIMO) Then ' Judges whether a time-out occurs.
Call MsgBox("SRQ Time Out", vbOKOnly, "Error")
' Sends a message if the time-out occurs.
Call ibwrt(dmm, "DS1" & Chr(10))
' 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, "IRO?" & Chr(10))
' Requests the measurement value data.
Call ibrd(dmm, dt) ' Substitutes the measurement value for a variable.
Cells(1, 1) = "'" & dt ' Substitutes the measurement value for a cell.

Table of Contents

Questions and Answers:

Question and Answer IconNeed help?

Do you have a question about the ADCMT 7451A and is the answer not in the manual?

ADCMT 7451A Specifications

General IconGeneral
BrandADCMT
Model7451A
CategoryMultimeter
LanguageEnglish

Related product manuals