Programming Examples 36
Keysight InfiniiVision DSOX1204A/G Oscilloscopes Programmer's Guide 905
fStream = File.Open(strPath, FileMode.Create)
fStream.Write(ResultsArray, 0, nLength)
fStream.Close()
Console.WriteLine("Screen image ({0} bytes) written to {1}", _
nLength, strPath)
' Download waveform data.
' -----------------------------------------------------------
' Set the waveform points mode.
myScope.WriteLine(":WAVeform:POINts:MODE RAW")
myScope.WriteLine(":WAVeform:POINts:MODE?")
strResults = myScope.ReadLine()
Console.WriteLine("Waveform points mode: {0}", strResults)
' Get the number of waveform points available.
myScope.WriteLine(":WAVeform:POINts?")
strResults = myScope.ReadLine()
Console.WriteLine("Waveform points available: {0}", strResults)
' Set the waveform source.
myScope.WriteLine(":WAVeform:SOURce CHANnel1")
myScope.WriteLine(":WAVeform:SOURce?")
strResults = myScope.ReadLine()
Console.WriteLine("Waveform source: {0}", strResults)
' Choose the format of the data returned (WORD, BYTE, ASCII):
myScope.WriteLine(":WAVeform:FORMat BYTE")
myScope.WriteLine(":WAVeform:FORMat?")
strResults = myScope.ReadLine()
Console.WriteLine("Waveform format: {0}", strResults)
' Display the waveform settings:
Dim fResultsArray As Double()
myScope.WriteLine(":WAVeform:PREamble?")
fResultsArray = myScope.ReadLineListOfDouble()
Dim fFormat As Double = fResultsArray(0)
If fFormat = 0.0 Then
Console.WriteLine("Waveform format: BYTE")
ElseIf fFormat = 1.0 Then
Console.WriteLine("Waveform format: WORD")
ElseIf fFormat = 2.0 Then
Console.WriteLine("Waveform format: ASCii")
End If
Dim fType As Double = fResultsArray(1)
If fType = 0.0 Then
Console.WriteLine("Acquire type: NORMal")
ElseIf fType = 1.0 Then
Console.WriteLine("Acquire type: PEAK")
ElseIf fType = 2.0 Then
Console.WriteLine("Acquire type: AVERage")
ElseIf fType = 3.0 Then
Console.WriteLine("Acquire type: HRESolution")
End If