小男孩‘自慰网亚洲一区二区,亚洲一级在线播放毛片,亚洲中文字幕av每天更新,黄aⅴ永久免费无码,91成人午夜在线精品,色网站免费在线观看,亚洲欧洲wwwww在线观看

搜索
分享

Delphi_Beep_送別

 nxhujiee 2010-04-19

Delphi_Beep_送別

  1. program Project1;  
  2.   
  3. {$APPTYPE CONSOLE}  
  4.   
  5. uses  
  6.   SysUtils,  
  7.   Windows;  
  8.   
  9. {* 
  10.   送別 
  11.   歌手:青燕子演唱組 
  12.   專輯:森林和原野 
  13.   作詞:李叔同(弘一大師) 
  14.   *}  
  15. const  
  16.   ONE_BEEP = 600;  
  17.   HALF_BEEP = 300;  
  18.   { 
  19.   NOTE_1 = 440; 
  20.   NOTE_2 = 495; 
  21.   NOTE_3 = 550; 
  22.   NOTE_4 = 587; 
  23.   NOTE_5 = 660; 
  24.   NOTE_6 = 733; 
  25.   NOTE_7 = 825; 
  26.   }  
  27.   NOTE_1 = 440*1;  
  28.   NOTE_2 = 495*1;  
  29.   NOTE_3 = 550*1;  
  30.   NOTE_4 = 587*1;  
  31.   NOTE_5 = 660*1;  
  32.   NOTE_6 = 733*1;  
  33.   NOTE_7 = 825*1;  
  34.   
  35. begin  
  36.   try  
  37.     //長亭外  
  38.     Beep(NOTE_5, ONE_BEEP);  
  39.     Beep(NOTE_3, HALF_BEEP);  
  40.     Beep(NOTE_5, HALF_BEEP);  
  41.     Beep(NOTE_1 * 2, ONE_BEEP * 2);  
  42.   
  43.     //古道邊  
  44.     Beep(NOTE_6, ONE_BEEP);  
  45.     Beep(NOTE_1 * 2, ONE_BEEP);  
  46.     Beep(NOTE_5, ONE_BEEP * 2);  
  47.   
  48.     //芳草碧連天  
  49.     Beep(NOTE_5, ONE_BEEP);  
  50.     Beep(NOTE_1, HALF_BEEP);  
  51.     Beep(NOTE_2, HALF_BEEP);  
  52.     Beep(NOTE_3, ONE_BEEP);  
  53.     Beep(NOTE_2, HALF_BEEP);  
  54.     Beep(NOTE_1, HALF_BEEP);  
  55.     Beep(NOTE_2, ONE_BEEP * 4);  
  56.   
  57.     //晚風(fēng)扶柳笛聲殘  
  58.     Beep(NOTE_5, ONE_BEEP);  
  59.     Beep(NOTE_3, HALF_BEEP);  
  60.     Beep(NOTE_5, HALF_BEEP);  
  61.     Beep(NOTE_1 * 2, HALF_BEEP * 3);  
  62.     Beep(NOTE_7, HALF_BEEP);  
  63.     Beep(NOTE_6, ONE_BEEP);  
  64.     Beep(NOTE_1 * 2, ONE_BEEP);  
  65.     Beep(NOTE_5, ONE_BEEP * 2);  
  66.   
  67.     //夕陽山外山  
  68.     Beep(NOTE_5, ONE_BEEP);  
  69.     Beep(NOTE_2, HALF_BEEP);  
  70.     Beep(NOTE_3, HALF_BEEP);  
  71.     Beep(NOTE_4, HALF_BEEP * 3);  
  72.     Beep(round(NOTE_7 / 2), HALF_BEEP);  
  73.     Beep(NOTE_1, ONE_BEEP * 4);  
  74.   
  75.     //天之涯  
  76.     Beep(NOTE_6, ONE_BEEP);  
  77.     Beep(NOTE_1 * 2, ONE_BEEP);  
  78.     Beep(NOTE_1 * 2, ONE_BEEP * 2);  
  79.   
  80.     //地之角  
  81.     Beep(NOTE_7, ONE_BEEP);  
  82.     Beep(NOTE_6, HALF_BEEP);  
  83.     Beep(NOTE_7, HALF_BEEP);  
  84.     Beep(NOTE_1 * 2, ONE_BEEP * 2);  
  85.   
  86.     //知交半零落  
  87.     Beep(NOTE_6, HALF_BEEP);  
  88.     Beep(NOTE_7, HALF_BEEP);  
  89.     Beep(NOTE_1 * 2, HALF_BEEP);  
  90.     Beep(NOTE_6, HALF_BEEP);  
  91.     Beep(NOTE_6, HALF_BEEP);  
  92.     Beep(NOTE_5, HALF_BEEP);  
  93.     Beep(NOTE_3, HALF_BEEP);  
  94.     Beep(NOTE_1, HALF_BEEP);  
  95.     Beep(NOTE_2, ONE_BEEP * 4);  
  96.   
  97.     //一壺濁酒盡余歡  
  98.     Beep(NOTE_5, ONE_BEEP);  
  99.     Beep(NOTE_3, HALF_BEEP);  
  100.     Beep(NOTE_5, HALF_BEEP);  
  101.     Beep(NOTE_1 * 2, HALF_BEEP * 3);  
  102.     Beep(NOTE_7, HALF_BEEP);  
  103.     Beep(NOTE_6, ONE_BEEP);  
  104.     Beep(NOTE_1 * 2, ONE_BEEP);  
  105.     Beep(NOTE_5, ONE_BEEP * 2);  
  106.   
  107.     //今宵別夢寒  
  108.     Beep(NOTE_5, ONE_BEEP);  
  109.     Beep(NOTE_2, HALF_BEEP);  
  110.     Beep(NOTE_3, HALF_BEEP);  
  111.     Beep(NOTE_4, HALF_BEEP * 3);  
  112.     Beep(round(NOTE_7 / 2), HALF_BEEP);  
  113.     Beep(NOTE_1, ONE_BEEP * 3);  
  114.   except  
  115.     on E: Exception do  
  116.       Writeln(E.Classname, ': ', E.Message);  
  117.   end;  
  118. end.  

 

    本站是提供個人知識管理的網(wǎng)絡(luò)存儲空間，所有內(nèi)容均由用戶發(fā)布，不代表本站觀點(diǎn)。請注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購買等信息，謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請點(diǎn)擊一鍵舉報。
    轉(zhuǎn)藏 分享 獻(xiàn)花（0）

    0條評論

    發(fā)表

    請遵守用戶 評論公約

    類似文章 更多