Public Class Parameter
    Private Lame As String
    Private Madplay As String
    Private SSRC As String
    Private Window As ProcessWindowStyle
 
    Public Property Compression(ByVal type As String) As String
        Get
            Select Case type
                Case ".mp3"
                    Select Case frmWandler.combomp3Mode.Text
                        Case "VBR"
                            Lame &= "-V " & frmWandler.combomp3Quality.Text & "" & _
                              "--vbr-new"
                        Case "CBR"
                            Lame &= "-b " & frmWandler.comboMP3Bitrate.Text
                        Case "ABR"
                            Lame &= "--abr " & frmWandler.comboMP3Bitrate.Text
                    End Select
                    Lame &= " "
                    Select Case frmWandler.comboChannel.Text
                        Case "Stereo"
                            Lame &= "-m s"
                        Case "Joint Stereo"
                            Lame &= "-m j"
                        Case "Mono"
                            Lame &= "-m m"
                        Case "Dual Mono"
                            Lame &= "-m d"
                    End Select
                    Lame &= " "
                    Lame &= "-h -p"
                Case ".mp4"
                    Select Case frmWandler.comboneroaacMode.Text
                        Case "VBR"
                            Lame &= "-q " & frmWandler.comboneroaacQuality.Text
                        Case "ABR"
                            Lame &= "-br " & frmWandler.txtneroaacBitrate.Text
                        Case "CBR"
                            Lame &= "-cbr " & frmWandler.txtneroaacBitrate.Text
                    End Select
                    If frmWandler.comboaacCodeMode.Text <> "" Then
                        Lame &= " "
                        Select Case frmWandler.comboaacCodeMode.Text
                            Case "HE-AAC"
                                Lame &= "-he"
                            Case "HE-AAC v2"
                                Lame &= "-hev2"
                            Case "LC-AAC"
                                Lame &= "-lc"
                        End Select
                    End If
                Case ".flac"
                    Lame = "-" & frmWandler.comboFLACcompr.Text
            End Select
            Return Lame
        End Get
        Set(ByVal value As String)
        End Set
    End Property
    Public Property madplayPar As String
        Get
            Madplay = "-b 24 --replay-gain=audiophile -a -5 -S -v -o wave:"
            Return Madplay
        End Get
        Set(ByVal value As String)
 
        End Set
    End Property
    Public Property ssrcPar As String
        Get
            SSRC = "--rate 44100 --bits 16 --twopass --normalize --dither 3"
            Return SSRC
        End Get
        Set(ByVal value As String)
 
        End Set
    End Property
    Public Property Winstatus As ProcessWindowStyle
        Get
            If frmWandler.chkProShow.Checked Then
                Window = ProcessWindowStyle.Normal
            Else
                Window = ProcessWindowStyle.Normal
            End If
            Return Window
        End Get
        Set(ByVal value As ProcessWindowStyle)
 
        End Set
    End Property
End Class