交叉播放Beep声音.zip

Imports System.Runtime.InteropServices Imports System.Threading Public Class Form1 <DllImport("kernel32.dll")> Public Shared Function Beep(ByVal dwFreq As Integer, ByVal dwDuration As Integer) As Boolean End Function Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click ' 创建两个线程对象，分别执行按钮2和按钮3的代码 Dim thread2 As New Thread(AddressOf Button2_Click) Dim thread3 As New Thread(AddressOf Button3_Click) ' 启动线程 thread2.Start() thread3.Start() ' 等待两个线程执行完毕 thread2.Join() thread3.Join() End Sub Private Sub Button2_Click() '获取文本框中的字符串 Dim str As String = TextBox1.Text '遍历字符串中的每个字符 For i As Integer = 0 To str.Length - 1 '获取当前字符 Dim ch As Char = str(i) '根据当前字符进行相应的操作 Select Case ch Case "0" Beep(840, 500) '播放0音 Case "1" Beep(994, 500) '播放1音 Case "2" Beep(1123, 500) '播放2音 '...可以继续添加其他音符的判断条件 End Select Next End Sub Private Sub Button3_Click() '获取文本框中的字符串 Dim str As String = TextBox2.Text '遍历字符串中的每个字符 For i As Integer = 0 To str.Length - 1 '获取当前字符 Dim ch As Char = str(i) '根据当前字符进行相应的操作 Select Case ch Case "0" Beep(840, 500) '播放0音 Case "1" Beep(994, 500) '播放1音 Case "2" Beep(1123, 500) '播放2音 '...可以继续添加其他音符的判断条件 End Select Next End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click '获取文本框中的字符串 Dim str As String = TextBox1.Text '遍历字符串中的每个字符 For i As Integer = 0 To str.Length - 1 '获取当前字符 Dim ch As Char = str(i) '根据当前字符进行相应的操作 Select Case ch Case "0" Beep(840, 500) '播放0音 Case "1" Beep(994, 500) '播放1音 Case "2" Beep(1123, 500) '播放2音 '...可以继续添加其他音符的判断条件 End Select Next End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click '获取文本框中的字符串 Dim str As String = TextBox2.Text '遍历字符串中的每个字符 For i As Integer = 0 To str.Length - 1 '获取当前字符 Dim ch As Char = str(i) '根据当前字符进行相应的操作 Select Case ch Case "0" Beep(840, 500) '播放0音 Case "1" Beep(994, 500) '播放1音 Case "2" Beep(1123, 500) '播放2音 '...可以继续添加其他音符的判断条件 End Select Next End Sub End Class