Visual Basic隨機化數字並將它們設置爲歌曲

-4

有人可以幫助我使用visual basic中的程序。我需要一個隨機數字發生器來選擇隨機數字並根據這些數字播放某些歌曲。我不記得如何爲每首歌曲設定一個數字。我知道我需要某種如果然後聲明。當點擊一個按鈕時，它會生成隨機歌曲。有誰知道如何做到這一點？我需要整個代碼，包括dim 1作爲整數。這是我到目前爲止，我知道這是完全錯誤的。在此先感謝Visual Basic隨機化數字並將它們設置爲歌曲

Public Class NameTheArtist 

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
     Dim number As Integer 
     Dim rndnumber As Random 
     rndnumber = New Random 
     number = rndnumber.Next(1, 10) 


     Dim 1 As Integer 
     Dim 2 As Integer 
     Dim 3 As Integer 
     Dim 4 As Integer 
     Dim 6 As Integer 
     Dim 7 As Integer 
     Dim 8 As Integer 
     Dim 9 As Integer 
     Dim 10 As Integer 
     Dim 5 As Integer 

    End Sub 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 



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

    Public Function Play(ByVal Num As Integer) 
     If num = 1 Then 
      My.Computer.Audio.Play(My.Resources.Black_Widow, 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 
     If number = 1 Then My.Computer.Audio.Play(My.Resources.Black_Widow, AudioPlayMode.Background) 
     My.Computer.Audio.Play(My.Resources.All_about_that_bass, AudioPlayMode.Background) 
     My.Computer.Audio.Play(My.Resources.Trumpets, AudioPlayMode.Background) 
     My.Computer.Audio.Play(My.Resources.Love_story, AudioPlayMode.Background) 
     Return False 
    End Function 
    End Sub 

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged 

    End Sub 
End Class

來源

2014-10-20 alex scott

問StackOverflow爲您編寫應用程序是不是要走的路。如果您有關於如何使用該語言的具體問題，可以在此處詢問。如此看來，你甚至不清楚你要求什麼。 – Serialize 2014-10-20 22:23:20

我覺得他試圖將一個數字作爲標籤添加到他的歌曲中，然後播放屬於隨機生成的數字的歌曲。對我來說似乎是合法的問題。儘管這個嘗試是一團糟。 – Index 2014-10-20 23:23:31

我猜你正在尋找的東西是這樣的：

Public Function Play(ByVal Num As Integer) as Boolean 
Select Case num 
Case 1 
    My.Computer.Audio.Play(My.Resources.Black_Widow, AudioPlayMode.Background) 
    Threading.Thread.Sleep(5000) 
    Return True  
Case 2 
    My.Computer.Audio.Play(My.Resources.music2, AudioPlayMode.Background) 
    Threading.Thread.Sleep(5000) 
    Return True 
Case 3 
    My.Computer.Audio.Play(My.Resources.whatever, AudioPlayMode.Background) 
    Threading.Thread.Sleep(5000) 
    Return True 
Case n 
    My.Computer.Audio.Play(My.Resources.song_n, AudioPlayMode.Background) 
    Threading.Thread.Sleep(5000) 
    Return True 
End Select 
Return False 
End Function

創建爲每個號碼/首歌你有一個情況。我沒有看到你聲明的那些整數。你可以刪除這些來清理你的代碼。

來源

2014-10-20 23:29:32 Index

Visual Basic隨機化數字並將它們設置爲歌曲

回答

相關問題