ERRO NO CODIGO

GEORGEDUT 18/01/2016 17:00:51
#456247

Pessoal estou com erro la no final não consigo executar o final do código que Ã© executar um play no media player com as variaveis ODF atÃ© ODF5 e dar um loop.

  Public Class Form1
    Public idx As Integer = 0
    Public jingles() As String
    Public chamadas() As String
    Public portadeloja() As String
    Public mnacional() As String
    Public minternacional() As String
    Public msertanejo() As String
    Public sorte1 As Integer
    Public sorte2 As Integer
    Public sorte3 As Integer
    Public sorte4 As Integer
    Public sorte5 As Integer
    Public sorte6 As Integer
    Public Carregar As Object
    Private _random As String
    Dim songs As Object

    Public Function Rand(ByVal Low As Long, _
                  ByVal High As Long) As Long
        Randomize()
        Rand = Int((High - Low + 1) * Rnd()) + Low
    End Function
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim idx1, idx2, idx3, idx4, idx5, idx6 As String
        For Each Fich As String In FileIO.FileSystem.GetFiles([Ã”]c:adioitapua\Jingles\[Ã”], FileIO.SearchOption.SearchAllSubDirectories, [Ã”]*.mp3[Ã”])
            ReDim Preserve jingles(idx1)
            jingles(idx1) = Fich
            idx1 = idx1 + 1
        Next
        sorte1 = Rand(0, idx1 - 1)

        For Each Fich As String In FileIO.FileSystem.GetFiles([Ã”]c:adioitapua\Chamadas\[Ã”], FileIO.SearchOption.SearchAllSubDirectories, [Ã”]*.mp3[Ã”])
            ReDim Preserve chamadas(idx2)
            chamadas(idx2) = Fich
            idx2 = idx2 + 1
        Next
        sorte2 = Rand(0, idx2 - 1)

        For Each Fich As String In FileIO.FileSystem.GetFiles([Ã”]c:adioitapua\Portadeloja\[Ã”], FileIO.SearchOption.SearchAllSubDirectories, [Ã”]*.mp3[Ã”])
            ReDim Preserve portadeloja(idx3)
            portadeloja(idx3) = Fich
            idx3 = idx3 + 1
        Next
        sorte3 = Rand(0, idx3 - 1)

        For Each Fich As String In FileIO.FileSystem.GetFiles([Ã”]c:adioitapua\Musicas\Sertanejo\[Ã”], FileIO.SearchOption.SearchAllSubDirectories, [Ã”]*.mp3[Ã”])
            ReDim Preserve msertanejo(idx4)
            msertanejo(idx4) = Fich
            idx4 = idx4 + 1
        Next
        sorte4 = Rand(0, idx4 - 1)

        For Each Fich As String In FileIO.FileSystem.GetFiles([Ã”]c:adioitapua\Musicas\Internacional\[Ã”], FileIO.SearchOption.SearchAllSubDirectories, [Ã”]*.mp3[Ã”])
            ReDim Preserve minternacional(idx5)
            minternacional(idx5) = Fich
            idx5 = idx5 + 1
        Next
        sorte5 = Rand(0, idx5 - 1)

        For Each Fich As String In FileIO.FileSystem.GetFiles([Ã”]c:adioitapua\Musicas\Nacional\[Ã”], FileIO.SearchOption.SearchAllSubDirectories, [Ã”]*.mp3[Ã”])
            ReDim Preserve mnacional(idx6)
            mnacional(idx6) = Fich
            idx6 = idx6 + 1
        Next
        sorte6 = Rand(0, idx6 - 1)

        Dim ODF, ODF1, ODF2, ODF3, ODF4, ODF5 As String
        ODF = jingles(sorte1)
        ODF1 = chamadas(sorte2)
        ODF2 = portadeloja(sorte3)
        ODF3 = msertanejo(sorte4)
        ODF4 = minternacional(sorte5)
        ODF5 = mnacional(sorte6)


    End Sub

    
End Class

JABA 18/01/2016 19:28:09
#456248 Resposta escolhida

Tira um printScreen com o erro e coloque-o aqui.

OBS: Seu codigo está extremamente repetitivo.

JABA 18/01/2016 20:21:10
#456249

