Agilent InfiniiVision 5000 Series Oscilloscopes Programmer's Guide
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)
Finally
myScope.Close()
End Try
End Sub
' Initialize()
' --------------------------------------------------------------
' This function initializes both the interface and the
' oscilloscope to a known state.
Private Shared Sub Initialize()
Dim strResults As String
' RESET - This command puts the oscilloscope into a known
' state.
This statement is very important for programs to
' work as expected.
' commands are initialized by *RST.
' reinitialize them unless the default setting is not suitable
' for your application.
' Reset to the defaults.
myScope.DoCommand("*RST")
' Clear the status data structures.
myScope.DoCommand("*CLS")
' IDN - Ask for the device's *IDN string.
strResults = myScope.DoQueryString("*IDN?")
' Display results.
Console.Write("Result is: {0}", strResults)
' AUTOSCALE - This command evaluates all the input signals
' and sets the correct conditions to display all of the
' active signals.
myScope.DoCommand(":AUToscale")
' CHANNEL_PROBE - Sets the probe attenuation factor for the
' selected channel.
' 0.1 to 1000.
myScope.DoCommand(":CHANnel1:PROBe 10")
' CHANNEL_RANGE - Sets the full scale vertical range in volts.
' The range value is eight times the volts per division.
myScope.DoCommand(":CHANnel1:RANGe 8")
' TIME_RANGE - Sets the full scale horizontal time in seconds.
' The range value is ten times the time per division.
myScope.DoCommand(":TIMebase:RANGe 2e-3")
' TIME_REFERENCE - Possible values are LEFT and CENTER:
'
- LEFT sets the display reference one time division from
Most of the following initialization
It is not necessary to
The probe attenuation factor may be from
Programming Examples
767
12