The source codes below is a reusable procedure to make your PC beep. This uses an API function and written in Visual Basic 6.
'Procedure: BeepPC
'Language: Visual Basic 6
'Parameter: None
'Purpose: This procedure uses an API function to beep the PC.
' The beeping sound is like error beep codes in your PC.
'Usage: Call BeepPC
Public Declare Function Beep Lib "kernel32" _
(ByVal dwFreq As Long, _
ByVal dwDuration As Long) As Long
Public Sub BeepPC()
Dim Cntr As Long
For Cntr = 0 To 5
Beep 700 * Cntr + 50, 1
DoEvents
Next Cntr
End Sub
3 comments:
Compiler Error:
Constants, fixed-length strings, arrays, user-defined types and Declare statements not allowed as Public members of object modules.
If you need a beep from your system speaker, there is no need to run or compile any garbage, just open a command prompt, press Ctrl+G and press enter.
Happy beeping!
@ Anonymous said... Compiler Error:
Take note that the code is for VB6 not VB.Net. To use, put it all in a module, then call the BeepPC function in your form. Work fine with me.
Post a Comment