Delphi_Beep_送别

view plaincopy to clipboardprint?
program Project1;
{$APPTYPE CONSOLE}
uses
SysUtils,
Windows;
{*
送别
歌手:青燕子演唱组
专辑:森林和原野
作词:李叔同(弘一大师)
*}
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;
}
NOTE_1 = 440*1;
NOTE_2 = 495*1;
NOTE_3 = 550*1;
NOTE_4 = 587*1;
NOTE_5 = 660*1;
NOTE_6 = 733*1;
NOTE_7 = 825*1;
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
on E: Exception do
Writeln(E.Classname, ': ', E.Message);
end;
end.