C# / VB.NET - [VB.NET] carica lista canzoni in mediaplayer

Forum - C# / VB.NET - [VB.NET] carica lista canzoni in mediaplayer

pedro8a (Normal User)
Newbie

Messaggi: 1
Iscritto: 21/12/2011

Postato alle 11:27
Mercoledì, 21/12/2011

Ciao a tutti,
complimenti per il sito e il forum, moooolto bello e utile.

Ma veniamo al problema:

sono riuscito a leggere tutti i file audio da una cartella.
Ora però, vorrei farli caricare e suonare tutti in media player (ovviamente uno per volta e all'ultimo brano dovrebbe ricominciare).
Ho letto e riletto e preso esempi ma non ci riesco....
Un aiutino???

Dim Files() As String
'Per avere informazioni sui file
Dim f As FileInfo
Dim Cartella As String = Application.StartupPath & "\Musica"

Files = Directory.GetFiles(Cartella)
For Each sFile As String In Files
f = New FileInfo(sFile)
TextBox1.Text = TextBox1.Text & " " & f.Name
WMP.URL = Cartella & "\" & f.Name

Next
WMP.Ctlcontrols.play()

GN (Member)
Guru

Messaggi: 772
Iscritto: 30/04/2011

Postato alle 21:39
Mercoledì, 21/12/2011

Il problema è che con quel sorgente imposti la url del lettore per ogni file e poi avvii la riproduzione, quindi avvii l'ultimo (cioè, mettiamo che gli url dei files siano x, y e z: il ciclo imposta come url x, poi y, e poi z, quindi avvia la riproduzione: verrà riprodotto solo z). Dovresti caricare solo il primo url, poi, quando la riproduzione del primo file è finita, caricare il secondo e così via. Ora, io non so quale sia l'evento del controllo windows media player che viene scatenato alla fine della riproduzione poichè per la multimedialità ho sempre usato DirectX, quindi prova a guardare la documentazione: sicuramente ci sarà questo evento, a cui dovrai associare l'avvio del prossimo file. Ti scrivo un po' di codice di esempio:

Codice sorgente - presumibilmente VB.NET

'fuori da ogni sub o function (variabili globali):
Dim files() As String 'lista dei files
Dim NowPlaying as Integer 'id del file correntemente in riproduzione
 
'nella sub di caricamento dei files (es. Form_Load):
Dim Files() As String
Dim Cartella As String = Application.StartupPath & "\Musica"
Files = Directory.GetFiles(Cartella)
NowPlaying = 0
 
'nella sub di avvio riproduzione (evento tasto play):
Play()
 
'nell'evento di fine brano:
If NowPlaying = files.Count - 1 Then 'se il contatore è all'ultimo brano
 NowPlayIng = 0 'allora lo azzera
Else 'altrimenti
 NowPlaying +=1 'lo incrementa di uno
End If
Play()
 
'sub di riproduzione:
Sub Play()
 Dim f As FileInfo 
 f = New FileInfo(files(NowPlaying))
 TextBox1.Text = TextBox1.Text & " " & f.Name
 WMP.URL = Cartella & "\" & f.Name 
End Sub

P.S.: quando scrivi codice, usa il tag code, così verra evidenziato.

Ultima modifica effettuata da GN il 21/12/2011 alle 21:41

NR2 (Normal User)
Newbie

Messaggi: 18
Iscritto: 26/06/2010

Postato alle 14:16
Venerdì, 30/12/2011

se ho capito bene tu vuoi aprire tutti i file musicali di una cartella in una list box e poi eseguirli uno ad uno in mediaplayer.

per aprire tutti i file di una cartella e inserirli in una listbox prima di tutto vai in cima al codice sopra pubblic class form1 e scrivi:

Codice sorgente - presumibilmente C# / VB.NET

imports system.io

in un button che servira per aprire la cartella dove prendere i file audio scrivi il seguente codice:

Codice sorgente - presumibilmente Delphi

'crea una finestra di dialogo per aprire la cartella che contiene i file audio
 
        Dim cartella As New FolderBrowserDialog
        'crea array
        Dim canzoni() As String
        'nasconde il button per creare una nuocva cartella
        cartella.ShowNewFolderButton = False
        'apre la finestra di dialog dove dovra essere selezionata la cartella
        cartella.ShowDialog()
        'preleva i file dalla cartella impostata e li mette nella array canzoni
        canzoni = Directory.GetFiles(cartella.SelectedPath)
        'esegue il ciclo per inserire tutti i file presenti in canzoni nella listbox
        For Each canzone As String In canzoni
            ListBox1.Items.Add(canzone)
        Next

ora per avviare le canzoni clicca 2 volte sulla listbox e inserisci il codice che segue

Codice sorgente - presumibilmente VB.NET

Try
            AxWindowsMediaPlayer1.URL = ListBox1.Text
        Catch ex As Exception
 
        End Try

ok ora aggiungi un timer che servirà per mandare avanti le canzoni una volta finite nelle proprietà a enabled metti true e inserisci il codice sotto

Codice sorgente - presumibilmente VB.NET

'se mediaplayer si stoppa
        If AxWindowsMediaPlayer1.playState = WMPLib.WMPPlayState.wmppsStopped Then
            'allora
            Try
                'vai avanti
                ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
            Catch ex As Exception
                'se non puoi andare avanti torna da capo
                ListBox1.SelectedIndex = 0
            End Try
        End If

adesso puoi aggiungere 2 button un button di nome "Avanti" e un button di nome "Indietro"
nel button "Avanti" che serve per mandare avanti la canzone scrivi

Codice sorgente - presumibilmente VB.NET

Try
            'vai alla prossima canzone
            ListBox1.SelectedIndex = ListBox1.SelectedIndex + 1
        Catch ex As Exception
            'se non puoi andare alla prossima canzone torna da capo
            ListBox1.SelectedIndex = 0
        End Try

e nel button "Indietro" scrivi

Codice sorgente - presumibilmente VB.NET

Dim x As Integer = ListBox1.Items.Count
        Try
            'vai indietro di una canzone
            ListBox1.SelectedIndex = ListBox1.SelectedIndex - 1
        Catch ex As Exception
            'se non puoi andare indietro vai a l'ultima canzone
            ListBox1.SelectedIndex = x - 1
        End Try

spero di esserti stato utile

Ultima modifica effettuata da NR2 il 30/12/2011 alle 14:20