Teledyne LeCroy SierraFC Automation API - Manual (Page 69)

LeCroy Corporation SierraFC M8-4 API Reference Manual Manual Version 1.00
69
Example
VBScript:
<OBJECT
ID = Analyzer
CLASSID = "clsid:0B179BB8-DC61-11D4-9B71-000102566088" >
</OBJECT>
<P ALIGN=LEFT ID=StatusText></P>
<SCRIPT LANGUAGE="VBScript">
<!--
Function GetRecordingStatus(ByVal State, ByVal Percent)
Select Case State
Case -1: GetRecordingStatus = "Idle"
Case 0: GetRecordingStatus = "Recording - Waiting for trigger"
Case 1: GetRecordingStatus = "Recording - Triggered"
Case 2: GetRecordingStatus = "Uploading"
Case 3: GetRecordingStatus = "Saving Data"
Case Else: GetRecordingStatus = "Invalid recording status"
End Select
GetRecordingStatus = GetRecordingStatus & ", " & Percent & "% done"
End Function
Dim RecordingStatus
Sub Analyzer_OnStatusReport(ByVal System, ByVal State, ByVal Percent)
Select Case System
Case 1 RecordingStatus = GetRecordingStatus( State, Percent )
End Select
End Sub
-->
</SCRIPT>