Happy Birthday to Me.

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

1. data Tones2Hz;
   
2.         %let Do = 261.6256;
   
3.         %let Re = 293.6648;
   
4.         %let Mi = 329.6276;
   
5.         %let Fa = 349.2282;
   
6.         %let So = 391.9954;
   
7.         %let La = 440.0000;
   
8.         %let Ti = 493.8833;
   
9. 
   
10.         call sound(&Do.,333);
    
11.         call sound(&Re.,333);
    
12.         call sound(&Mi.,333);
    
13.         call sound(&Fa.,333);
    
14.         call sound(&So.,333);
    
15.         call sound(&La.,333);
    
16.         call sound(&Ti.,333);
    
17. run;
    
18. 
    
19. data HappyBirthDay;
    
20.         infile cards missover;
    
21.         input Lyrics$ Tone Scale Beat @;
    
22.         cards;
    
23.         祝        5        0        0.5
    
24.         你        5        0        0.5
    
25.         生        6        0        1
    
26.         日        5        0        1
    
27.         快        1        1        1
    
28.         乐        7        0        2
    
29.         ，                       
    
30.         祝        5        0        0.5
    
31.         你        5        0        0.5
    
32.         生        6        0        1
    
33.         日        5        0        1
    
34.         快        2        1        1
    
35.         乐        1        1        2
    
36.         ！                       
    
37.         祝        5        0        0.5
    
38.         你        5        0        0.5
    
39.         生        5        1        1
    
40.         日        3        1        1
    
41.         快        1        1        1
    
42.         乐        7        0        1
    
43.         乐        6        0        2
    
44.         ，                       
    
45.         祝        4        1        1
    
46.         你        4        1        1
    
47.         生        3        1        1
    
48.         日        1        1        1
    
49.         快        2        1        1
    
50.         乐        1        1        2
    
51.         ！                       
    
52.         ;
    
53. run;
    
54. 
    
55. data YuBeiChang;
    
56.         set HappyBirthDay;
    
57. 
    
58.         if Tone then do;
    
59.                 Hz = Choosen(Tone,&Do.,&Re.,&Mi.,&Fa.,&So.,&La.,&Ti.) * (Scale + 1);
    
60.                 call sound(Hz,Beat*333);
    
61.         end;
    
62. run;

复制代码

祝爸妈身体健康。
祝小学妹天天开心。
祝自己终有所成。

参考：
简谱 (http://www.zhaogepu.com/jianpu/87006.html)
Pinao Key Frequency (https://en.wikipedia.org/wiki/Piano_key_frequencies)
Middle C (https://en.wikipedia.org/wiki/C_(musical_note))

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：生日快乐 SAS call sound