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.