VB.NET版本wav简谱播放程序QZQ-2024-8-16

Imports System.Media
Imports System.Threading

Public Class Form1
Dim numbers() As String '定义全局变量，用于存储分割后的数字字符串
Dim index As Integer = 0 '定义全局变量，用于记录当前播放的 MP3 文件的索引
Dim k As Integer

Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    Dim input As String = TextBox1.Text
    numbers = input.Split(New Char() {","}) '将输入的数字字符串以逗号分割为多个字符串数字

    PlayMP3() '调用播放 MP3 的方法
End Sub

Private Sub PlayMP3()
    '尝试将文本框 2 的值转换为整数并赋给 k
    If Integer.TryParse(TextBox2.Text, k) Then
        For i As Integer = 0 To numbers.Length - 1
            Try
                Select Case numbers(i)
                    Case "1"
                        My.Computer.Audio.Play("1.wav") '播放第 1 个 wav 文件
                    Case "2"
                        My.Computer.Audio.Play("2.wav") '播放第 2 个 wav 文件

…
…
…
这款软件是播放wav声音文件的功能，每个wav都是一个音符，然后我们通过编写简谱即可播放音乐，就像钢琴简谱播放器那样的简易。

🎉精彩不容错过！新文章震撼登场，却因代码不全让人意犹未尽？别担心！我们为你准备了软件截图，让你先睹为快，感受其强大魅力。

✨如果你渴望解锁全部精彩内容，那么强烈建议你下载完整源代码。它将为你打开一扇通往编程新世界的大门，让你深入探索其中的奥秘，挖掘无限潜力。

🔗源代码下载网址：[https://download.csdn.net/download/qq_32257509/89643496]。赶紧行动起来，下载完整源代码，开启你的编程之旅吧！