Creating a "beep siren"?

[blodzoom]

I would like an alert sound that continues until the user interferes. I remember playing with BASIC as a kid and making annoying infinite sirens with a GOTO. I was hoping to be able to do that with a loop but it doesn't seem like you can change the sound of "beep"

Does anyone know how to do this?

 

[bertie]

I was playing about with your problem but I couldn't get it to work for the beep sound. So I used the Application.Speech() function. See if this will give you any ideas.

Open a new Excel workbook.
Press Alt+F11.
Click Insert => Module
Copy and paste the code.
Press F5 to run ESC to abort

[COLOR=darkblue]Sub[/COLOR] TestAlarm()   [COLOR=green]'==================[/COLOR]
   [COLOR=green]'press ESC to abort[/COLOR]
   [COLOR=green]'==================[/COLOR]
   [COLOR=darkblue]Dim[/COLOR] i [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Long[/COLOR]
   [COLOR=darkblue]Dim[/COLOR] answer [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Long[/COLOR]
   
   [COLOR=darkblue]On[/COLOR] [COLOR=darkblue]Error[/COLOR] [COLOR=darkblue]GoTo[/COLOR] errExit
   
   [COLOR=darkblue]For[/COLOR] i = 1 [COLOR=darkblue]To[/COLOR] 50
      Application.Speech.Speak ("Danger")
   [COLOR=darkblue]Next[/COLOR] i
   
   [COLOR=green]'abort or continue[/COLOR]
errExit:
   [COLOR=darkblue]If[/COLOR] MsgBox("Continue", vbYesNo) = vbNo [COLOR=darkblue]Then[/COLOR]
      [COLOR=darkblue]Exit[/COLOR] [COLOR=darkblue]Sub[/COLOR]
   [COLOR=darkblue]Else[/COLOR]
      [COLOR=darkblue]Resume[/COLOR] [COLOR=darkblue]Next[/COLOR]
   [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
End [COLOR=darkblue]Sub[/COLOR]

 

[blodzoom]

I was playing about with your problem but I couldn't get it to work for the beep sound. So I used the Application.Speech() function. See if this will give you any ideas.

Open a new Excel workbook.
Press Alt+F11.
Click Insert => Module
Copy and paste the code.
Press F5 to run ESC to abort

[COLOR=darkblue]Sub[/COLOR] TestAlarm()   [COLOR=green]'==================[/COLOR]
   [COLOR=green]'press ESC to abort[/COLOR]
   [COLOR=green]'==================[/COLOR]
   [COLOR=darkblue]Dim[/COLOR] i [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Long[/COLOR]
   [COLOR=darkblue]Dim[/COLOR] answer [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Long[/COLOR]
   
   [COLOR=darkblue]On[/COLOR] [COLOR=darkblue]Error[/COLOR] [COLOR=darkblue]GoTo[/COLOR] errExit
   
   [COLOR=darkblue]For[/COLOR] i = 1 [COLOR=darkblue]To[/COLOR] 50
      Application.Speech.Speak ("Danger")
   [COLOR=darkblue]Next[/COLOR] i
   
   [COLOR=green]'abort or continue[/COLOR]
errExit:
   [COLOR=darkblue]If[/COLOR] MsgBox("Continue", vbYesNo) = vbNo [COLOR=darkblue]Then[/COLOR]
      [COLOR=darkblue]Exit[/COLOR] [COLOR=darkblue]Sub[/COLOR]
   [COLOR=darkblue]Else[/COLOR]
      [COLOR=darkblue]Resume[/COLOR] [COLOR=darkblue]Next[/COLOR]
   [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
End [COLOR=darkblue]Sub[/COLOR]

This is different than what I was imagining, but a lot cooler in some ways. I seriously appreciate this.

 

[Michael M]

Also have a look here at playing ...basically any sound you like, based on a WAV file

http://www.cpearson.com/excel/PlaySound.aspx