COM object EvSingleTargetDetectionDualBeamParameters

EvApplication > EvFileCollection > EvFile > EvVariablesCollection > EvVariableBase As EvVariableVirtual > EvVariableAcousticProperties > EvSingleTargetDetectionDualBeamParameters

 

View the COM map and the COM summary.

The EvSingleTargetDetectionDualBeamParameters object provides access to specific dual-beam settings on the Single Target Detection page of the Variable Properties dialog box for the acoustic variable via the EvVariableAcousticProperties.SingleTargetDetectionDualBeamParameters property.

EvSingleTargetDetectionDualBeamParameters properties:

MaximumBeamCompensation
OverAxisAngleThreshold

Properties

Description

MaximumBeamCompensation

double MaximumBeamCompensation

Summary

Get or set the Maximum Beam Compensation setting under the Single target detection parameters section of the Single Target Detection page of the Variable Properties dialog box.

Example
Dim sFile: sFile = "C:\Temp\tmp.EV"
Dim sVar: sVar = "dual beam m1"
Const eOperatorSingleTargetDetectionDualBeamMethod1 = 66
Const eOperatorSingleTargetDetectionDualBeamMethod2 = 124
 
Dim oEchoviewCom: Set oEchoviewCom = CreateObject("EchoviewCom.EvApplication")
Dim oEvFile: Set oEvFile = oEchoviewCom.OpenFile(sFile)
Dim oVar: Set oVar = oEvFile.Variables.FindByName(sVar)
If oVar.AsVariableVirtual Is Nothing Then
    MsgBox "'" & sVar & "' is not a virtual variable"
End IfeType: eType = oVar.Operator
If Not (eType = eOperatorSingleTargetDetectionDualBeamMethod1 Or _
        eType = eOperatorSingleTargetDetectionDualBeamMethod2) Then
    MsgBox "'" & sVar & "' is not a Dual beam Single Target Detection"
    WScript.Quit
End If
Dim oSingle: Set oSingle = oVar.Properties.SingleTargetDetectionParameters
MsgBox "'" & sVar & "' Single Beam parameters:"_
    & " TsThreshold: " & CStr(oSingle.TsThreshold)_
    & " PLDL: " & CStr(oSingle.PLDL)_
    & " MinimumPulseLength: " & CStr(oSingle.MinimumPulseLength)_
    & " MaximumPulseLength: " & CStr(oSingle.MaximumPulseLength)_
    & " ExcludeAboveLine: " & oSingle.ExcludeAboveLine _
    & " ExcludeBelowLine: " & oSingle.ExcludeBelowLine
 
oSingle.ExcludeAboveLine = "Line 1"
MsgBox "'" & sVar & "' ExcludeAboveLine: " & oSingle.ExcludeAboveLine
 
If eType = eOperatorSingleTargetDetectionDualBeamMethod1 Or _
   eType = eOperatorSingleTargetDetectionDualBeamMethod2 Then
    Dim oDual: Set oDual = oVar.Properties.SingleTargetDetectionDualBeamParameters
    MsgBox "'" & sVar & "' Dual Beam parameters:"_
        & " MaximumBeamCompensation:" & CStr(oDual.MaximumBeamCompensation)_
        & " OverAxisAngleThreshold:" & CStr(oDual.OverAxisAngleThreshold)
End If

OverAxisAngleThreshold

double OverAxisAngleThreshold

Summary

Get or set the Over axis angle threshold (dB) setting under the Single target detection parameters section of the Single Target Detection page of the Variable Properties dialog box.

Example

Refer to single target and dual beam specific settings example.

Notes:

See also

Scripting with COM objects
COM object hierarchy