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.