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随机化数字并将它们设置为歌曲

回答

相关问题