making a beep

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

Code:

---

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:

Code:

---

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

---

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.

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

thanks once again

No problem :)

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.

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.

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

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

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.

.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.

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...

Duh!

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

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. :rolleyes:

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

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.

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.

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:

Code:

---

'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

hi James,

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

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 ??