Agilent Technologies InfiniiVision 5000 Series Programmer's Manual page 298

5
Commands by Subsystem
Example program from the start:
page 744
298
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"
Agilent InfiniiVision 5000 Series Oscilloscopes Programmer's Guide
' 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.
"VISA COM Example in Visual Basic" on