Delphi_Beep_送别

Delphi_Beep_送别

 

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.