COM object EvData
|
EvApplication > EvFileCollection > EvFile > EvVariablesCollection > EvVariableBase As EvVariableAcoustic > EvVariableAcousticProperties > EvData - OR - EvApplication > EvFileCollection >EvFile > EvVariablesCollection > EvVariableBase As EvVariableVirtual > EvVariableAcousticProperties > EvData
View the COM map and the COM summary. |
The EvData object gives you access to information about settings on the Data page of the Variable Properties dialog box of the acoustic or acoustic virtual variable.
EvData methods and properties:
ApplyMaximumThreshold
ApplyMinimumThreshold
ApplyMinimumTsThreshold
ApplyTimeVariedThreshold
LockSvMinimum
LockSvMaximum
MaximumThreshold
MinimumThreshold
MinimumTsThreshold
MinimumTsThresholdOffset
MaximumThresholdedValuesSetTo
TimeVariedThresholdSvAt1m
|
(read-write) boolean ApplyMaximumThreshold SummaryAccess or change the Apply checkbox for the Maximum threshold. ParametersNone ResultTrue or False. ExampleMsgBox "ApplyMaximumThreshold: " & AVariable.Properties.Data.ApplyMaximumThreshold AVariable.Properties.Data.ApplyMaximumThreshold = False |
|
(read-write) boolean ApplyMinimumThreshold SummaryAccess or change the Apply checkbox for the setting Minimum threshold. ParametersNone ResultTrue or False. ExampleMsgBox "ApplyMinimumThreshold: " & AVariable.Properties.Data.ApplyMinimumThreshold AVariable.Properties.Data.ApplyMinimumThreshold = True |
|
(read-write) boolean ApplyMinimumTsThreshold SummaryAccess or change the Apply checkbox for the setting Minimum TS threshold. ParametersNone ResultTrue or False. Example
|
|
|
(read-write) boolean ApplyTimeVariedThreshold SummaryAccess or change the Apply checkbox for the setting Time varied threshold. ParametersNone ResultTrue or False. ExampleMsgBox "ApplyTimeVariedThreshold: " & AVariable.Properties.Data.ApplyTimeVariedThreshold AVariable.Properties.Data.ApplyTimeVariedThreshold = False |
|
|
(read-write) boolean LockSvMinimum SummaryAccess or change the Lock to color display minimum checkbox under Minimum threshold. ParametersNone ResultTrue or False. ExampleMsgBox "LockSvMinimum: " & AVariable.Properties.Data.LockSvMinimum AVariable.Properties.Data.LockSvMinimum = True |
|
|
(read-write) boolean LockSvMaximum SummaryAccess or change the Lock to color display maximum checkbox under Maximum threshold. ParametersNone ResultTrue or False. ExampleMsgBox "LockSvMaximum: " & AVariable.Properties.Data.LockSvMaximum AVariable.Properties.Data.LockSvMaximum = False |
|
|
(read-write) double MaximumThreshold SummaryAccess or change the value for Maximum threshold. Example Dim strVar: strVar = "Sv pings"
Dim EvApp: Set EvApp = CreateObject("EchoviewCom.EvApplication")
If EvApp.EvFiles.Count = 0 Then
Msgbox "No EV file open"
WScript.Quit
End If
Dim EvVar: Set EvVar = EvApp.EvFiles(0).Variables.FindByName(strVar)
Dim SvVar: Set SvVar = EvVar.AsVariableAcoustic
If SvVar Is Nothing Then
MsgBox "Failed to find '" & strVar & "'"
WScript.Quit
End If
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
MsgBox "ApplyMinimumThreshold: " & SvVar.Properties.Data.ApplyMinimumThreshold
SvVar.Properties.Data.ApplyMinimumThreshold = False
MsgBox "ApplyMinimumThreshold: " & SvVar.Properties.Data.ApplyMinimumThreshold
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SvVar.Properties.Data.ApplyMinimumThreshold = True
MsgBox "MinimumThreshold: " & SvVar.Properties.Data.MinimumThreshold
SvVar.Properties.Data.MinimumThreshold = -10.00
MsgBox "MinimumThreshold: " & SvVar.Properties.Data.MinimumThreshold
|
|
|
(read-write) double MinimumThreshold SummaryAccess or change the value for Minimum threshold. ParametersNone ResultA dB value. ExampleMsgBox "MinimumThreshold: " & AVariable.Properties.Data.MinimumThreshold AVariable.Properties.Data.MinimumThreshold = -70.0 |
|
(read-write) double MinimumTsThreshold SummaryAccess or change the value for Minimum TS threshold. ParametersNone ResultA dB value. Example
|
|
(read-write) double MinimumTsThresholdOffset SummaryAccess or change the value for Calibration difference offset: under Minimum TS threshold. ParametersNone ResultA dB value. Example
|
|
|
(read-write) string MaximumThresholdedValuesSetTo SummaryAccess or change the value for Set values set to: under Maximum threshold. The setting values are:
ParametersNone ResultA valid string under this setting. ExampleMsgBox "MaximumThresholdedValuesSetTo: " & AVariable.Properties.Data.MaximumThresholdedValuesSetTo AVariable.Properties.Data.MaximumThresholdedValuesSetTo = "No data" |
|
|
(read-write) double TimeVariedThresholdSvAt1m SummaryAccess or change the value for Sv at 1m: under Time varied threshold. ParametersNone ResultA dB value. ExampleMsgBox "TimeVariedThresholdSvAt1m: " & AVariable.Properties.Data.TimeVariedThresholdSvAt1m AVariable.Properties.Data.TimeVariedThresholdSvAt1m = -110.50 |