Agilent Technologies Infiniium 90000 Q-Series, Programmer'S Manual

Page: 1025 / 1186

Sample Programs
38
Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference 1025
Dim intFormat As Integer
Dim intType As Integer
Dim lngPoints As Long
Dim lngCount As Long
Dim dblXIncrement As Double
Dim dblXOrigin As Double
Dim lngXReference As Long
Dim sngYIncrement As Single
Dim sngYOrigin As Single
Dim lngYReference As Long
Dim intCoupling As Integer
Dim dblXDispRange As Double
Dim dblXDispOrigin As Double
Dim dblYDispRange As Double
Dim dblYDispOrigin As Double
Dim strDate As String
Dim strTime As String
Dim strFrameModel As String
Dim intAcqMode As Integer
Dim intCompletion As Integer
Dim intXUnits As Integer
Dim intYUnits As Integer
Dim dblMaxBwLimit As Double
Dim dblMinBwLimit As Double
Dim dctWavFormat As Scripting.Dictionary
Set dctWavFormat = New Scripting.Dictionary
dctWavFormat.Add 0, "ASCii"
dctWavFormat.Add 1, "BYTE"
dctWavFormat.Add 2, "WORD"
dctWavFormat.Add 3, "LONG"
dctWavFormat.Add 4, "LONGLONG"
Dim dctAcqType As Scripting.Dictionary
Set dctAcqType = New Scripting.Dictionary
dctAcqType.Add 1, "RAW"
dctAcqType.Add 2, "AVERage"
dctAcqType.Add 3, "VHIStogram"
dctAcqType.Add 4, "HHIStogram"
dctAcqType.Add 6, "INTerpolate"
dctAcqType.Add 10, "PDETect"
Dim dctAcqMode As Scripting.Dictionary
Set dctAcqMode = New Scripting.Dictionary
dctAcqMode.Add 0, "RTIMe"
dctAcqMode.Add 1, "ETIMe"
dctAcqMode.Add 3, "PDETect"
Dim dctCoupling As Scripting.Dictionary
Set dctCoupling = New Scripting.Dictionary
dctCoupling.Add 0, "AC"
dctCoupling.Add 1, "DC"
dctCoupling.Add 2, "DCFIFTY"
dctCoupling.Add 3, "LFREJECT"
Dim dctUnits As Scripting.Dictionary
Set dctUnits = New Scripting.Dictionary