Tektronix OM4006D, User Manual

Page: 198 / 205

Appendix G: The automated test equipment (ATE) interface
Use of this method requires a bit more knowledge of object oriented development
and the use of classes. It requires less code to implement and it deals with the
string case sensitivity within the specialized variable classes so it is less prone
to error.
Imports Optametra.OM4006.OM4006ATEClient
Imports System.IO
Imports System.Xml.Serialization
Imports System.Collections.Generic
Public Class SampleATEApplication
Dim myBER As BER = New BER()
Dim totalBits As Double
Dim processingDone As ManualResetEvent = New
ManualResetEvent(false)
Dim WithEvents MyOM4006ATEClient
As OM4006ATEClient = New OM4006ATEClient()
' this event handler will register the “BER” variable
' for update at the end of a block, connect to a scope
' and do a single acquisition.
Private Sub Form1_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
My4006ATEClient.RegisterForBlockUpate(myBER)
My4006ATEClient.Connect(TCPIP0::172.17.200.111::
inst0::INSTR”)
processingDone.Reset()
My4006ATEClient.Single()
processingDone.WaitOne(30000)
' wait for the event to trigger
' put code here to make use of the variables that are
' populated in the event handler before
' issuing more singles
End Sub
' callback that executes at the end of each block
' process all variables that have been registered
' in this method.
' Values returned from the Get methods outside
' of this method will potentially be corrupt.
Private Sub EndOfBlockEvent(ByVal sender As
System.Object, ByVal e As System.EventArgs)
Handles MyOM4006ATEClient.BlockVariablesPopulated
'At this point all the variables that are registered
' for have been completely populated and they can just
174 OM4000D Series Coherent Lightwave Signal Analyzer