BEEP音を発生          <TOP>

BEEP音を発生させます。Windows9x系ではdwFreq(周波数)、dwDuration(持続時間)は共に無効です。F-BASICでのBEEPに同じ。

WindowsNT系では、周波数及び持続時間を設定することができます。

Beep BEEP音を発生

　

テストでは、37Hzから997Hzまで50mSecの持続時間で可変させています。そのときの周波数をキャプションに表示させています。

ついでにドレミを・・・

　

'================================================================
'=  Beep音を発生
'=    (Beep.bas)
'================================================================
#include "Windows.bi"

' Beep音の発生
Declare Function Api_Beep& Lib "kernel32" Alias "Beep" (ByVal dwFreq&, ByVal dwDuration&)

'================================================================
'=
'================================================================
Declare Sub MainForm_Start edecl ()
Sub MainForm_Start()
    Var Hz As Long                         'ヘルツ
    Var Ret As Long

    For Hz = 37 To 997 step 10             '指定可能範囲：37 To 32,767
        Ret = Api_Beep(Hz, 50)             '持続時間：50mmSec
        SetWindowText Trim$(Str$(Hz))
        CallEvent
    Next

    Ret = Api_Beep(262, 500)               'ド
    Ret = Api_Beep(294, 500)               'レ
    Ret = Api_Beep(330, 500)               'ミ
    Ret = Api_Beep(349, 500)               'ファ
    Ret = Api_Beep(392, 500)               'ソ
    Ret = Api_Beep(440, 500)               'ラ
    Ret = Api_Beep(494, 500)               'シ
    Ret = Api_Beep(523, 500)               'ド
End Sub

'================================================================
'=
'================================================================
While 1
    WaitEvent
Wend
Stop
End