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.