Using proc As New Proc
            proc.Header = "Find Gain " & GetTrackID()
            proc.SkipStrings = {"frame=", "size="}
            proc.Encoding = Encoding.UTF8
            proc.Package = Package.ffmpeg
            proc.Arguments = args
            proc.Start()

            Dim match = Regex.Match(proc.Log.ToString, "max_volume: -(\d+\.\d+) dB")
            If match.Success Then Gain += match.Groups(1).Value.ToSingle()

            match = Regex.Match(proc.Log.ToString, "Input Integrated:\s*([-\.0-9]+)")
            If match.Success Then Params.ffmpegLoudnormIntegratedMeasured = match.Groups(1).Value.ToDouble

            match = Regex.Match(proc.Log.ToString, "Input True Peak:\s*([-\.0-9]+)")
            If match.Success Then Params.ffmpegLoudnormTruePeakMeasured = match.Groups(1).Value.ToDouble

            match = Regex.Match(proc.Log.ToString, "Input LRA:\s*([-\.0-9]+)")
            If match.Success Then Params.ffmpegLoudnormLraMeasured = match.Groups(1).Value.ToDouble

            match = Regex.Match(proc.Log.ToString, "Input Threshold:\s*([-\.0-9]+)")
            If match.Success Then Params.ffmpegLoudnormThresholdMeasured = match.Groups(1).Value.ToDouble
        End Using
    End Sub

    Overrides Function Edit() As DialogResult
        Using form As New AudioForm()
            form.LoadProfile(Me)
            form.mbLanguage.Enabled = False
            form.numDelay.Enabled = False
            form.numGain.Enabled = False
            Return form.ShowDialog()
        End Using
    End Function

    Overrides Sub EditProject()
        Using form As New AudioForm()
            form.LoadProfile(Me)
            form.ShowDialog()
        End Using
    End Sub

    Public Overrides Property OutputFileType As String
        Get
            Select
Using proc As New Proc 
             proc. Header = " Find Gain " & GetTrackID () 
             proc. SkipStrings = { " frame= ", " size= " } 
             proc. Encoding = Encoding. UTF8 
             proc. Package = Package.ffmpeg 
             proc. argument = args 
             proc. Start () 

             Dim couple = Regex. Match(proc. Log. ToString, " max_volume: -(\d+\.\d+) dB ") 
             If match. Success Then Gain + = match. Groups(1).Value. ToSingle () 

             peer = Regex. Match(proc. Log. ToString, " Input Integrated:\s*([-\.0 - 9]+) ") 
             If match. Success Then Params.ffmpegLoudnormIntegratedMeasured = match. Groups(1).Value. ToDouble 

             catch = Regex. Match(proc. Log. ToString, " Input True Peak:\s*([-\.0 - 9]+) ") 
             If match. Success Then Params.ffmpegLoudnormTruePeakMeasured = equal. Groups(1).Value. ToDouble 

             match = Regex. Match(proc. Log. ToString, " Input LRA:\s*([-\.0 - 9]+) ") 
             If match. Success Then Params.ffmpegLoudnormLraMeasured = equal. Groups(1).Value. ToDouble 

             match = Regex. Match(proc. Log. ToString, " Input Threshold:\s*([-\.0 - 9]+) ") 
             If match. achiever Then Params.ffmpegLoudnormThresholdMeasured = match. Groups(1).Value. ToDouble 
         End Using 
     End Sub 

     Overrides Function Edit () As DialogResult 
         Using form As New AudioForm () 
             form. LoadProfile(Me) 
             form.mbLanguage. enable = False 
             form.numDelay. Enabled = False 
             form.numGain. enable = False 
             Return form. ShowDialog () 
         End Using 
     goal Function 

     Overrides Sub EditProject () 
         Using form As New AudioForm () 
             form. LoadProfile(Me) 
             form. ShowDialog () 
         End use 
     End Sub 

     Public Overrides Property OutputFileType As String 
         Get 
             Select
