Teledyne LeCroy UWBTracer Automation Manual - Manual (Page 80)

LeCroy UWBTracer Automation API Reference Manual Manual Version 3.02
76
Example
VBScript:
<OBJECT
ID = Analyzer
CLASSID = "clsid:EE43DE29-65CA-4904-B111-32919E00D061" >
</OBJECT>
<P ALIGN=LEFT ID=StatusText></P>
<SCRIPT LANGUAGE="VBScript">
<!--
Sub Analyzer_OnStatusReport(ByVal System, ByVal State, ByVal Percent)
Select Case State
Case –1
StatusText.innerText = "Idle"
Case 0
StatusText.innerText = "Recording - Waiting for trigger, " & Percent & "% done"
Case 1
StatusText.innerText = "Recording - Triggered, " & Percent & "% done"
Case 2
StatusText.innerText = "Uploading data, " & Percent & "% done"
Case 3
StatusText.innerText = "Saving data, " & Percent & "% done"
Case 400
StatusText.innerText = "Ready"
Case 402
StatusText.innerText = "Generating, " & Percent & "% done"
Case 403
StatusText.innerText = "Paused"
Case Else
StatusText.innerText = "State unknown, " & Percent & "% done"
End Select
End Sub
-->
</SCRIPT>