数字播放wav或者mp3声音程序源代码.zip

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long Private Sub Command1_Click() Timer1.Interval = 50 End Sub Private Sub Command2_Click() Timer1.Interval = 0 End Sub Private Sub Command3_Click() Dim inputText As String '输入的文本 Dim inputArr() As String '输入的字符串数组 Dim i As Integer '循环计数器 inputText = txtInput.Text '获取输入的文本 ' 将所有空格替换为逗号，将文本转换为数组 inputArr = Split(Replace(inputText, " ", ","), ",") ' 遍历字符串数组并按照顺序播放对应的 WAV 声音文件 For i = LBound(inputArr) To UBound(inputArr) ' 根据字符串的值选择相应的 WAV 声音文件 Select Case inputArr(i) Case 1 PlaySound "C:\Users\28261\Desktop\o.wav", 0, 0 Case 2 PlaySound "C:\Users\28261\Desktop\p.wav", 0, 0 Case 3 PlaySound "C:\Users\28261\Desktop\q.wav", 0, 0 ' 添加其他数字的处理逻辑 End Select ' 存储播放位置的变量 Static playIndex As Integer ' 设置播放位置为数组的起始位置 playIndex = LBound(inputArr) ' 播放完当前位置对应的 WAV 声音文件后，更新 playIndex playIndex = playIndex + 1 ' 如果 playIndex 小于数组的上界，则继续播放下一个 WAV 声音文件 If playIndex <= UBound(inputArr) Then End If Next i End Sub Private Sub Form_Load() txtInput.Text = "1 2 3" End Sub Private Sub Timer1_Timer() Dim inputText As String '输入的文本 Dim inputArr() As String '输入的字符串数组 Dim i As Integer '循环计数器 inputText = txtInput.Text '获取输入的文本 ' 将所有空格替换为逗号，将文本转换为数组 inputArr = Split(Replace(inputText, " ", ","), ",") ' 遍历字符串数组并按照顺序播放对应的 WAV 声音文件 For i = LBound(inputArr) To UBound(inputArr) ' 根据字符串的值选择相应的 WAV 声音文件 Select Case inputArr(i) Case 1 PlaySound "C:\Users\28261\Desktop\o.wav", 0, 0 Case 2 PlaySound "C:\Users\28261\Desktop\p.wav", 0, 0 Case 3 PlaySound "C:\Users\28261\Desktop\q.wav", 0, 0 ' 添加其他数字的处理逻辑 End Select ' 存储播放位置的变量 Static playIndex As Integer ' 设置播放位置为数组的起始位置 playIndex = LBound(inputArr) ' 播放完当前位置对应的 WAV 声音文件后，更新 playIndex playIndex = playIndex + 1 ' 如果 playIndex 小于数组的上界，则继续播放下一个 WAV 声音文件 If playIndex <= UBound(inputArr) Then End If Next i End Sub