Use a randomizer to trigger certain sounds

[TokyoScarab]

I am working on a small program project in Visual Basic 2013. I have a little program I want to make but I'm confused as to what code to use. I have a random generator running through a timer to generate a new random number from 1-10. I would like to have the program say the name of each number as it is randomized. I have the sound clips and I have it set up to display the numbers being randomized. I am just unsure how to make detect number changes and have it say something each time. This is the code I have so far:

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Timer1.Start()
 
    End Sub
 
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        Dim generator As New Random
        Dim myRand As Integer
        myRand = generator.Next(1, 11)
        TextBox1.Text = myRand
 
        If Not TextBox1.Text = 1 Then
            My.Computer.Audio.Play(My.Resources.One, AudioPlayMode.WaitToComplete)
 
        Else
            My.Computer.Audio.Play(My.Resources.Silence, AudioPlayMode.Background)
 
        End If
 
        End Sub

[IronRazer]

Hi,

I would recommend turning on Option Strict to help you catch errors of Type Conversion such as where you are trying to assign an Integer Type to the Text property of a TextBox which is a String Type.

Also, you only want to create the new Random class one time when your application is starting.

You could use the Select Case pretty easy in this situation like this.

Option Strict On
 
Public Class Form1
    Dim generator As New Random 'only create the new random class once
 
    Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
        Timer1.Start()
    End Sub
 
    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
        Dim myRand As Integer = generator.Next(1, 11)
        TextBox1.Text = myRand.ToString
 
        Select Case myRand
            Case 1
                My.Computer.Audio.Play(My.Resources.One, AudioPlayMode.WaitToComplete)
            Case 2
                My.Computer.Audio.Play(My.Resources.Two, AudioPlayMode.WaitToComplete)
            Case 3
                My.Computer.Audio.Play(My.Resources.Three, AudioPlayMode.WaitToComplete)
 
                'add the rest of your "Case n" statements for the rest of your numbers
 
        End Select
    End Sub
End Class