• Home
 · 
• Sound/MP3
 · 
• There are a lot of code to produce a Beep (trough PC Speaker) with specified frequency and duration

There are a lot of code to produce a Beep (trough PC Speaker) with specified frequency and duration

There are a lot of code to produce a Beep (trough PC Speaker) with specified frequency and duration Some are short but only works under NT,

API Declarations


Private Declare Function vbInp Lib "win95io.dll" (ByVal nPort As Integer) As Integer
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)



Rate There are a lot of code to produce a Beep (trough PC Speaker) with specified frequency and duration

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

If Freq > 0 Then
        vbOut 67, 182
        vbOut 66, CInt(1193280 / Freq) And 255
        vbOut 66, CInt(1193280 / Freq) \ 256
        vbOut 97, vbInp(97) Or 3
        Sleep Duration
        vbOut 97, 0
    Else
        Sleep Duration
    End If
End Sub