Public Function GetArquivos(caminho 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(caminho, 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

[Ã´]Para usar 

        Dim ODF, ODF1, ODF2, ODF3, ODF4, ODF5 As String
        Dim lista1 As List(Of String) = GetArquivos([Ã”]c:adioitapua\Chamadas\[Ã”], [Ã”]*.mp3[Ã”])
        Dim lista2 As List(Of String) = GetArquivos([Ã”]c:adioitapua\Jingles\[Ã”], [Ã”]*.mp3[Ã”])
        Dim lista3 As List(Of String) = GetArquivos([Ã”]c:adioitapua\Portadeloja\[Ã”], [Ã”]*.mp3[Ã”])

        ODF = SortearMusica(lista1)
        ODF1 = SortearMusica(lista2)
        ODF2 = SortearMusica(lista3)
        [Ã´]etc

GEORGEDUT 19/01/2016 12:26:54
#456258

Nossa amigo obrigado rsrsrs , sou meio virgem em .net ainda rsrsrsrs

mais minha grande duvida e como fazer o media player tocar isso sem ficar repetindo a playlist

Vlw obrigado mesmo

GEORGEDUT 19/01/2016 12:59:47
#456259

Citação:

Public Function GetArquivos(caminho 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(caminho, 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

[Ã´]Para usar 

        Dim ODF, ODF1, ODF2, ODF3, ODF4, ODF5 As String
        Dim lista1 As List(Of String) = GetArquivos([Ã”]c:
adioitapuaChamadas[Ã”], [Ã”]*.mp3[Ã”])
        Dim lista2 As List(Of String) = GetArquivos([Ã”]c:
adioitapuaJingles[Ã”], [Ã”]*.mp3[Ã”])
        Dim lista3 As List(Of String) = GetArquivos([Ã”]c:
adioitapuaPortadeloja[Ã”], [Ã”]*.mp3[Ã”])

        ODF = SortearMusica(lista1)
        ODF1 = SortearMusica(lista2)
        ODF2 = SortearMusica(lista3)
        [Ã´]etc

ta dando erro na
Dim lista As New List(Of String)
For Each t As String In FileIO.FileSystem.GetFiles(caminho, FileIO.SearchOption.SearchAllSubDirectories, tipo) <<===== erro na variavel do caminho

JABA 19/01/2016 13:38:52
#456260

Você tem que passar um caminho existente ali e que contenha os arquivos mp3, não cheguei a tratar isso. Aqui no meu caso, passei uma pasta do meu disco que tenham as mÃºsicas e funcionou perfeitamente.

GEORGEDUT 19/01/2016 13:56:37
#456261

Citação:
:
Você tem que passar um caminho existente ali e que contenha os arquivos mp3, não cheguei a tratar isso. Aqui no meu caso, passei uma pasta do meu disco que tenham as mÃºsicas e funcionou perfeitamente.

cara meu play so toca uma vez a sequencia ele não puxa uma nova atomaticamente

cria a playlist
Dim newPlayList As WMPLib.IWMPPlaylist = media.playlistCollection.newPlaylist([Ã”]soundsToPlay[Ã”])
newPlayList.appendItem(media.newMedia(ODF))
newPlayList.appendItem(media.newMedia(ODF1))
newPlayList.appendItem(media.newMedia(ODF2))
newPlayList.appendItem(media.newMedia(ODF3))
newPlayList.appendItem(media.newMedia(ODF4))
newPlayList.appendItem(media.newMedia(ODF5))
[Ã´]inicia playlist
media.Visible = True
media.currentPlaylist = newPlayList
media.stretchToFit = True

JABA 19/01/2016 14:34:21
#456263

Cara, tudo o que eu fiz foi jogar as musicas que estao no disco numa lista e pegar uma delas aleatoriamente para ser executada.
Você pode criar uma nova lista e jogar todas as musicas sorteadas dentro. Assim Ã© só usar essa lista como sua sequencia de musicas.

GEORGEDUT 19/01/2016 14:43:44
#456264

Citação:
:
Cara, tudo o que eu fiz foi jogar as musicas que estao no disco numa lista e pegar uma delas aleatoriamente para ser executada.
Você pode criar uma nova lista e jogar todas as musicas sorteadas dentro. Assim Ã© só usar essa lista como sua sequencia de musicas.

Não entendi kkkkkkkkkkkkkk eu so virgem mesmo neste quesito rsrsrsrsrs desculpa
oque eu quero na realidade e que ele renove a sequencia de musicas a cada termino de execução da lista

JABA 19/01/2016 15:05:43
#456265

Citação:
Dim newPlayList As WMPLib.IWMPPlaylist = media.playlistCollection.newPlaylist([Ã”]soundsToPlay[Ã”])
newPlayList.appendItem(media.newMedia(ODF))
newPlayList.appendItem(media.newMedia(ODF1))
newPlayList.appendItem(media.newMedia(ODF2))
newPlayList.appendItem(media.newMedia(ODF3))
newPlayList.appendItem(media.newMedia(ODF4))
newPlayList.appendItem(media.newMedia(ODF5))

Ao termino da ultima musica, Ã© só você gerar uma nova listagem de musicas, conforme já vinha fazendo. Nem precisa ficar criando variáveis para atribuir valor as musicas, você pode fazer isso diretamente com a lista, por exemplo:

 Dim newPlayList As WMPLib.IWMPPlaylist = media.playlistCollection.newPlaylist([Ã”]soundsToPlay[Ã”])
        newPlayList.appendItem(media.newMedia([txt-color=#e80000]lista1(0))[/txt-color])
        newPlayList.appendItem(media.newMedia([txt-color=#e80000]lista1(1))[/txt-color])
        newPlayList.appendItem(media.newMedia([txt-color=#e80000]lista1(2))[/txt-color])
        newPlayList.appendItem(media.newMedia([txt-color=#e80000]lista1(3))[/txt-color])
        newPlayList.appendItem(media.newMedia([txt-color=#e80000]lista1(4))[/txt-color])
        newPlayList.appendItem(media.newMedia([txt-color=#e80000]lista1(5))[/txt-color])

Que poderia ser convertida para:

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

For x as integer = 0 to lista1.Count-1
  newPlayList.appendItem(media.newMedia([txt-color=#e80000]lista1(x))[/txt-color])
Next

GEORGEDUT 19/01/2016 15:54:41
#456266

Citação:
:
Dim newPlayList As WMPLib.IWMPPlaylist = media.playlistCollection.newPlaylist([Ã”]soundsToPlay[Ã”])
newPlayList.appendItem(media.newMedia(ODF))
newPlayList.appendItem(media.newMedia(ODF1))
newPlayList.appendItem(media.newMedia(ODF2))
newPlayList.appendItem(media.newMedia(ODF3))
newPlayList.appendItem(media.newMedia(ODF4))
newPlayList.appendItem(media.newMedia(ODF5))

Ao termino da ultima musica, Ã© só você gerar uma nova listagem de musicas, conforme já vinha fazendo. Nem precisa ficar criando variáveis para atribuir valor as musicas, você pode fazer isso diretamente com a lista, por exemplo:
 Dim newPlayList As WMPLib.IWMPPlaylist = media.playlistCollection.newPlaylist([Ã”]soundsToPlay[Ã”])
        newPlayList.appendItem(media.newMedia([txt-color=#e80000]lista1(0))[/txt-color])
        newPlayList.appendItem(media.newMedia([txt-color=#e80000]lista1(1))[/txt-color])
        newPlayList.appendItem(media.newMedia([txt-color=#e80000]lista1(2))[/txt-color])
        newPlayList.appendItem(media.newMedia([txt-color=#e80000]lista1(3))[/txt-color])
        newPlayList.appendItem(media.newMedia([txt-color=#e80000]lista1(4))[/txt-color])
        newPlayList.appendItem(media.newMedia([txt-color=#e80000]lista1(5))[/txt-color])
Que poderia ser convertida para:
Dim newPlayList As WMPLib.IWMPPlaylist = media.playlistCollection.newPlaylist([Ã”]soundsToPlay[Ã”])

For x as integer = 0 to lista1.Count-1
  newPlayList.appendItem(media.newMedia([txt-color=#e80000]lista1(x))[/txt-color])
Next

Cara agradeço muito a sua ajuda atÃ© agora foi muito Ãºtil porem não cheguei no meu objetico que Ã© faezr td isso automatico e sem parar

playlist seguimentada aleatória
sempre renovando os arquivos
se vc souber como me ajudar agradeço

Página 1 de 2 [17 registro(s)]

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

Voltar