vbでランダムなサウンドを再生するにはどうすればよいですか?アプリケーションの使用中にバックグラウンドでランダムに再生したい3つのウェーブファイルがありますか?
これが私がたった1曲を演奏している方法です。
My.Computer.Audio.Play(My.Resources.music1, AudioPlayMode.Background)
vbでランダムなサウンドを再生するにはどうすればよいですか?アプリケーションの使用中にバックグラウンドでランダムに再生したい3つのウェーブファイルがありますか?
これが私がたった1曲を演奏している方法です。
My.Computer.Audio.Play(My.Resources.music1, AudioPlayMode.Background)
これが正しい方法だと思います:
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))
次のようなことができます。
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
お役に立てれば。