Hvordan bruke LAME i Visual Basic

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 dette IDE. VB er et objektorientert programmeringsspråk, som er mye brukt for å lage Windows-programmer, nettverk program eller web service applikasjoner. Med VB.NET, kan du også kode mp3-filer. Utgangen vil være 32-bit kodet MP3.

Bruksanvisning

1 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 programtypen. Skriv inn et navn for prosjektet. Angi en plassering for prosjektfiler.

2 Dobbeltklikk på 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 hendelseshåndterere vise koding fremgang:
Private Sub _lameShell

Progress (ByRef Progress As LameProgress)

Handles _lameShell.Progress

Hvis pBar.Maximum <> Progress.FrameMax Deretter

pBar.Value = 0
pBar.Maximum = Progress.FrameMax
Else
pBar.Value = Progress.FrameCurrent
End If
lblFeedback.Text = Progress.PercentDone & "%" & " ETA:" & Progress.ETA

End Sub

4 Høyreklikk på prosjektet og velg "New Class" for å opprette en ny klasse "Lame.vb." Opprett en ny variabel ProcessStartInfo:
Private _startInfo som ny ProcessStartInfo
_startInfo.FileName = "lame.exe"
_startInfo.UseShellExecute = False
_startInfo.RedirectStandardOutput = True
_startInfo.RedirectStandardError = True
_startInfo.CreateNoWindow = True

5 Lag en Reader for å holde produksjonen av lame.exe:
Private Sub LameReader ()

Dim oneLine As String
_lameProcess.Start()
oneLine = _lameProcess.StandardError.ReadLine()
While Not oneLine Is Nothing
oneLine = _lameProcess.StandardError.ReadLine()
End While

End Sub