none
Erro no meu código RRS feed

  • Discussão Geral

  • Pessoal consegui fazer o programa puxar musicas aleatorias das pastas, porem agora não consigo fazer o player rodar isso em loop kkkkkkkkkk help me plz

    Código

    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
        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:\radioitapua\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:\radioitapua\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:\radioitapua\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:\radioitapua\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:\radioitapua\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:\radioitapua\Musicas\Nacional\", FileIO.SearchOption.SearchAllSubDirectories, "*.mp3")
                ReDim Preserve mnacional(idx6)
                mnacional(idx6) = Fich
                idx6 = idx6 + 1
            Next
            sorte6 = Rand(0, idx6 - 1)

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

           media.URL = ODF,ODF1,ODF2,ODF3,ODF4,ODF5

        End Sub


    End Class


    • Editado George Dutcovsky segunda-feira, 18 de janeiro de 2016 17:08
    • Tipo Alterado Marcos SJ segunda-feira, 18 de janeiro de 2016 19:58 Todas as threads de "How to" serão modificadas para discussão geral. O fórum não presta suporte a questões/ situações de "How to".
    segunda-feira, 18 de janeiro de 2016 16:54

Todas as Respostas

  • Boa tarde George Dutcovsky,

    Tudo bem?

    Qual seria o erro que o sistema/código está apresentando?


    Marcos Roberto de Souza Junior

    Esse conteúdo e fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    segunda-feira, 18 de janeiro de 2016 19:02

  • Boa tarde Marcos,

    Cara preciso executar uma playlist com as variaveis ODF até ODF5 e gerar um loop nisso. não sei como fazer isso ja tentei de td. so roda uma musica e para. 

    Esqueci de falar o meu axwindowsmediaplayer1 e o player para rodar esta playlist.

    Marcos oque faço hoje é isso

    '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

    porem ele roda uma sequencia e repete tudo denovo, quero q ele inicie uma sequencia de musicas novas

    Obrigado Abs



    segunda-feira, 18 de janeiro de 2016 19:33