BEEPQQ doesn't work

[nvaneck]

I've been using BEEPQQ for years and it no longer works.

QUICKWIN project:
use ifport
call beepqq(1000,100)
end

No sound...(yes I get other sounds, e.g., with MESSAGEBOX)

Using Fortran version 10.1.3948.2005

Is there something I don't know about? I don't know when it stopped working, as I only recently began revising my code.

Is there another way to do this?

Thanks for any help you can give

Neal

[Steven_L_Intel1]

I just tried this with 11.1.048 and it worked for me.

[nvaneck]

Quoting - Steve Lionel (Intel)

I just tried this with 11.1.048 and it worked for me.

Thsnks, Steve. I'm suspecting a broken case speaker wire if that's the only route for BEEPQQ and other routines use the sound system as well as or instead of the case speaker.

[Steven_L_Intel1]

Yes - BEEPQQ uses the system case or motherboard "speaker" and not the audio system. Why not use PlaySound instead?

[nvaneck]

Quoting - Steve Lionel (Intel)

Yes - BEEPQQ uses the system case or motherboard "speaker" and not the audio system. Why not use PlaySound instead?

I don't know anything about it or where it is; I'll check it out--Thanks!

[nvaneck]

Quoting - nvaneck

I don't know anything about it or where it is; I'll check it out--Thanks!

I can find descriptions of PlaySound, but not how to access the routine from Fortran. Do I need to include an additional library? Do you have a simple example? It would be a great solution if I can figure out how to invoke it.

Thanks

[Steven_L_Intel1 · Accepted solution]

[plain]use winmm
integer(BOOL) :: ret

ret = PlaySound(SND_ALIAS_SYSTEMDEFAULT, NULL, SND_ALIAS_ID)
end[/plain]

[nvaneck]

Quoting - Steve Lionel (Intel)

[plain]use winmm
integer(BOOL) :: ret

ret = PlaySound(SND_ALIAS_SYSTEMDEFAULT, NULL, SND_ALIAS_ID)
end[/plain]

Works great!

Thanks a bunch, Steve

[nvaneck]

Well, the playsound option does work, but it's very slow and so isn't ideal for my intended use. But the most interesting thing that happened is that after I upgraded to Win 7, BEEPQQ started working again....