Delphi中用beep函數(shù)拼出節(jié)奏和歌曲

nxhujiee 2010-04-19

展開全文

Delphi中用beep函數(shù)拼出節(jié)奏和歌曲

技術文章 2010-01-06 12:09:25 閱讀112 評論0 字號：大中小

On Windows, Beep calls the Windows API MessageBeep.
BOOL Beep(
    DWORD dwFreq, // sound frequency, in hertz
    DWORD dwDuration // sound duration, in milliseconds
   );

所以，完全有可能用beep函數(shù)拼出節(jié)奏和歌曲(當然了，你也可以寫個循環(huán)發(fā)出讓人心煩的聲音來惡搞別人……)。以下是網(wǎng)上找來的兩個例子：

uses
SysUtils, Windows;

//送別
procedure beepValediction;
const
ONE_BEEP = 600;
HALF_BEEP = 300;

NOTE_1 = 440;
NOTE_2 = 495;
NOTE_3 = 550;
NOTE_4 = 587;
NOTE_5 = 660;
NOTE_6 = 733;
NOTE_7 = 825;
begin
try
    //長亭外
    Beep(NOTE_5, ONE_BEEP);
    Beep(NOTE_3, HALF_BEEP);
    Beep(NOTE_5, HALF_BEEP);
    Beep(NOTE_1 * 2, ONE_BEEP * 2);

    //古道邊
    Beep(NOTE_6, ONE_BEEP);
    Beep(NOTE_1 * 2, ONE_BEEP);
    Beep(NOTE_5, ONE_BEEP * 2);

    //芳草碧連天
    Beep(NOTE_5, ONE_BEEP);
    Beep(NOTE_1, HALF_BEEP);
    Beep(NOTE_2, HALF_BEEP);
    Beep(NOTE_3, ONE_BEEP);
    Beep(NOTE_2, HALF_BEEP);
    Beep(NOTE_1, HALF_BEEP);
    Beep(NOTE_2, ONE_BEEP * 4);

    //晚風扶柳笛聲殘
    Beep(NOTE_5, ONE_BEEP);
    Beep(NOTE_3, HALF_BEEP);
    Beep(NOTE_5, HALF_BEEP);
    Beep(NOTE_1 * 2, HALF_BEEP * 3);
    Beep(NOTE_7, HALF_BEEP);
    Beep(NOTE_6, ONE_BEEP);
    Beep(NOTE_1 * 2, ONE_BEEP);
    Beep(NOTE_5, ONE_BEEP * 2);

    //夕陽山外山
    Beep(NOTE_5, ONE_BEEP);
    Beep(NOTE_2, HALF_BEEP);
    Beep(NOTE_3, HALF_BEEP);
    Beep(NOTE_4, HALF_BEEP * 3);
    Beep(round(NOTE_7 / 2), HALF_BEEP);
    Beep(NOTE_1, ONE_BEEP * 4);

    //天之涯
    Beep(NOTE_6, ONE_BEEP);
    Beep(NOTE_1 * 2, ONE_BEEP);
    Beep(NOTE_1 * 2, ONE_BEEP * 2);

    //地之角
    Beep(NOTE_7, ONE_BEEP);
    Beep(NOTE_6, HALF_BEEP);
    Beep(NOTE_7, HALF_BEEP);
    Beep(NOTE_1 * 2, ONE_BEEP * 2);

    //知交半零落
    Beep(NOTE_6, HALF_BEEP);
    Beep(NOTE_7, HALF_BEEP);
    Beep(NOTE_1 * 2, HALF_BEEP);
    Beep(NOTE_6, HALF_BEEP);
    Beep(NOTE_6, HALF_BEEP);
    Beep(NOTE_5, HALF_BEEP);
    Beep(NOTE_3, HALF_BEEP);
    Beep(NOTE_1, HALF_BEEP);
    Beep(NOTE_2, ONE_BEEP * 4);

    //一壺濁酒盡余歡
    Beep(NOTE_5, ONE_BEEP);
    Beep(NOTE_3, HALF_BEEP);
    Beep(NOTE_5, HALF_BEEP);
    Beep(NOTE_1 * 2, HALF_BEEP * 3);
    Beep(NOTE_7, HALF_BEEP);
    Beep(NOTE_6, ONE_BEEP);
    Beep(NOTE_1 * 2, ONE_BEEP);
    Beep(NOTE_5, ONE_BEEP * 2);

    //今宵別夢寒
    Beep(NOTE_5, ONE_BEEP);
    Beep(NOTE_2, HALF_BEEP);
    Beep(NOTE_3, HALF_BEEP);
    Beep(NOTE_4, HALF_BEEP * 3);
    Beep(round(NOTE_7 / 2), HALF_BEEP);
    Beep(NOTE_1, ONE_BEEP * 3);
except
end;
end;

//油和米
procedure beepYouAndMe;
const
ONE_BEEP = 800;

NOTE_1 = 196;
NOTE_2 = 262;
NOTE_3 = 294;
NOTE_4 = 330;
NOTE_5 = 392;
begin
Beep(NOTE_4, ONE_BEEP);
Beep(NOTE_5, ONE_BEEP);
Beep(NOTE_2, ONE_BEEP*2);

Beep(NOTE_3, ONE_BEEP);
Beep(NOTE_4, ONE_BEEP);
Beep(NOTE_1, ONE_BEEP*2);

Beep(NOTE_2, ONE_BEEP);
Beep(NOTE_3, ONE_BEEP);
Beep(NOTE_4, ONE_BEEP);
Beep(NOTE_5, ONE_BEEP);
Beep(NOTE_3, ONE_BEEP*4);
end;