MusicBoxCenter

[Marc DANIEL]

Here's the new version of "MusicBoxCenter" which will allow you to:
1- Create a folder for external storage
2- Upload 14 music files or videos to it
3- Record voice and audio using your smartphone's microphone and save them to external storage.

The application's internal music player recognizes and plays AAC, FLAC, MKV, MP3, MP4, and WAV files.

For files that are not supported (MID, MIDI) , you will be prompted to select your own applications (if any) to play them.

Download files >>> B4A files - APK file​

 

[Marc DANIEL]

Two screenshots with the "MusicBoxCenter" page and the "Sound Recorder" page
​

 

[Marc DANIEL]

Please note that an antivirus or VPN installed on your device may block the download of music files and generate an error message or cause the application to crash.

 

[f0raster0]

apk,tested in Andrid14! worked perfect

 

[Marc DANIEL]

Disclaimer: I must humbly admit that I was unable to configure the dimensions and location of CLV1 (CustomListView) in the general "Music" Designer script because nothing matched my requirements. So, I just defined it in a simple way by adapting it to my own Smartphone.

Problem solved >>>

'All variants script
'AutoScaleAll
W = 100%x
H = 100%y
Entete1.Left = 5
Entete1.Width = W - 10
Entete1.Height = H/15
Record.Top = Entete1.bottom + 10
Record.Left = 5
Record.Width = W - 10
Record.Height = H/20
FileList.Top = Record.bottom + 10
FileList.Left = 5
FileList.Width = W/2 - 15
FileList.Height = H/15
HideList.Top = Record.bottom + 10
HideList.Left = FileList.Right + 5
HideList.Width = W/2 - 15
HideList.Height = H/15
JukeBox.Top = FileList.Bottom + 10
JukeBox.Left = 5
JukeBox.Width = W - 20
JukeBox.Height = H/3
MusicTitle.Top = JukeBox.Bottom
MusicTitle.Left = 5
MusicTitle.Width = W-10
MusicTitle.Height = H/16
PlayALL.Top = JukeBox.Bottom + 5
PlayALL.Left = 5
PlayALL.Width = W - 10
PlayALL.Height = H/15
CLV1.Top = MusicTitle.Bottom + 20
CLV1.Height = H/2.6
CLV1.Bottom = H
CLV1.Width = W
CLV1.Left = 0

 

[Marc DANIEL]

French version >>> version française

Téléchargement des fichiers: Fichiers B4A - Fichier APK​

 

[Marc DANIEL]

Hello everyone. I've added a "Play Entire Playlist" feature to my app.

Only "accepted" music files will be played. A "MID" file won't cause an error but will block the player. In this case, simply move on to the next file on the player.

The download files have been updated. See the links above.​

 

[Marc DANIEL]

Private Sub PlayALL_Click
    Msgbox2Async("Do you really want to listen to the entire recorded list?", "Listen to the list", "Yes", "", "No", Null, True)
    Wait For Msgbox_Result (Result As Int)
    If Result=DialogResponse.POSITIVE Then
        PlayALL.Visible=False
        Player1.Initialize("Player")
        Dim Sources As List
        Sources.Initialize
        For nf = 0 To ListSongName.Size -1
            SongName = ListSongName.Get(nf)
            Storage.FindFile(Storage.Root,SongName)
            If File.Exists(File.DirInternal, SongName) = False Then
                Dim iStream As InputStream, oStream As OutputStream
                Dim oFile As ExternalFile
                oFile = Storage.FindFileOrCreate(Storage.Root, SongName)
                If oFile.IsInitialized Then
                    iStream = Storage.OpenInputStream(oFile)
                    oStream = File.OpenOutput(File.DirInternal, SongName, False)
                    File.copy2(iStream, oStream)
                    iStream.Close
                    oStream.Close
                End If
            End If
            Sources.Add(Player1.CreateFileSource(File.DirInternal,SongName))
        Next
        Player1.Prepare(Player1.CreateListSource(Sources))
        JukeBox.Player = Player1
        Player1.Play
        MusicTitle.Text = "You are currently listening to the entire" & CRLF & "PLAYLIST saved in the folder you created !"
    End If
End Sub

Of course, the application will play all the music files that you may have manually added yourself to the folder you initially created. So these added files will be part of the PlayList