Keysight Technologies InfiniiVision 4000 X Series

1438 Keysight InfiniiVision 4000 X-Series Oscilloscopes Programmer's Guide
37 :WGEN<w> Commands
DefaultArbitraryWaveform
' Download comma-separated floating-point values.
myScope.WriteString ":WGEN1:ARBitrary:DATA 0.0, 0.5, 1.0, 0.5, 0.0, -0
.5, -1.0, -0.5"
Debug.Print "WaveGen1 CSV floating-point values downloaded."
Sleep 5000
DefaultArbitraryWaveform
' Download comma-separated 16-bit integer (DAC) values.
myScope.WriteString ":WGEN1:ARBitrary:DATA:DAC 0, 255, 511, 255, 0, -2
56, -512, -256"
Debug.Print "WaveGen1 CSV 16-bit integer (DAC) values downloaded."
Sleep 5000
' Set the byte order for binary data.
myScope.WriteString ":WGEN1:ARBitrary:BYTeorder LSBFirst"
myScope.WriteString ":WGEN1:ARBitrary:BYTeorder?"
strQueryResult = myScope.ReadString
Debug.Print "WaveGen1 byte order for binary data: " + strQueryResult
DefaultArbitraryWaveform
' Download binary floating-point values.
Dim mySingleArray(8) As Single
mySingleArray(0) = 0!
mySingleArray(1) = 0.5!
mySingleArray(2) = 1!
mySingleArray(3) = 0.5!
mySingleArray(4) = 0!
mySingleArray(5) = -0.5!
mySingleArray(6) = -1!
mySingleArray(7) = -0.5!
Dim myByteArray(32) As Byte
CopyMemory myByteArray(0), mySingleArray(0), 32 * LenB(myByteArray(0))
myScope.WriteIEEEBlock ":WGEN1:ARBitrary:DATA", myByteArray, True
Debug.Print "WaveGen1 binary floating-point values downloaded."
Sleep 5000
DefaultArbitraryWaveform
' Download binary 16-bit integer (DAC) values.
Dim myIntegerArray(8) As Integer
myIntegerArray(0) = 0
myIntegerArray(1) = 255
myIntegerArray(2) = 511
myIntegerArray(3) = 255
myIntegerArray(4) = 0
myIntegerArray(5) = -256
myIntegerArray(6) = -512
myIntegerArray(7) = -256
Dim myByteArray2(16) As Byte