Ako používať LAME v jazyku Visual Basic

LAME je knižnica , ktorá umožňuje programátorom kódovanie MP3 súborov . LAME je open source a môžete si ju zadarmo stiahnuť . Užitočné súbor je " LameLib " alebo " libmp3lame.dylib . " Visual Studio je integrované vývojové prostredie Microsoft . Môžete použiť Visual Basic , C + + alebo C # s týmto IDE . VB je objektovo orientovaný programovací jazyk , ktorý je široko používaný pre vytváranie okna aplikácie , sieťové aplikácie alebo aplikácie , webové služby . S VB.NET , môžete tiež zakódovať súbory MP3 . Výstupom bude 32 - bit kódované MP3 . Návod dovolená 1

Kliknite na tlačidlo " Štart " , vyberte " Všetky programy " a vyberte " Visual Studio . " Kliknite na tlačidlo " Nový" a zvoľte " projekt " pre vytvorenie nového projektu . Vyberte " Visual Studio " ako programovací jazyk a " Windows aplikácie " ako typ aplikácie . Zadajte názov projektu . Zadajte umiestnenie pre súbory projektu .
2

Dvakrát kliknite Form1.vb . Zadať cestu k lame.exe pomocou kódu : Dim WithEvents _lameShell Ako nové LameShell_lameShell.InFile = Application.StartupPath & " \\ input.mp3 " _lameShell.OutFile = Application.StartupPath & " \\ output.mp3 " _lameShell.Options = " - b 32 " _lameShell.Start ( )
3

Pridať obslužných rutín udalostí zobraziť priebeh kódovanie : Private Sub _lameShell_Progress ( ByRef Progress Ako LameProgress ) _Handles _lameShell.ProgressIf pBar.Maximum < ; > Progress.FrameMax ThenpBar.Value = 0pBar.Maximum = Progress.FrameMaxElsepBar.Value = Progress.FrameCurrentEnd IflblFeedback.Text = Progress.PercentDone & " % " a " ETA " a Progress.ETAEnd sub
4

pravým tlačidlom myši na projekt a vyberte možnosť " Nová trieda " vytvoriť novú triedu " Lame.vb. " Vytvoriť novú premennú ProcessStartInfo : Súkromná _startInfo ako New ProcessStartInfo_startInfo.FileName = " lame . exe " _startInfo.UseShellExecute = False_startInfo.RedirectStandardOutput = True_startInfo.RedirectStandardError = True_startInfo.CreateNoWindow = TRUE
5

Vytvorte Reader , aby výstup lame.exe : Private Sub LameReader ( ) Dim oneline ako String_lameProcess.Start ( ) oneline = _lameProcess.StandardError.ReadLine ( ) Aj keď nie je oneline Je NothingoneLine = _lameProcess.StandardError.ReadLine ( ) End Sub WhileEnd

• Predchádzajúca strana: Výhody sekvenčné Prístup k súborom 
• Ďalšia strana: Ako upraviť položky v listbox s Visual Basic 2008