vb.net - VBランダムサウンドwavファイルの再生

Question

vbでランダムなサウンドを再生するにはどうすればよいですか？アプリケーションの使用中にバックグラウンドでランダムに再生したい3つのウェーブファイルがありますか？

これが私がたった1曲を演奏している方法です。

My.Computer.Audio.Play(My.Resources.music1, AudioPlayMode.Background)

Answer 1

これが正しい方法だと思います：

Public Function GetRandom(ByVal Min As Integer, ByVal Max As Integer) As Integer
    Dim Generator As System.Random = New System.Random()
    Return Generator.Next(Min, Max)
End Function

Public Function Play(Byval Num as integer)
if num = 1 then
My.Computer.Audio.Play(My.Resources.music1, AudioPlayMode.Background)
      Threading.Thread.Sleep(5000)
return true
elseif num = 2 then
My.Computer.Audio.Play(My.Resources.music2, AudioPlayMode.Background)
      Threading.Thread.Sleep(5000)
return true
end if
return false
End Function

次のように使用します。

play(GetRandom(1,2))

Answer 2

次のようなことができます。

Public Sub PlayRandomTrack()

    Dim trackNum As Integer = CInt(Rnd() * 3 + 0.5)

    Select Case trackNum

        Case 1
            My.Computer.Audio.Play(My.Resources.music1, AudioPlayMode.Background)

        Case 2
            My.Computer.Audio.Play(My.Resources.music2, AudioPlayMode.Background)

        Case Else
            My.Computer.Audio.Play(My.Resources.music3, AudioPlayMode.Background)

    End Select

End Sub

お役に立てれば。