エラーの発生位置によってビープ音を変更することに(^o^)丿
*************************************************
’モジュール宣言
Declare Function ApiBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
' dwFreq Hz単位の周波数
' dwDuration ミリ秒単位の鳴動時間
*************************************************
*************************************************
’呼び出し
Call ApiBeep( 500, 2000) ' 500Hzを2秒
*************************************************
素晴らしい!!
参考(と言いますか丸写し^^)にさせて頂いたページ:
http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1214596572
音階ファンクション(これは自作です。えっへん^^)
*************************************************
Private Function 音階(ドレミ As String) As Single
Select Case ドレミ
Case "do": 音階 = 261.6
Case "re": 音階 = 293.6
Case "mi": 音階 = 329.6
Case "fa": 音階 = 349.2
Case "so": 音階 = 392
Case "la": 音階 = 440
Case "si": 音階 = 493.8
Case "dodo": 音階 = 523.3
Case "rere": 音階 = 587.3
Case "mimi": 音階 = 659.3
Case "fafa": 音階 = 698.4
Case "soso": 音階 = 784
Case "lala": 音階 = 880
End Select
End Function
*************************************************