楼主: zhou.wen
2941 3

[程序分享] Make a song using the 'call sound' [推广有奖]

已卖：4460份资源

教授

9%

还不是VIP/贵宾

-

TA的文库  其他...

SAS Technology

0%
威望
0 级
论坛币
31987 个
通用积分
6.2141
学术水平
283 点
热心指数
262 点
信用等级
257 点
经验
56058 点
帖子
396
精华
4
在线时间
1328 小时
注册时间
2010-10-12
最后登录
2018-3-9

初级学术勋章 初级热心勋章 中级学术勋章 中级热心勋章

楼主
zhou.wen 发表于 2013-5-24 15:19:50 |AI写论文

+2 论坛币
k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群
赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币
It was such a boring day.
How about make a song using my favorite SAS.
Listening to my song and relax.Hope you enjoy it.
  1. %let pc=1.25;
  2. %macro df3(note,octave,length);
  3. select(¬e.);
  4.   when('A')  call sound(55*(2**&octave.),&length.*160*&pc.);
  5.   when('A#') call sound(58*(2**&octave.),&length.*160*&pc.);
  6.   when('Bb') call sound(58*(2**&octave.),&length.*160*&pc.);
  7.   when('B')  call sound(62*(2**&octave.),&length.*160*&pc.);
  8.   when('C')  call sound(65*(2**&octave.),&length.*160*&pc.);
  9.   when('C#') call sound(69*(2**&octave.),&length.*160*&pc.);
  10.   when('Db') call sound(69*(2**&octave.),&length.*160*&pc.);
  11.   when('D')  call sound(73.5*(2**&octave.),&length.*160*&pc.);
  12.   when('D#') call sound(73.5*(2**&octave.),&length.*160*&pc.);
  13.   when('Eb') call sound(78*(2**&octave.),&length.*160*&pc.);
  14.   when('E')  call sound(82*(2**&octave.),&length.*160*&pc.);
  15.   when('F')  call sound(87*(2**&octave.),&length.*160*&pc.);
  16.   when('F#') call sound(92.5*(2**&octave.),&length.*160*&pc.);
  17.   when('Gb') call sound(92.5*(2**&octave.),&length.*160*&pc.);
  18.   when('G')  call sound(98*(2**&octave.),&length.*160*&pc.);
  19.   when('G#') call sound(104*(2**&octave.),&length.*160*&pc.);
  20.   when('Ab') call sound(104*(2**&octave.),&length.*160*&pc.);
  21.   when('R')  call sleep((&length./3)*&pc.,1);
  22. otherwise;
  23. end;
  24. %mend;
  25. /* SAMPLE */
  26. /* Old MacDonald Had a Farm */
  27. data _null_;
  28.   do i=1 to 2;
  29.     %df3('C',3,1) ;
  30.     %df3('C',3,1) ;
  31.     %df3('C',3,1) ;
  32.     %df3('G',2,1) ;
  33.     %df3('A',3,1) ;
  34.     %df3('A',3,1) ;
  35.     %df3('G',2,2) ;
  36.     %df3('E',3,1) ;
  37. /*  SUGI 29  Coders' Corner4*/
  38.     %df3('E',3,1) ;
  39.     %df3('D',3,1) ;
  40.     %df3('D',3,1) ;
  41.     %df3('C',3,2) ;
  42.     if i=1 then do;
  43.       %df3('R',1,2);
  44.       %df3('G',2,2);
  45.     end;
  46.   end;
  47.   %df3('G',2,.5);
  48.   %df3('G',2,.5);
  49.   %df3('C',3,1);
  50.   %df3('C',3,1);
  51.   %df3('C',3,1);
  52.   %df3('G',2,.5);
  53.   %df3('G',2,.5);
  54.   %df3('C',3,1);
  55.   %df3('C',3,1);
  56.   %df3('C',3,2);
  57.   %df3('C',3,.5);
  58.   %df3('C',3,.5);
  59.   %df3('C',3,1);
  60.   %df3('C',3,.5);
  61.   %df3('C',3,.5);
  62.   %df3('C',3,1);
  63.   %df3('C',3,.5);
  64.   %df3('C',3,.5);
  65.   %df3('C',3,.5);
  66.   %df3('C',3,.5);
  67.   %df3('C',3,1);
  68.   %df3('C',3,1);
  69.   %df3('C',3,1);
  70.   %df3('C',3,1);
  71.   %df3('C',3,1);
  72.   %df3('G',2,1);
  73.   %df3('A',3,1);
  74.   %df3('A',3,1);
  75.   %df3('G',2,2);
  76.   %df3('E',3,1);
  77.   %df3('E',3,1);
  78.   %df3('D',3,1);
  79.   %df3('D',3,1);
  80.   %df3('C',3,3);
  81. run;
复制代码




补充内容 (2013-11-3 17:15):
代码出自：http://www2.sas.com/proceedings/sugi29/048-29.pdf
二维码

扫码加我 拉你入群

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

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

分享0
关键词：Using Sound call make song about

相关帖子

已有 1 人评分学术水平 热心指数 信用等级 收起 理由
zll_zh + 1 + 1 + 1 wonderful

总评分: 学术水平 + 1  热心指数 + 1  信用等级 + 1   查看全部评分

本帖被以下文库推荐

Practice Is The Best Teacher!

沙发
zhou.wen 发表于 2013-5-24 15:34:44
  1. data _null_;
  2.         call sound(659,500);
  3.         call sound(587,500);
  4.         call sound(523,500);
  5. run;

  7. data _null_;
  8.         call sound(659,200);
  9.         call sound(587,200);
  10.         call sound(523,200);
  11.         call sound(587,200);
  12.         call sound(659,200);
  13.         call sound(659,200);
  14.         call sound(659,200);
  15.         call sound(587,200);
  16.         call sound(587,200);
  17.         call sound(587,200);
  18.         call sound(659,200);
  19.         call sound(659,200);
  20.         call sound(659,200);
  21.         call sound(659,200);
  22.         call sound(587,200);
  23.         call sound(523,200);
  24.         call sound(587,200);
  25.         call sound(659,200);
  26.         call sound(659,200);
  27.         call sound(659,200);
  28.         call sound(587,200);
  29.         call sound(587,200);
  30.         call sound(659,200);
  31.         call sound(587,200);
  32.         call sound(523,200);
  33. run;
复制代码
已有 1 人评分学术水平 热心指数 信用等级 收起 理由
zll_zh + 1 + 1 + 1 精彩帖子

总评分: 学术水平 + 1  热心指数 + 1  信用等级 + 1   查看全部评分

Practice Is The Best Teacher!

藤椅
zhou.wen 发表于 2013-5-24 15:35:26
可以把这个存成宏，程序最后都运行这个，那就可以声音提示你什么时候运行完了，呵呵
已有 1 人评分热心指数 收起 理由
zll_zh + 1 热心

总评分: 热心指数 + 1   查看全部评分

Practice Is The Best Teacher!

板凳
zll_zh 发表于 2013-5-27 12:37:07
marked
返回列表
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 我要注册

本版微信群
加好友,备注cda
拉您进交流群

京ICP备16021002号-2 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问：王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2025-12-6 02:53