Teledyne LeCroy Automation API for Teledyne LeCroy PETracer_PETrainer - Manual (Page 142)

Teledyne LeCroy Automation API for PETracer/PETrainer
137
If subsystem is GENERATION_PROGRESS_REPORT:
• Represent current position of the script execution
Return values
Remarks
Make sure the event handlers have __stdcall calling convention.
Example
VBScript:
<OBJECT
ID = Analyzer
CLASSID = "clsid: 297CD804-08F5-4A4F-B3BA-779B2654B27C "
>
</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 4: GetRecordingStatus = "Preparing Data for Upload"
Case 5: GetRecordingStatus = "Preparing Data for Recording"
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>