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

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

1092 Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference
38
Sample Programs
myScope.DoCommand("*RST")
End Sub
'
' Capture the waveform.
' --------------------------------------------------------------
Private Shared Sub Capture()
' Set probe attenuation factor.
myScope.DoCommand(":CHANnel1:PROBe 1.0")
Console.WriteLine("Channel 1 probe attenuation factor: {0}", _
myScope.DoQueryString(":CHANnel1:PROBe?"))
' Use auto-scale to automatically set up oscilloscope.
myScope.DoCommand(":AUToscale")
' Set trigger mode.
myScope.DoCommand(":TRIGger:MODE EDGE")
Console.WriteLine("Trigger mode: {0}", _
myScope.DoQueryString(":TRIGger:MODE?"))
' Set EDGE trigger parameters.
myScope.DoCommand(":TRIGger:EDGE:SOURCe CHANnel1")
Console.WriteLine("Trigger edge source: {0}", _
myScope.DoQueryString(":TRIGger:EDGE:SOURce?"))
myScope.DoCommand(":TRIGger:LEVel CHANnel1,-2E-3")
Console.WriteLine("Trigger edge level: {0}", _
myScope.DoQueryString(":TRIGger:LEVel? CHANnel1"))
myScope.DoCommand(":TRIGger:EDGE:SLOPe POSitive")
Console.WriteLine("Trigger edge slope: {0}", _
myScope.DoQueryString(":TRIGger:EDGE:SLOPe?"))
' Save oscilloscope setup.
Dim ResultsArray As Byte() ' Results array.
Dim nLength As Integer ' Number of bytes returned from inst.
Dim strPath As String
Dim fStream As FileStream
' Query and read setup string.
nLength = myScope.DoQueryIEEEBlock_Bytes(":SYSTem:SETup?", _
ResultsArray)
' Write setup string to file.
strPath = "c:\scope\config\setup.stp"
fStream = File.Open(strPath, FileMode.Create)
fStream.Write(ResultsArray, 0, nLength)
fStream.Close()
Console.WriteLine("Setup bytes saved: {0}", nLength)
' Change settings with individual commands:
' Set vertical scale and offset.
myScope.DoCommand(":CHANnel1:SCALe 0.1")