:WGEN<w> Commands 37
Keysight InfiniiVision 4000 X-Series Oscilloscopes Programmer's Guide 1439
CopyMemory myByteArray2(0), myIntegerArray(0), 16 * LenB(myByteArray2(
0))
myScope.WriteIEEEBlock ":WGEN1:ARBitrary:DATA:DAC", myByteArray2, True
Debug.Print "WaveGen1 binary 16-bit integer (DAC) values downloaded."
Sleep 5000
Exit Sub
VisaComError:
MsgBox "VISA COM Error:" + vbCrLf + Err.Description
End Sub
'
' Initialize WaveGen1 to a known state.
' -------------------------------------------------------------------
Private Sub DefaultArbitraryWaveform()
On Error GoTo VisaComError
' Load default arbitrary waveform.
myScope.WriteString ":WGEN1:ARBitrary:DATA:CLEar"
Debug.Print "WaveGen1 default arbitrary waveform loaded."
Sleep 5000
Exit Sub
VisaComError:
MsgBox "VISA COM Error:" + vbCrLf + Err.Description
End
End Sub