B4A - MP3 Player Sederhana dengan MFLib Library

1. Buatlah sebuah Project baru
2. Buatlah satu Layout dan simpan dengan nama Main
3. Dalam Layout tersebut, tambahkan 1 ListView
4. Pilih MFLib pada Library Manager
4. Simpan file musik (.mp3) ke dalam folder /sdcard/Music
5. Ketik kode berikut ke dalam Main

Sub Globals
Dim MF_File As MF_File
Dim ListView1 As ListView
Dim Line As String
Dim Putar As MediaPlayer
End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Main")
Activity.AddMenuItem("Play", "Play")
Activity.AddMenuItem("Pause", "Pause")
Activity.AddMenuItem("Stop", "Stop")
Putar.Initialize2("Putar")

File.WriteList("/sdcard/Music", "daftar.txt", MF_File.ListFiles("/sdcard/Music", "*.mp3", False, True))

Dim BacaText As TextReader
BacaText.Initialize(File.OpenInput("/sdcard/Music", "daftar.txt"))
ListView1.Clear
Line = BacaText.ReadLine
ListView1.AddSingleLine(Line)
Do While Line <> Null                
Line = BacaText.ReadLine
ListView1.AddSingleLine(Line)
Loop
BacaText.Close
End Sub

Sub ListView1_ItemClick (Position As Int, Value As Object)
Putar.Stop
Putar.Load("/sdcard/Music", ListView1.GetItem(Position))
Putar.Play
End Sub

Sub Play_Click
Putar.Play
End Sub

Sub Pause_Click
Putar.Pause
End Sub

Sub Stop_Click
Putar.Stop
End Sub

4. Jalankan aplikasinya atau tekan F5 di keyboard
5. Berikut adalah hasilnya