Agilent Technologies Infiniium 90000 Q-Series, Руководство программиста

Страница: 1023 / 1186

Sample Programs
38
Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference 1023
DoCommand ":CHANnel1:OFFSet 0.0"
Debug.Print "Channel 1 vertical offset: " + _
DoQueryString(":CHANnel1:OFFSet?")
' Set horizontal scale and offset.
DoCommand ":TIMebase:SCALe 200E-6"
Debug.Print "Timebase scale: " + _
DoQueryString(":TIMebase:SCALe?")
DoCommand ":TIMebase:POSition 0.0"
Debug.Print "Timebase position: " + _
DoQueryString(":TIMebase:POSition?")
' Set the acquisition mode.
DoCommand ":ACQuire:MODE RTIMe"
Debug.Print "Acquire mode: " + _
DoQueryString(":ACQuire:MODE?")
' Or, configure by loading a previously saved setup.
' -----------------------------------------------------------------
Dim varSetupString As Variant
strPath = "c:\scope\config\setup.dat"
Open strPath For Binary Access Read As hFile ' Open file for input.
Get hFile, , varSetupString ' Read data.
Close hFile ' Close file.
' Write learn string back to oscilloscope using ":SYSTem:SETup"
' command:
DoCommandIEEEBlock ":SYSTem:SETup", varSetupString
Debug.Print "Setup bytes restored: " + CStr(LenB(varSetupString))
' Set the desired number of waveform points,
' and capture an acquisition.
' -----------------------------------------------------------------
DoCommand ":ACQuire:POINts 32000"
DoCommand ":DIGitize"
Exit Sub
VisaComError:
MsgBox "VISA COM Error:" + Err.Description
End
End Sub
'
' Analyze the captured waveform.
' -------------------------------------------------------------------
Private Sub Analyze()
On Error GoTo VisaComError
' Make measurements.
' -----------------------------------------------------------------
DoCommand ":MEASure:SOURce CHANnel1"
Debug.Print "Measure source: " + _
DoQueryString(":MEASure:SOURce?")