Agilent Technologies 5000 Series manual Programming Examples

Programming Examples 9

'Output setup string to a file: Dim strPath As String

Dim lngI As Long

strPath = "c:\scope\config\setup.dat" Close #1 ' If #1 is open, close it.

'Open file for output.

Open strPath			For Binary Access Write	Lock Write As #1
For lngI		= 0	To lngSetupStringSize -	1
Put	#1, , byteArray(lngI) ' Write data.
Next lngI
Close	#1	'	Close file.

'IMAGE_TRANSFER - In this example, we will query for the image data

'with ":DISPLAY:DATA?", read the data, and then save it to a file. err = viVPrintf(vi, ":DISPLAY:DATA? BMP, SCREEN, COLOR" + vbLf, 0) retCount = ByteArraySize

'Unsigned integer bytes.

err = viVScanf(vi, "%#b\n" + vbLf, paramsArray(0))

'Output display data to a file: strPath = "c:\scope\data\screen.bmp"

'Remove file if it exists.

If Len(Dir(strPath)) Then

Kill strPath

End If
Close	#1	'	If	#1 is open, close it.
' Open file for				output.
Open strPath			For Binary Access Write Lock Write As #1
For lngI = 0			To	retCount - 1
Put	#1, , byteArray(lngI) ' Write data.
Next lngI
Close	#1	'	Close file.

'RESTORE_SYSTEM_SETUP - Read the setup string from a file and write

'it back to the oscilloscope.

strPath	= "c:\scope\config\setup.dat"
Open strPath		For Binary		Access Read As #1 ' Open file for input.
Get #1,	, byteArray		'	Read data.
Close #1	'	Close file.

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

'command:

retCount = lngSetupStringSize

err = viVPrintf(vi, ":SYSTEM:SETUP %#b" + vbLf, paramsArray(0))

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

'measurements on displayed waveforms.

'Source to measure

err = viVPrintf(vi, ":MEASURE:SOURCE CHANNEL1" + vbLf, 0)

' Query for frequency.

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

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

Agilent InfiniiVision 5000 Series Oscilloscopes Programmer's Reference 573