Beep 之delphi的芳草碧莲天

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.