PLAYLIST AUTOMATICA

GEORGEDUT 21/01/2016 16:55:58
#456359
Pessoal tive uma ajuda aqui do forum já do nosso amigo JABA, porem não consegui terminar o código
o problema esta em finalizar o play q toca uma sequencia de 5 musicas e iniciar td de novo com novas musicas segue meu codigo

Module
  Imports System.IO
Module Module1
    Public Function GetArquivos(pasta As String, tipo As String) As List(Of String)

        Dim lista As New List(Of String)
        For Each t As String In FileIO.FileSystem.GetFiles(pasta, FileIO.SearchOption.SearchAllSubDirectories, tipo)
            lista.Add(t)
        Next
        Return lista
    End Function
    Public Function SortearMusica(lista As List(Of String)) As String
        If lista.Count > 0 Then
            Threading.Thread.Sleep(25)
            Randomize()
            Dim rnd As New Random
            Return lista(rnd.Next(0, lista.Count - 1))
        End If
        Return Nothing
    End Function


End Module


Form
  Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    

        Dim jingle As List(Of String) = GetArquivos([Ô]c:adioitapua\Jingles\[Ô], [Ô]*.mp3[Ô])
        Dim chamada As List(Of String) = GetArquivos([Ô]c:adioitapua\Chamadas\[Ô], [Ô]*.mp3[Ô])
        Dim portadeloja As List(Of String) = GetArquivos([Ô]c:adioitapua\Portadeloja\[Ô], [Ô]*.mp3[Ô])
        Dim sertanejo As List(Of String) = GetArquivos([Ô]c:adioitapua\Musicas\Sertanejo\[Ô], [Ô]*.mp3[Ô])
        Dim internacional As List(Of String) = GetArquivos([Ô]c:adioitapua\Musicas\Internacional\[Ô], [Ô]*.mp3[Ô])
        Dim nacional As List(Of String) = GetArquivos([Ô]c:adioitapua\Musicas\Nacional\[Ô], [Ô]*.mp3[Ô])

        Dim novaLista As New List(Of String)

        novaLista.Add(SortearMusica(jingle))
        novaLista.Add(SortearMusica(chamada))
        novaLista.Add(SortearMusica(portadeloja))
        novaLista.Add(SortearMusica(sertanejo))
        novaLista.Add(SortearMusica(internacional))
        novaLista.Add(SortearMusica(nacional))

        Dim newPlayList As WMPLib.IWMPPlaylist = media.playlistCollection.newPlaylist([Ô]soundsToPlay[Ô])

        [ô]Antes de adicionar essas musicas, acho que você teria que limpar sua playlistCollection. Talvez seja algo assim newPlayList.Clear()

        For x As Integer = 0 To novaLista.Count - 1
            newPlayList.appendItem(media.newMedia(novaLista(x)))
        Next

        media.currentPlaylist = newPlayList


    End Sub
End Class
JABA 21/01/2016 17:09:59
#456364
Pra limpar acho que é assim:

media.playlistCollection.remove([Ô]soundsToPlay[Ô])
GEORGEDUT 21/01/2016 17:14:48
#456365
Citação:

:
Pra limpar acho que é assim:

media.playlistCollection.remove([Ô]soundsToPlay[Ô])



e como fazer isso em loop está é minha duvida, pq como vc viu eu executo direto a radio no form e o intuito é não ter intervenção manual..


Obrigado
JABA 21/01/2016 17:20:14
#456367 Resposta escolhida
Pra manter a lista em loop, creio que seja assim:

media.settings.autoStart = true
GEORGEDUT 21/01/2016 17:28:02
#456369
Citação:

:
Pra manter a lista em loop, creio que seja assim:

media.settings.autoStart = true



kkkkkkkkkkk meu eu to boiando seria então um timer a cada 6 segundos ou eu não estou entendendo mais nada kkkkkkkkkkk


  
no form
media.settings.autoStart = true
media.currentplaylist = newPlaylist

no timer
if tocador then 
media.playState.wmppsStopped 

Else

media.playlistCollection.remove([Ô]soundsToPlay[Ô])

end if


Tópico encerrado , respostas não são mais permitidas
Voltar