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

Page: 1043 / 1186

Sample Programs
38
Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference 1043
myScope.DoCommand(":CHANnel1:PROBe 1.0")
Console.WriteLine("Channel 1 probe attenuation factor: {0}", _
myScope.DoQueryString(":CHANnel1:PROBe?"))
' Use auto-scale to automatically configure 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 level, channel 1: {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 configuration.
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.
ResultsArray = myScope.DoQueryIEEEBlock_UI1(":SYSTem:SETup?")
nLength = ResultsArray.Length
' 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")
Console.WriteLine("Channel 1 vertical scale: {0}", _
myScope.DoQueryString(":CHANnel1:SCALe?"))
myScope.DoCommand(":CHANnel1:OFFSet 0.0")
Console.WriteLine("Channel 1 vertical offset: {0}", _
myScope.DoQueryString(":CHANnel1:OFFSet?"))
' Set horizontal scale and offset.
myScope.DoCommand(":TIMebase:SCALe 0.0002")
Console.WriteLine("Timebase scale: {0}", _
myScope.DoQueryString(":TIMebase:SCALe?"))