Teledyne LeCroy UWBTracer Automation Manual User Manual

Page 24

LeCroy

UWBTracer Automation API Reference Manual

Manual Version 3.02

Example

WSH (1):
See Automation\wsh\UWBAnalyzer_Gen.vbs

WSH(2):
Set Analyzer = WScript.CreateObject("CATC.UWBAnalyzer", "Analyzer_")

'Tell the CATC UWB analyzer to start generation.
Analyzer.StartGeneration CurrentDir & "example.uwbg"

Dim doneGeneration
doneGeneration = 0

'Repeat Generation 49 more times.
For RepeatCount = 1 To 49

Do While doneGeneration = 0

WScript.Sleep

100

Loop
Analyzer.StartGeneration
DoneGeneration = 0

Next

'Release the analyzer.
WScript.DisconnectObject Analyzer

'WScript.Echo "UWBAnalyzer object has been disconnected."
Set Analyzer = Nothing

'WScript.Echo "Quiting WScript..."
WScript.Quit

'
' Handler of the event fired when recorded trace is created (after recording and uploading)
'
Sub Analyzer_OnStatusReport(ByVal subsystem, ByVal state, ByVal percent_done )
On Error Resume Next
if state = 400 Then
doneGeneration = 1
WScript.Echo "Generation finished"
End If

End Sub

VBScript:

... ...
... ...