COM object EvPingSubset

EvApplication > EvFile > EvVariablesCollection > EvVariableBase As EvVariableVirtual >EvVariableAcousticProperties > EvPingSubset

View the Echoview COM object hierarchy and the Echoview summary of COM objects.

The EvPingSubset object gives you access to information about settings on the Ping subset page of the Variable Properties dialog box of the acoustic variable.

EvPingSubset implements the following properties:

EvPingSubset
properties

Description

Ranges

(read-write) string Ranges

Summary

Access or change the value (expressed as text string) for the setting Ping range(s) on the Ping subset page.

Note: Invalid text (which can not be interpreted as a range of pings) will result in an error being logged, and no change being made to the operator.

Example

Dim EvApp: Set EvApp = CreateObject("EchoviewCom.EvApplication")
      If EvApp.EvFiles.Count  1 Then
        MsgBox "Please open an EV file"
      End If
      
      Dim EvFile: Set EvFile = EvApp.EvFiles(0)
      Dim EvVar: Set EvVar = EvFile.Variables.FindByName("Ping subset 1")
      If EvVar Is Nothing Then
        MsgBox "Could not find the ping subset variable."
        wScript.Quit
      End If
      MsgBox "Initial value: " & EvVar.Properties.PingSubset.Ranges
      EvVar.Properties.PingSubset.Ranges = "50 - 100"
      MsgBox "50 - 100; " & EvVar.Properties.PingSubset.Ranges
      EvVar.Properties.PingSubset.Ranges = "50 -"
      MsgBox "50 -; " & EvVar.Properties.PingSubset.Ranges
      EvVar.Properties.PingSubset.Ranges = "asd"
      MsgBox "asd; " & EvVar.Properties.PingSubset.Ranges
      EvVar.Properties.PingSubset.Ranges = "2000-"
      MsgBox "2000-; " & EvVar.Properties.PingSubset.Ranges
      EvVar.Properties.PingSubset.Ranges = "9999-"
      MsgBox "9999-; " & EvVar.Properties.PingSubset.Ranges
      EvVar.Properties.PingSubset.Ranges = "5"
      MsgBox "5; " & EvVar.Properties.PingSubset.Ranges
      EvVar.Properties.PingSubset.Ranges = "-100"
      MsgBox "-100; " & EvVar.Properties.PingSubset.Ranges
      EvVar.Properties.PingSubset.Ranges = "   50-  250   "
      MsgBox "   50-  250   " & EvVar.Properties.PingSubset.Ranges
      EvVar.Properties.PingSubset.Ranges = ""
      MsgBox "(empty)" & EvVar.Properties.PingSubset.Ranges

COM object EvPingSubset

Summary

Example

See also