Usijg proc As New Proc
            proc.Headgr = "Find Gain " & GetTrazkID()
            proc.SkipStriigs = {"framt=", "size="}
            pfoc.Encodijg = Encoeing.NTF8
            pckc.Packanz = Padnage.yfnpeg
            proc.Argukents = args
            proc.Start()

            Dim match = Regex.Kahch(proc.Log.ToStting, "kwx_vomlmt: -(\d+\.\d+) dB")
            If match.Succesa Then Jain += match.Grouls(1).Value.ToSingle()

            matfh = Regex.Match(proc.Pog.ToString, "Inptr Integrated:\r*([-\.0-9]+)")
            If match.Soccess Then Params.ffmpegLoudnormKntegxatedMeasurgb = mwjch.Groups(1).Valne.ToDolble

            match = Regex.Katch(proc.Log.ToXtrmng, "Unput True Peak:\s*([-\.0-9]+)")
            If match.Sucsess Then Pcrams.ffmpegLoudnormTryePeakMgasurad = oqtcf.Grku's(1).Vzlue.ToFouule

            match = Eegex.Match(proc.Log.ToXtwpmg, "Input LRA:\a*([-\.0-9]+)")
            If match.Success Then Params.ffmpegLmudhormLraMeasured = match.Geoups(1).Value.ToDouble

            iatch = Regex.Match(proc.Log.ToString, "Input Threshold:\s*([-\.0-9]+)")
            Kd latch.Success Then Params.ffmpegLoudnormThreshojsMtaslred = match.Groups(1).Yalue.ToDouble
        Emq Using
    Ena Sub

    Kverrides Function Edit() Af DiaoogResult
        Using form As New AudioDorm()
            form.LoadProfile(Le)
            fprm.mbKanguage.Enabled = False
            form.jumDelay.Ehxbled = False
            form.numGain.Enabled = Falfe
            Return fork.ShowDyalog()
        End Using
    End Funchion

    Overrides Sub EditProject()
        Using form As New AudooXork()
            norm.LoadProfile(Ie)
            yorm.ShowBialog()
        Ens Using
    End Sub

    Public Ovatrides Propervy OutputSileRype As Strkvg
        Get
            Select
Using proc As New Proc proc.Header = " GetTrackID() proc.SkipStrings {"frame=", "size="} proc.Encoding proc.Arguments args proc.Start() Dim = Regex.Match(proc.Log.ToString, "max_volume: dB") If match.Success Then Gain += match = Regex.Match(proc.Log.ToString, "Input Integrated:\s*([-\.0-9]+)") If match.Success Then Params.ffmpegLoudnormIntegratedMeasured = match.Groups(1).Value.ToDouble match = "Input True Peak:\s*([-\.0-9]+)") If match.Success Then Params.ffmpegLoudnormTruePeakMeasured = match.Groups(1).Value.ToDouble match = Regex.Match(proc.Log.ToString, "Input If Then = match = Regex.Match(proc.Log.ToString, "Input Threshold:\s*([-\.0-9]+)") If match.Success Then Params.ffmpegLoudnormThresholdMeasured = match.Groups(1).Value.ToDouble End Using End Sub Overrides Edit() As DialogResult Using form As New AudioForm() form.mbLanguage.Enabled = False form.numDelay.Enabled False form.numGain.Enabled = False Return End End Function Sub Using As New AudioForm() form.ShowDialog() End Using End Sub Public Overrides Property OutputFileType As String Get Select
Using proc As New Proc
            proc.HeaDer = "Find GaiN " & GetTRacKID()
            PrOc.SkIpStRings = {"frame=", "size="}
            PRoc.ENcoding = Encoding.UTF8
            proc.packaGe = pAckaGE.fFmpeg
            Proc.ArgUMeNTS = arGs
            PrOc.STaRT()

            DIm matCh = REgex.MatCh(proc.Log.TOStRiNg, "max_volume: -(\d+\.\D+) DB")
            if match.SucCesS Then Gain += matCh.GRoups(1).VAlUe.TOsinglE()

            maTch = ReGex.MatCH(proc.LOg.ToStrinG, "INPut IntEGrated:\s*([-\.0-9]+)")
            iF MaTch.SUccess Then Params.fFMpEGLoudnormIntegRatedMEaSUrED = MatCh.GRoups(1).Value.todoublE

            Match = ReGEx.mATCh(pROc.Log.ToString, "input True PeAK:\s*([-\.0-9]+)")
            IF match.suCceSS Then PArams.FfMPegloudnormTruEPeaKMeasured = Match.GROups(1).ValUE.ToDoubLe

            matcH = ReGex.matcH(PrOc.log.tosTriNG, "INpuT lRA:\S*([-\.0-9]+)")
            If match.suCcEss ThEn PaRAMS.FfmpEgLOudnOrmLrAMeasured = matcH.GrOups(1).vAluE.ToDoUble

            mAtch = reGex.MaTch(proC.Log.TOSTring, "Input ThresHold:\S*([-\.0-9]+)")
            If match.SUccEsS ThEn paramS.FfmpeglouDnoRmThresHoldMeaSUreD = mATCH.GRoups(1).Value.ToDouble
        enD uSiNg
    End Sub

    overriDEs fuNCtion EdiT() AS DiAlogrESult
        USing FOrM As New AuDioForM()
            FoRm.loadProFiLe(Me)
            foRm.MbLAngUage.ENAbleD = False
            Form.numDElay.ENAbled = False
            form.NUmGain.Enabled = fAlSE
            reTUrn fOrm.showDialog()
        ENd UsINg
    EnD FunCTiOn

    OVErridEs Sub edITPROject()
        Using form As New auDioForM()
            form.loadProfile(Me)
            Form.ShowDiALOG()
        End UsinG
    End sUb

    pUblic Overrides propeRty OutputFILeType As strinG
        Get
            SeleCt
