Agilent Technologies 5000 Series manual Commands by Subsystem

Commands by Subsystem 3

varQueryResult = myScope.ReadNumber	' Read duty cycle.
MsgBox "Duty cycle:" + vbCrLf _

+FormatNumber(varQueryResult, 3) + "%" myScope.WriteString ":MEASURE:RISETIME?" ' Query for risetime.

varQueryResult = myScope.ReadNumber	' Read risetime.
MsgBox "Risetime:" + vbCrLf _

+FormatNumber(varQueryResult * 1000000, 4) + " us" myScope.WriteString ":MEASURE:VPP?" ' Query for Pk to Pk voltage.

varQueryResult = myScope.ReadNumber	'	Read VPP.
MsgBox "Peak to peak voltage:" + vbCrLf		_

+FormatNumber(varQueryResult, 4) + " V" myScope.WriteString ":MEASURE:VMAX?" ' Query for Vmax.

varQueryResult = myScope.ReadNumber	'	Read Vmax.
MsgBox "Maximum voltage:" + vbCrLf _
+ FormatNumber(varQueryResult, 4)		+ " V"

Example program from the start: "VISA COM Example in Visual Basic" on page 578

Agilent InfiniiVision 5000 Series Oscilloscopes Programmer's Reference 241