LAME är ett bibliotek som gör att programmerare att koda MP3-filer . LAME är öppen källkod och du kan ladda ner det gratis . Den användbara filen är " LameLib " eller " libmp3lame.dylib . " Visual Studio är en Microsoft integrerad utvecklingsmiljö . Du kan använda Visual Basic , C + + eller C # med detta IDE . VB är ett objektorienterat programmeringsspråk , som ofta används för att skapa Windows-program , nätverk ansökan eller webbapplikationer tjänster . Med VB.NET , kan du koda även mp3-filer . Utgången kommer att vara 32 - bitars kodade MP3 . Instruktioner
1
Klicka på "Start " välj " Alla program " och välj " Visual Studio . " Klicka på "Ny " och välj " Project " för att skapa ett nytt projekt . Välj " Visual Studio " som programmeringsspråk och " Windows Application " som programmet typ . Ange ett namn för projektet . Ange en plats för projektet filerna .
2
Dubbelklicka på form1.vb . Ange sökvägen till LAME.EXE via kod : Dim WithEvents _lameShell Som New LameShell_lameShell.InFile = Application.StartupPath & " \\ input.mp3 " _lameShell.OutFile = Application.StartupPath & " \\ output.mp3 " _lameShell.Options = " - B 32 " _lameShell.Start ( ) Addera 3
Lägg händelsehanterare för att visa kodning framsteg : Private Sub _lameShell_Progress ( ByRef Progress som LameProgress ) _Handles _lameShell.ProgressIf pBar.Maximum < ; > Progress.FrameMax ThenpBar.Value = 0pBar.Maximum = Progress.FrameMaxElsepBar.Value = Progress.FrameCurrentEnd IflblFeedback.Text = Progress.PercentDone & " % " & " ETA : " & Progress.ETAEnd sub
4
Högerklicka på projektet och välj " ny klass " för att skapa en ny klass " Lame.vb. " Skapa en ny variabel ProcessStartInfo : Privat _startInfo som ny ProcessStartInfo_startInfo.FileName = " lame . exe " _startInfo.UseShellExecute = False_startInfo.RedirectStandardOutput = True_startInfo.RedirectStandardError = True_startInfo.CreateNoWindow = Sant
5
Skapa en läsare för att hålla produktionen av LAME.EXE : Private Sub LameReader ( ) Dim OneLine som String_lameProcess.Start ( ) OneLine = _lameProcess.StandardError.ReadLine ( ) Även om inte OneLine Är NothingoneLine = _lameProcess.StandardError.ReadLine ( ) End Sub WhileEnd
