Agilent Technologies 5000 Series manual Programming Examples

Programming Examples 9

'it back to the oscilloscope. Dim varSetupString As Variant strPath = "c:\scope\config\setup.dat"

Open strPath	For Binary Access Read As #1 ' Open file for input.
Get #1, , varSetupString		' Read data.
Close #1 '	Close file.

'Write setup string back to oscilloscope using ":SYSTEM:SETUP"

'command:

myScope.WriteIEEEBlock ":SYSTEM:SETUP ", varSetupString CheckForInstrumentErrors

'MEASURE - The commands in the MEASURE subsystem are used to make

'measurements on displayed waveforms.

'Source to measure.

myScope.WriteString ":MEASURE:SOURCE CHANNEL1"

'Query for frequency. myScope.WriteString ":MEASURE:FREQUENCY?"

varQueryResult = myScope.ReadNumber	'	Read	frequency.
MsgBox "Frequency:" + vbCrLf + _
FormatNumber(varQueryResult / 1000,		4) +	" kHz"

'Query for duty cycle. myScope.WriteString ":MEASURE:DUTYCYCLE?"

varQueryResult = myScope.ReadNumber	' Read duty cycle.
MsgBox "Duty cycle:" + vbCrLf + _
FormatNumber(varQueryResult, 3)	+ "%"

'Query for risetime. myScope.WriteString ":MEASURE:RISETIME?"

varQueryResult = myScope.ReadNumber		' Read risetime.
MsgBox "Risetime:" + vbCrLf + _
FormatNumber(varQueryResult	* 1000000, 4) + " us"

'Query for Peak to Peak voltage.

myScope.WriteString ":MEASURE:VPP?"

varQueryResult = myScope.ReadNumber		'	Read VPP.
MsgBox "Peak to peak voltage:" +	vbCrLf		+ _
FormatNumber(varQueryResult,	4)	+ "	V"

'Query for Vmax. myScope.WriteString ":MEASURE:VMAX?"

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

'WAVEFORM_DATA - To obtain waveform data, you must specify the

'WAVEFORM parameters for the waveform data prior to sending the

'":WAVEFORM:DATA?" query. Once these parameters have been sent,

'the waveform data and the preamble can be read.

'

'WAVE_SOURCE - Selects the channel to be used as the source for

'the waveform commands.

myScope.WriteString ":WAVEFORM:SOURCE CHAN1"

' WAVE_POINTS - Specifies the number of points to be transferred

Agilent InfiniiVision 5000 Series Oscilloscopes Programmer's Reference 583