LAME er et bibliotek som lar programmerere å kode MP3-filer. LAME er åpen kildekode og du kan laste den ned gratis . Den nyttige filen er " LameLib " eller " libmp3lame.dylib . " Visual Studio er et Microsoft integrert utviklingsmiljø . Du kan bruke Visual Basic, C + + eller C # med denne IDE . VB er et objektorientert programmeringsspråk, som er mye brukt for å lage Windows-programmer , nettverk søknad eller webtjeneste applikasjoner. Med VB.NET , kan du også kode mp3-filer. Utgangen vil være 32 -bit kodet MP3. Instruksjoner
en
Klikk "Start", velg " Alle programmer " og velg " Visual Studio. " Klikk "Ny" og velg "Project " for å opprette et nytt prosjekt . Velg " Visual Studio" som programmeringsspråk og "Windows Application " som programmet type. Skriv inn et navn for prosjektet. Angi en plassering for prosjektet filer.
2
Dobbeltklikk form1.vb . Oppgi banen til lame.exe via kode : Dim WithEvents _lameShell som ny LameShell_lameShell.InFile = Application.StartupPath & " \\ input.mp3 " _lameShell.OutFile = Application.StartupPath & " \\ output.mp3 " _lameShell.Options = " -b 32 " _lameShell.Start ( )
3
Legg hendelse Handlers å vise koding fremgang : 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øyreklikk på prosjektet og velg "New Class " for å opprette en ny klasse " Lame.vb. " Opprett 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
Opprett en Reader for å holde produksjonen av lame.exe : Private Sub LameReader ( ) Dim oneLine As String_lameProcess.Start ( ) oneLine = _lameProcess.StandardError.ReadLine ( ) Mens Ikke oneLine Er NothingoneLine = _lameProcess.StandardError.ReadLine ( ) End WhileEnd Sub
