making a beep

[zmerlinz]

hi

i know this should be in the API section but i will get more responce here, i know how to make a standard beep, but i found in windows api how to make specfic beeps, here is what i have got so far

Private Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long

Private Sub Command1_Click()
MB_ICONEXCLAMATION As Long

End Sub

but it doesn't work it comes up with an error about statment invalid outside block, what am i doing wrong, i am new to api so please be gentle, thanks for your co-operation

That's because you're using the statement wrong. It should be:

Private Declare Function MessageBeep Lib "user32" (ByVal wType As Long) As Long
Private Const MB_ICONASTERISK = &H40&
Private Const MB_ICONEXCLAMATION = &H30&
Private Const MB_ICONHAND = &H10&
Private Const MB_ICONQUESTION = &H20&

Private Sub Command1_Click()
    MessageBeep (MB_ICONHAND)
End Sub

[parksie]

If you want an actual PC Speaker beep, then this does it: www.parksie.net/customwin.zip

Full source for that and some other stuff.

[zmerlinz]

Thanks a lot, sorry that i got it wrong and took a long while to reply

thanks once again

[parksie]

No problem

[Juro128]

What is all this coding for? Use the damn "BEEP" command. Here's an example for you lame brained...

Private Sub cmdCommandBtn_Click()
Beep
End Sub

Wow! What skill.

[Lethal]

Well...for one, that beep will vary depending on your hardware and system software. With the use of the API, you can specify your sound durations and frequencys.

[Electro414]

Wouldn't it be just easyer to play a wav file?

[Lethal]

Hmm....I think most would agree that the API Function Megatron provided is straight forward and can easily be understood.

[parksie]

The problem I found with the API "Beep" function (and the reason I coded my own) is that you can only use custom frequencies on NT.

[Chris Byrom]

.WAVs won't work if the machine does not have a sound card. Thanks for the code Megatron, I have been looking for something like this.

[nemaroller]

still wondering... how does a huge robot that stands over 15 feet tall transform into a gun about the size of a dog.... OPTIMUS lives...

[Chris Byrom]

Duh!

[zmerlinz]

The reason that i wanted it in API is that i am experimenting with it, and it will play specific sounds on your computer, eg asterix, and exclamation, i know the beep command, but that wouldn't work for me as i don't have a pc speaker

[Lord Orwell]

argh!


One complains that it doesn't work without a sound card, another that he doesn't have a speaker. Well the answer to both would be to have a flashing icon.

[zmerlinz]

but i wanted it for the specific windows sounds, and i wanted to do it in API, i am not moaning !!!

[Chris Byrom]

neither am I, I just said that you can't play a .wav without a soundcard. I am going to use the code Megatron provided in an upcoming app.

[Lord Orwell]

the beep api call is another one that for some reason microsoft crippled in win 95/98

The messagebeep now contains that functionality too. This one guy was trying to make a morse code program, and we were trying to figure out how to change beep duration... turns out that parksie's way is the only way.

[JamesM]

Just thought you might be able to use this in conjunction with the Beep API if you wanted the option of playing a wav if the sound card was installed:

'Author: Karthikeyan
'Author's email: [email protected]
'Date Submitted: 1/11/2001
'Compatibility: VB 6

'Task: Check whether sound card is installed or not using waveOutGetNumDevs API

'Declarations
Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long

'Code: 
Private Sub Form_Load()
Dim ndevice As Integer
ndevice = waveOutGetNumDevs()
If ndevice > 0 Then
MsgBox "Sound card is installed."
Else
MsgBox "Sound card is not installed."
End If
End
End Sub

James

[zmerlinz]

hi James,

i was looking for that code the other day, i have used it before and it is very useful, thanks a lot

[Ferret]

thanks for the code I'm using for a training program but now want to build code for converting the other way except that I cant convert beeps to text?? can anyone give me a pointer on waht i could use. something that compares two wav files or that counts the number of beeps in a wav file ??