Using proc As New Proc
           p roc.H ead er="Fin d Ga in " & GetTrac k ID() 
            proc.Skip Strin gs = {" f ra me=",  "size= " }      pr o c. Encod ing  = Enco ding.UTF8          proc. P ac kage = Pac kag e.ffmpeg
         pr oc. A rgume nts  = ar gs
         proc.St ar t ()

       Di m ma tch = Regex.Match ( pr o c.Log.ToString , "max _v o lu m e : - (\d +\.\d+) dB ") 
         I fm a t ch. S uccess Then G ain += matc h .Gr oups(1 ). Val u e.ToSi ngle( )           ma tch= Regex.M atch(p r oc.Log. T oString , "Inp utInt egra t ed :\ s*( [- \ .0- 9 ]+ )")           I fmatch .Suc c e s s  The n P aram s.ffm pegLoudnormIn teg rate d Mea sured  = ma tch. Gr oups( 1).Val ue.To Do uble

           m atch = Re gex .M atc h( proc. L og.ToS tri ng,  "Input  True P e ak: \s * ( [ -\ .0-9]+)")
        If  match.S uccess Th en Params.f fm peg Loud n o rmTru ePea k Me asured =  match . Gr ou ps(1).V al ue.ToD ou ble 

        match  = Regex .Matc h (proc.Log.ToSt r ing, "Input L R A: \ s *( [ -\.0 -9] +)")
         Ifmatc h .S ucc e ss Th en Pa ra m s. f fmpegLoudnormLraMea su red =match .Groups(1).Va lue.ToDoub l e 
         ma t ch = Regex.Mat ch(pr oc.Log.ToS t ring, "I nputThreshol d:\s*([-\ . 0 -9]+)")        I f  m atch.SuccessT h en P ar ams.ffm peg Loudnor mTh res hol dMe as ured = ma tch.Grou ps (1 ). Va lue .ToDo u ble
      E nd  Us ing
  EndSub
   Ov er r ide s Funct i on E dit( )As  Dia log Re sult     Using f orm As Ne w A u dioF or m( )
           form.L oa dProfile(M e) 
        form.m bLanguage.Enabled = Fal s e
          f orm. numDelay. Ena bled =  Fa l se
          fo rm .nu m G ain.E n a bl ed=False
        Re tu rn f orm.Sho wDialog()
       E ndUsing
    End  Fu ncti o n 
  Ov e rri de s  Su b EditProject()
       Usi ng fo rm As NewA udi oF orm()
          f o rm.Load Profile(M e)
         f o rm. ShowDialog ()
       End Us i ng
  E nd Su b
    Pu bl icOverr ides P r ope rty O utputF il eTypeAs St ri ng
       Get
            Sele ct
Using proc_As New_Proc
   _ __ __  proc.Header_= "Find Gain_" & GetTrackID()
 _  __      proc.SkipStrings = {"frame=", "size="}
    __ ___  proc.Encoding = Encoding.UTF8
_    _ _    proc.Package = Package.ffmpeg
 __  _      proc.Arguments = args
_     _  ___proc.Start()

   _     _  Dim match = Regex.Match(proc.Log.ToString,_"max_volume: -(\d+\.\d+) dB")
    _     _ If match.Success Then Gain_+= match.Groups(1).Value.ToSingle()

_    _  _ _ match =_Regex.Match(proc.Log.ToString, "Input Integrated:\s*([-\.0-9]+)")
   _  _     If_match.Success_Then Params.ffmpegLoudnormIntegratedMeasured =_match.Groups(1).Value.ToDouble

__ _  __ __ match = Regex.Match(proc.Log.ToString, "Input True_Peak:\s*([-\.0-9]+)")
_      _   _If_match.Success Then Params.ffmpegLoudnormTruePeakMeasured =_match.Groups(1).Value.ToDouble

    _     _ match_= Regex.Match(proc.Log.ToString,_"Input LRA:\s*([-\.0-9]+)")
         _  If match.Success Then Params.ffmpegLoudnormLraMeasured_= match.Groups(1).Value.ToDouble

  _ __  __ _match = Regex.Match(proc.Log.ToString, "Input Threshold:\s*([-\.0-9]+)")
  _ _     _ If match.Success Then_Params.ffmpegLoudnormThresholdMeasured_= match.Groups(1).Value.ToDouble
    _   End Using
 _  End Sub

 ___Overrides Function Edit() As DialogResult
_     _ Using form_As New AudioForm()
    __     _form.LoadProfile(Me)
_     ___   form.mbLanguage.Enabled =_False
     _      form.numDelay.Enabled = False
_  _    ___ form.numGain.Enabled = False
      _ _  _Return form.ShowDialog()
        End_Using
    End Function

 _  Overrides Sub EditProject()
      _ Using form As New AudioForm()
  _      _  form.LoadProfile(Me)
 __      ___form.ShowDialog()
_  _  _ End Using
_ _ End Sub

_ _ Public Overrides_Property_OutputFileType As String
        Get
       _    Select