0

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

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

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

2 に答える 2

0

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

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))
于 2012-11-01T18:14:51.017 に答える
0

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

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

お役に立てれば。

于 2012-11-01T06:56:29.423 に答える