Agilent Technologies InfiniiVision 4000 X-Series Programmer's Manual page 459

•
Example Code
See complete example programs at:
starting on page 1217
Agilent InfiniiVision 4000 X-Series Oscilloscopes Programmer's Guide
":MEASure:PHASe" on page 448
' MEASURE - The commands in the MEASURE subsystem are used to make
' measurements on displayed waveforms.
myScope.WriteString ":MEASURE:SOURCE CHANNEL1"
myScope.WriteString ":MEASURE:FREQUENCY?"
varQueryResult = myScope.ReadNumber
MsgBox "Frequency:" + vbCrLf _
+ FormatNumber(varQueryResult / 1000, 4) + " kHz"
myScope.WriteString ":MEASURE:DUTYCYCLE?"
varQueryResult = myScope.ReadNumber
MsgBox "Duty cycle:" + vbCrLf _
+ FormatNumber(varQueryResult, 3) + "%"
myScope.WriteString ":MEASURE:RISETIME?"
varQueryResult = myScope.ReadNumber
MsgBox "Risetime:" + vbCrLf _
+ FormatNumber(varQueryResult * 1000000, 4) + " us"
myScope.WriteString ":MEASURE:VPP?"
varQueryResult = myScope.ReadNumber
MsgBox "Peak to peak voltage:" + vbCrLf _
+ FormatNumber(varQueryResult, 4) + " V"
myScope.WriteString ":MEASURE:VMAX?"
varQueryResult = myScope.ReadNumber
MsgBox "Maximum voltage:" + vbCrLf _
+ FormatNumber(varQueryResult, 4) + " V"
:MEASure Commands
' Source to measure.
' Query for frequency.
' Read frequency.
' Query for duty cycle.
' Read duty cycle.
' Query for risetime.
' Read risetime.
' Query for Pk to Pk voltage.
' Read VPP.
' Query for Vmax.
' Read Vmax.
Chapter 41, "Programming Examples,"
21
459