![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
何か時間のかかる処理が終わったとき、ユーザーに処理が終わったことをビープ音で知らせたいと思います。1回だと気付きにくいので3回「ピッピッピッ」と鳴らしたいのですが、Beep を3回記述しても鳴りません。苦し紛れに下記の関数を作って間に合わせているのですが、間隔を1秒とっているのでちょっと間延びした感じです。もっとリズミカルに鳴らしたいのですが、いい方法があったらどなたか教えてください。
--------------------------------------------------------------------
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.3
- 回答日時:
こんにちは。
maruru01です。WindowsAPIにも、「Beep」という関数があります。
APIのBeepは周波数(Hz)と秒数(ms)の2つの引数を持ってるので、音色(周波数)と鳴らす間隔(秒数)を調節出来ます。
各Beep間のインターバルはNo.2の方の通り、APIのSleepを使って調節出来ます。
どちらの関数も、MSDNライブラリーで詳細を参照して下さい。
関数の宣言はAPIビューアで取得して下さい。
では。
この回答への補足
ありがとうございます。
が、うまくいきません。
timer関数と同じで1回しか鳴りません。
周波数と間隔をいろいろと変えてやってみたのですが、3回Beepを記述しても1回しか鳴りません。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
ビープ音鳴らし続けたい。
Visual Basic(VBA)
-
ビープ音をなめらかに鳴らしたい
C言語・C++・C#
-
【vba】Beep音が鳴らない
Excel(エクセル)
-
-
4
エクセル、条件を満たしたら音を鳴らす方法教えて下さい
Excel(エクセル)
-
5
VBA で警告音
Visual Basic(VBA)
-
6
特定のキーを押すまでループさせるにはどうすればよいですか。
Visual Basic(VBA)
-
7
エクセルのBEEP音を変更したい
Excel(エクセル)
-
8
エクセルで条件を満たした場合に音を鳴らしたいです。
Visual Basic(VBA)
-
9
vb作成したらでbeep音が鳴ります。経験あるかたお願いします。
Visual Basic(VBA)
-
10
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
11
ビープ音が鳴りません・・・
C言語・C++・C#
-
12
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
「ご処理進めて頂きますようお...
-
VBAでループ内で使う変数名を可...
-
メルカリのメルカードで買い物...
-
レジ返品交換について(時間がか...
-
リョウ・・・量?料?
-
DoEventsがやはり分からない
-
ボタンクリックイベント 重複...
-
エクセルで、日付を入力すると...
-
【Excel】特定の文字を含むセル...
-
UMLでの例外処理
-
なんででしょう?
-
Access 日付/時間型を検...
-
UWSC
-
switch の範囲指定
-
インタラクティブの反対語は?
-
waitせずにキー入力があった場...
-
JDBCでの大量データ検索でResul...
-
再帰処理を途中で抜けるには
-
VBAでセルに値が入力されるまで...
-
gas 重複行の削除
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
「ご処理進めて頂きますようお...
-
エクセルで、日付を入力すると...
-
VBAでループ内で使う変数名を可...
-
DoEventsがやはり分からない
-
【Excel】特定の文字を含むセル...
-
メルカリのメルカードで買い物...
-
switch の範囲指定
-
UMLでの例外処理
-
EXCEL VBA マクロ 実行する度に...
-
非同期処理ってなんで、並列処...
-
VBの質問#if 0 then ってどう...
-
インタラクティブの反対語は?
-
findは動くがfindnextがマクロ...
-
月度は何て読みますか?
-
FFTの結果ついて
-
リョウ・・・量?料?
-
Do~Loopした回数をカウントしたい
-
Loadイベント中にほかのイベン...
-
セルの値が0はクリアするマクロ
-
VB.NET Excelを読み込んでDataT...
おすすめ情報