FAZER UM LOOP NO CODIGO

GEORGEDUT 22/01/2016 12:24:32
#456387
Seguinte pessoal o código abaixo insere uma musica de cada pasta em uma playlist , porem preciso que ela fique inserindo musicas continuamente tipo um loop. Isso é possível?

  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 toca As New List(Of String)


        toca.Add(SortearMusica(jingle))
        toca.Add(SortearMusica(chamada))
        toca.Add(SortearMusica(portadeloja))
        toca.Add(SortearMusica(sertanejo))
        toca.Add(SortearMusica(internacional))
        toca.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 toca.Count - 1
            newPlayList.appendItem(media.newMedia(toca(x)))
        Next
ACCIOLLY 22/01/2016 13:21:03
#456389
vc quer dizer um loop infinito?
o problema é que dependendo de como você faz vai travar a aplicação. O que posso te sugerir é dar uma estudada em Threads. Eu nunca estudei elas na linguagem VB.Net mas sei que existe. Dá uma olhada nesse tutorial do macorrati:

http://www.macoratti.net/vbn_thd1.htm
GEORGEDUT 22/01/2016 16:31:28
#456396
Citação:

:
vc quer dizer um loop infinito?
o problema é que dependendo de como você faz vai travar a aplicação. O que posso te sugerir é dar uma estudada em Threads. Eu nunca estudei elas na linguagem VB.Net mas sei que existe. Dá uma olhada nesse tutorial do macorrati:

http://www.macoratti.net/vbn_thd1.htm



não rolou rsrssrs tem q ser automatizado isso
ACCIOLLY 22/01/2016 18:55:02
#456408
Não entendi sua colocação quanto ao automatizado. Mas saiba que um loop infinito vai rodar até que vc faça parar. Portanto nada é automatizado.
A unica coisa que vc pode fazer é colocar essa sua codificação dentro de um Timer
Faça seu login para responder
Voltar