Agilent Technologies Infiniium 90000 Series Programmer's Manual page 1140

38
Sample Programs
1140
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 Byte()
Dim nBytesWritten As Integer
' Read setup string from file.
strPath = "c:\scope\config\setup.stp"
DataArray = File.ReadAllBytes(strPath)
nBytesWritten = DataArray.Length
' Restore setup string.
myScope.SCPI.SYSTem.SETup.Command(DataArray)
Console.WriteLine("Setup bytes restored: {0}", nBytesWritten)
' Set the desired number of waveform points,
' and capture an acquisition.
myScope.SCPI.ACQuire.POINts.Command(32000)
myScope.SCPI.DIGitize.Command(DBNull.Value)
End Sub
' Analyze the captured waveform.
' --------------------------------------------------------------
Private Shared Sub Analyze()
Dim strResultsArray As String()
' Results array.
Dim strResults As String
Dim fResult As Double
' Make measurements.
' -----------------------------------------------------------
myScope.SCPI.MEASure.SOURce.Command("CHANnel1", DBNull.Value)
myScope.SCPI.MEASure.SOURce.Queryx(strResultsArray)
Console.WriteLine("Measure source: {0}", strResultsArray(0))
myScope.SCPI.MEASure.FREQuency.Command("CHANnel1", DBNull.Value)
myScope.SCPI.MEASure.FREQuency.QuerySendValidOff("CHANnel1", _
DBNull.Value, fResult)
Console.WriteLine("Frequency: {0:F4} kHz", fResult / 1000)
Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference