ビープ音を連続して鳴らす

質問

何か時間のかかる処理が終わったとき、ユーザーに処理が終わったことをビープ音で知らせたいと思います。１回だと気付きにくいので３回「ピッピッピッ」と鳴らしたいのですが、Beep　を３回記述しても鳴りません。苦し紛れに下記の関数を作って間に合わせているのですが、間隔を１秒とっているのでちょっと間延びした感じです。もっとリズミカルに鳴らしたいのですが、いい方法があったらどなたか教えてください。
--------------------------------------------------------------------
Public Function beep3()
　　Dim i As Integer
　　Dim dend As Double

　　For i = 1 To 3
　　　　dend = Timer + 1
　　　　Beep
　　　　Do
　　　　　　If Timer > dend Then
　　　　　　　　Exit Do
　　　　　　End If
　　　　　　DoEvents
　　　　Loop
　　Next i
End Function

回答No.4

maruru01 · ベストアンサー

再びmaruru01です。

間にSleepを入れないと出来ない（条件によっては3回に聞こえることもあるけど）ですよ。
っていうか、BeepとSleepで私の環境では出来ましたけど。（VB6.0SP5、Windows2000SP2）
あっそうだ、Beepの引数はWindows95、98では無視されます。
では。

お礼

ありがとうございました。
自宅のパソコンは９８なので、うまく動きませんでした。
仕事先では２０００で、２０００上で動かすアプリで使用したかったので大助かりです。

回答No.3

maruru01

こんにちは。maruru01です。

WindowsAPIにも、「Beep」という関数があります。
APIのBeepは周波数(Hz)と秒数(ms)の2つの引数を持ってるので、音色（周波数）と鳴らす間隔（秒数）を調節出来ます。
各Beep間のインターバルはNo.2の方の通り、APIのSleepを使って調節出来ます。
どちらの関数も、MSDNライブラリーで詳細を参照して下さい。
関数の宣言はAPIビューアで取得して下さい。
では。

補足

ありがとうございます。
が、うまくいきません。
timer関数と同じで１回しか鳴りません。
周波数と間隔をいろいろと変えてやってみたのですが、３回Beepを記述しても１回しか鳴りません。

回答No.2

honiyon

こんにちは、honiyonです。

　　確か Sleepという関数があったと思います。

　　Sleep(1000) で 1秒待ちという意味になります。

　　Beep
Sleep(1000)
Beep
Sleep(1000)
Beep

　　でいかがですか？

　　参考になれば幸いです（．．

補足

ありがとうございます。
が、うまくいきません。
timer関数と同じで１回しか鳴りません。

回答No.1

todyssey

あまりお役に立てないかも知れませんが　timer は　小数点以下も利用できるはずです。　timer + 1 を　timer + 0.3ぐらいにしてみては　いかがでしょうか

補足

はい、１秒以下でも試しましたが、そうするとうまく３回鳴りません。
0.9以下でだめでした。ハードの周波数の問題とか聞きましたが、それをどうクリアしたらいいのか分かりません。