VB.NET版本声音文件简谱播放器代码QZQ

Imports System.Media
Imports System.Threading

Public Class Form1
Dim inputString As String '存储输入的字符串
Dim k As Integer

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    inputString = TextBox1.Text
    '尝试将文本框 2 的值转换为整数并赋给 k
    If Integer.TryParse(TextBox2.Text, k) Then
        Dim index As Integer = 0
        While index < inputString.Length
            Select Case inputString(index)
                Case "1"
                    My.Computer.Audio.Play("1.wav") '播放第 1 个 wav 文件
                Case "2"
                    My.Computer.Audio.Play("2.wav") '播放第 2 个 wav 文件
                Case "3"
                    My.Computer.Audio.Play("3.wav") '播放第 3 个 wav 文件
                Case "4"
                    My.Computer.Audio.Play("4.wav") '播放第 4 个 wav 文件
                Case "5"
                    My.Computer.Audio.Play("5.wav") '播放第 5 个 wav 文件
                Case "6"
                    My.Computer.Audio.Play("6.wav") '播放第 6 个 wav 文件
                Case "7"
                    My.Computer.Audio.Play("7.wav") '播放第 7 个 wav 文件
                Case "-"
                    My.Computer.Audio.Play("0.wav") '播放第 0 个 wav 文件
                    '根据需要添加更多的 Case 语句，每个 Case 语句对应不同的字符和对应的 MP3 文件
            End Select

            index += 1
            Thread.Sleep(k) '延迟 k 毫秒

        End While
    Else
        '如果转换失败，给出提示
        MessageBox.Show("文本框 2 输入的值不是有效的整数，请重新输入。")
    End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    Randomize()


    '定义数组来存储数据

    Dim a(7) As String

    a = {"1", "2", "3", "4", "5", "6", "7"}
    '定义数组来存储数据

    Dim b(5) As String

    b = {"", "-", "--", "---", "----"}


    For i As Integer = 0 To 12

        TextBox1.Text = TextBox1.Text & a(Rnd() * 6) & b(Rnd() * 4) & a(Rnd() * 6) & b(Rnd() * 4) & a(Rnd() * 6) & b(Rnd() * 4) & a(Rnd() * 6) & b(Rnd() * 4) & a(Rnd() * 6) & b(Rnd() * 4) & a(Rnd() * 6) & b(Rnd() * 4)

    Next
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    TextBox1.Text = ""
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
    TextBox1.Text = "1155665--4433221--5544332--5544332--1155665--4433221---"
    TextBox2.Text = "100"

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    End
End Sub

End Class