9Programming Examples

FormatNumber(dblQueryResult / 1000, 4) + " kHz"

' Query for duty cycle.

err = viVPrintf(vi, ":MEASURE:DUTYCYCLE?" + vbLf, 0) ' Read duty cycle.

err = viVScanf(vi, "%lf" + vbLf, VarPtr(dblQueryResult))

MsgBox "Duty cycle:" + vbCrLf + FormatNumber(dblQueryResult, 3) + "%"

' Query for risetime.

err = viVPrintf(vi, ":MEASURE:RISETIME?" + vbLf, 0) ' Read risetime.

err = viVScanf(vi, "%lf" + vbLf, VarPtr(dblQueryResult)) MsgBox "Risetime:" + vbCrLf + _

FormatNumber(dblQueryResult * 1000000, 4) + " us"

' Query for Peak to Peak voltage.

err = viVPrintf(vi, ":MEASURE:VPP?" + vbLf, 0) ' Read VPP.

err = viVScanf(vi, "%lf" + vbLf, VarPtr(dblQueryResult)) MsgBox "Peak to peak voltage:" + vbCrLf + _

FormatNumber(dblQueryResult, 4) + " V"

' Query for Vmax.

err = viVPrintf(vi, ":MEASURE:VMAX?" + vbLf, 0) ' Read Vmax.

err = viVScanf(vi, "%lf" + vbLf, VarPtr(dblQueryResult)) MsgBox "Maximum voltage:" + vbCrLf + _

FormatNumber(dblQueryResult, 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.

err = viVPrintf(vi, ":WAVEFORM:SOURCE CHAN1" + vbLf, 0)

'WAVE_POINTS - Specifies the number of points to be transferred

'using the ":WAVEFORM:DATA?" query.

err = viVPrintf(vi, ":WAVEFORM:POINTS 1000" + vbLf, 0)

'WAVE_FORMAT - Sets the data transmission mode for the waveform

'data output. This command controls whether data is formatted in

'a word or byte format when sent from the oscilloscope.

Dim lngVSteps As Long

Dim intBytesPerData As Integer

' Data in range 0 to 65535.

err = viVPrintf(vi, ":WAVEFORM:FORMAT WORD" + vbLf, 0) lngVSteps = 65536

intBytesPerData = 2

' Data in range 0 to 255.

'err = viVPrintf(vi, ":WAVEFORM:FORMAT BYTE" + vbLf, 0) 'lngVSteps = 256

'intBytesPerData = 1

574

Agilent InfiniiVision 5000 Series Oscilloscopes Programmer's Reference

Page 574
Image 574
Agilent Technologies 5000 Series manual 574