Teledyne LeCroy Automation API for Bluetooth Analyzers - Manual (Page 86)

80
Automation API for CATC Bluetooth Analyzers CATC Ver. 1.40
<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
Function GetSyncStatus(ByVal State)
Select Case State
Case 0: GetSyncStatus = "No sync"
Case 1: GetSyncStatus = "Syncing..."
Case 2: GetSyncStatus = "Synced"
Case Else: GetSyncStatus = "Invalid sync status"
End Select
End Function
Dim RecordingStatus
Dim SyncStatus
Sub Analyzer_OnStatusReport(ByVal System, ByVal State, ByVal Percent)
Select Case System
Case 1 RecordingStatus= GetRecordingStatus( State, Percent )
Case 11 SyncStatus = GetSyncStatus( State )
End Select
StatusText.innerText = RecordingStatus & ", " & SyncStatus
End Sub
-->
</SCRIPT>
C++:
#defineRECORDING_PROGRESS_REPORT( 1 )
#defineBTANALYZER_SYNC( 11 )
#defineANALYZERSTATE_IDLE( -1 )
#defineANALYZERSTATE_WAITING_TRIGGER( 0 )
#defineANALYZERSTATE_RECORDING_TRIGGERED( 1 )
#defineANALYZERSTATE_UPLOADING_DATA( 2 )
#defineANALYZERSTATE_SAVING_DATA( 3 )
#define BT_ASR_SYNC_STATE_UNSYNCED_INQUIRING ( 0 )
#define BT_ASR_SYNC_STATE_SYNCING ( 1 )
#define BT_ASR_SYNC_STATE_SYNCED ( 2 )
HRESULT __stdcall OnStatusReport( short subsystem, short state, long
percent_done )
{
switch ( subsystem )
{
case RECORDING_PROGRESS_REPORT:
UpdateRecStatus( state, percent_done );
break;
case BTANALYZER_SYNC:
UpdateSyncStatus( state );
break;