Генерация звуковой частоты в windows - VB.Net - PullRequest
Новая
       84

Генерация звуковой частоты в windows - VB.Net

2 голосов
/ 03 мая 2020

Мне нужно создать прямоугольный звук в windows. Я использую этот код: 

System.console.beep(500,500)

Но он работает не очень хорошо: для воспроизведения звука требуется немного времени. У меня процессор 2,7 ГГц, поэтому я не думаю, что мой компьютер работает медленно.

Кто-нибудь знает библиотеку или другой код для воспроизведения частот в windows?

1 Ответ

1 голос
/ 04 мая 2020

Импорт: 

Imports System.IO
Imports System.Media

Вызов: 

FrequencyBeep(500, 500, 10000)

Sub: 

Public Shared Sub FrequencyBeep(ByVal Amplitude As Integer, ByVal Frequency As Integer, ByVal Duration As Integer)
    Dim A As Double = ((Amplitude * (System.Math.Pow(2, 15))) / 1000) - 1
    Dim DeltaFT As Double = 2 * Math.PI * Frequency / 44100.0
    Dim Samples As Integer = 441 * Duration / 10
    Dim Bytes As Integer = Samples * 4

    Dim Hdr As Integer() = {1179011410, 36 + Bytes, 1163280727, 544501094, 16, 131073, 44100, 176400, 1048580, 1635017060, Bytes}

    Using MS As MemoryStream = New MemoryStream(44 + Bytes)

        Using BW As BinaryWriter = New BinaryWriter(MS)

            For I As Integer = 0 To Hdr.Length - 1
                BW.Write(Hdr(I))
            Next

            For T As Integer = 0 To Samples - 1
                Dim Sample As Short = System.Convert.ToInt16(A * Math.Sin(DeltaFT * T))
                BW.Write(Sample)
                BW.Write(Sample)
            Next

            BW.Flush()
            MS.Seek(0, SeekOrigin.Begin)

            Using SP As SoundPlayer = New SoundPlayer(MS)
                SP.PlaySync()
            End Using
        End Using
    End Using
End Sub
...