Agilent Technologies InfiniiVision 3000 X-Series, Programmer'S Manual

Page: 1207 / 1232

Programming Examples
39
Agilent InfiniiVision 3000 X-Series Oscilloscopes Programmer's Guide 1207
Console.WriteLine("Trigger mode: {0}", strResults)
' Set EDGE trigger parameters.
myScope.SCPI.TRIGger.EDGE.SOURce.Command("CHANnel1")
myScope.SCPI.TRIGger.EDGE.SOURce.Query(strResults)
Console.WriteLine("Trigger edge source: {0}", strResults)
myScope.SCPI.TRIGger.EDGE.LEVel.Command(1.5, "CHANnel1")
myScope.SCPI.TRIGger.EDGE.LEVel.Query("CHANnel1", fResult)
Console.WriteLine("Trigger edge level: {0:F2}", fResult)
myScope.SCPI.TRIGger.EDGE.SLOPe.Command("POSitive")
myScope.SCPI.TRIGger.EDGE.SLOPe.Query(strResults)
Console.WriteLine("Trigger edge slope: {0}", strResults)
' Save oscilloscope configuration.
Dim strResultsArray As String()
' Results array.
Dim nLength As Integer
' Number of bytes returned from instrument.
Dim strPath As String
' Query and read setup string.
myScope.SCPI.SYSTem.SETup.Query(strResultsArray)
nLength = strResultsArray.Length
' Write setup string to file.
strPath = "c:\scope\config\setup.stp"
File.WriteAllLines(strPath, strResultsArray)
Console.WriteLine("Setup bytes saved: {0}", nLength)
' Change settings with individual commands:
' Set vertical scale and offset.
myScope.SCPI.CHANnel.SCALe.Command(1, 0.05)
myScope.SCPI.CHANnel.SCALe.Query(1, fResult)
Console.WriteLine("Channel 1 vertical scale: {0:F4}", fResult)
myScope.SCPI.CHANnel.OFFSet.Command(1, -1.5)
myScope.SCPI.CHANnel.OFFSet.Query(1, fResult)
Console.WriteLine("Channel 1 vertical offset: {0:F4}", fResult)
' Set horizontal scale and offset.
myScope.SCPI.TIMebase.SCALe.Command(0.0002)
myScope.SCPI.TIMebase.SCALe.Query(fResult)
Console.WriteLine("Timebase scale: {0:F4}", fResult)
myScope.SCPI.TIMebase.POSition.Command(0.0)
myScope.SCPI.TIMebase.POSition.Query(fResult)
Console.WriteLine("Timebase position: {0:F2}", fResult)
' Set the acquisition type.
myScope.SCPI.ACQuire.TYPE.Command("NORMal")
myScope.SCPI.ACQuire.TYPE.Query(strResults)
Console.WriteLine("Acquire type: {0}", strResults)