Playing multiple files from array

[marvinbek]

I'm trying to make a "Simon" game with four buttons labeled 1-4. The game is supposed to read the numbers out loud, but i have a problem with that. I have 4 wav files from google text-to-speech, each named 1-4. I made an number generator that can return like this "42331", and the game is supposed to play 4.wav, 2.wav, 3.wav, 3.wav and 1.wav.
Here's what i got so far.

Public Class Form1
    Dim rnd As New Random
    Dim i = 0
    Dim level As Integer = 5
    Dim nums As String
    Dim ns
    Dim pla As New System.Media.SoundPlayer
    Function gsa()
        Dim h
        While i < level
            h = Math.Round(rnd.NextDouble * 4)
            If h = 0 Then
                h = 1
            End If
            nums = nums + h.ToString
            i = i + 1
        End While
        MsgBox(nums)
        Return nums
    End Function
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ns = gsa()
        i = 0
        While i > level
            pla.SoundLocation = ns(i) + ".wav"
            pla.Play()
            i = i + 1
        End While
    End Sub
End Class

It reads nothing.

If i try with

Imports System.Threading.Thread
Public Class Form1
    Dim rnd As New Random
    Dim i = 0
    Dim level As Integer = 5
    Dim nums As String
    Dim ns
    Dim pla As New System.Media.SoundPlayer
    Function gsa()
        Dim h
        While i < level
            h = Math.Round(rnd.NextDouble * 4)
            If h = 0 Then
                h = 1
            End If
            nums = nums + h.ToString
            i = i + 1
        End While
        MsgBox(nums)
        Return nums
    End Function
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ns = gsa()
        For Each num In ns
            pla.SoundLocation = ns(num) + ".wav"
            pla.Play()
            i = i + 1
        Next
    End Sub
End Class

It only plays 1.wav (the last in the sequence)

I'm new to this forum so please help.

[marvinbek]

bump

[marvinbek]

bump

[marvinbek]

bump

[.paul.]

try this:

pla.PlaySync()