Technical data

Sample Programs 38
Agilent Infiniium 9000 Series Oscilloscopes Programmer's Reference 1293
Console.WriteLine("Trigger edge source: {0}", strResults)
myScope.SCPI.TRIGger.LEVel.Command("CHANnel1", -0.002)
myScope.SCPI.TRIGger.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 setup.
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.1)
myScope.SCPI.CHANnel.SCALe.Query(1, fResult)
Console.WriteLine("Channel 1 vertical scale: {0:F4}", fResult)
myScope.SCPI.CHANnel.OFFSet.Command(1, 0.0)
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 mode.
myScope.SCPI.ACQuire.MODE.Command("RTIMe")
myScope.SCPI.ACQuire.MODE.Query(strResults)
Console.WriteLine("Acquire mode: {0}", strResults)
' Or, configure by loading a previously saved setup.
Dim DataArray As String()
Dim nBytesWritten As Integer
' Read setup string from file.
strPath = "c:\scope\config\setup.stp"