1492
Keysight InfiniiVision M9241/42/43A PXIe Oscilloscopes SCPI Programmer's Guide
40
Programming Examples
Capture()
' Analyze the captured waveform.
Analyze()
Console.WriteLine("Press any key to exit")
Console.ReadKey()
Catch err As System.ApplicationException
Console.WriteLine("*** SCPI.NET Error : " & err.Message)
Catch err As System.SystemException
Console.WriteLine("*** System Error Message : " & err.Message)
Catch err As System.Exception
System.Diagnostics.Debug.Fail("Unexpected Error")
Console.WriteLine("*** Unexpected Error : " & err.Message)
'myScope.Dispose();
Finally
End Try
End Sub
' Initialize the oscilloscope to a known state.
' --------------------------------------------------------------
Private Shared Sub Initialize()
Dim strResults As String
' Get and display the device's *IDN? string.
myScope.SCPI.IDN.Query(strResults)
Console.WriteLine("*IDN? result is: {0}", strResults)
' Clear status and load the default setup.
myScope.SCPI.CLS.Command()
myScope.SCPI.RST.Command()
End Sub
' Capture the waveform.
' --------------------------------------------------------------
Private Shared Sub Capture()
Dim strResults As String
Dim fResult As Double
' Use auto-scale to automatically configure oscilloscope.
myScope.SCPI.AUToscale.Command(Nothing, Nothing, Nothing, _
Nothing, Nothing)
' Set trigger mode.
myScope.SCPI.TRIGger.MODE.Command("EDGE")
myScope.SCPI.TRIGger.MODE.Query(strResults)
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")
