这个程序是做什么用的，没弄明白？请教各位

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

%let pc=1.25;
%macro df3(note,octave,length);
select(&note.);
when('A') call sound(55*(2**&octave.),&length.*160*&pc.);
when('A#') call sound(58*(2**&octave.),&length.*160*&pc.);
when('Bb') call sound(58*(2**&octave.),&length.*160*&pc.);
when('B') call sound(62*(2**&octave.),&length.*160*&pc.);
when('C') call sound(65*(2**&octave.),&length.*160*&pc.);
when('C#') call sound(69*(2**&octave.),&length.*160*&pc.);
when('Db') call sound(69*(2**&octave.),&length.*160*&pc.);
when('D') call sound(73.5*(2**&octave.),&length.*160*&pc.);
when('D#') call sound(73.5*(2**&octave.),&length.*160*&pc.);
when('Eb') call sound(78*(2**&octave.),&length.*160*&pc.);
when('E') call sound(82*(2**&octave.),&length.*160*&pc.);
when('F') call sound(87*(2**&octave.),&length.*160*&pc.);
when('F#') call sound(92.5*(2**&octave.),&length.*160*&pc.);
when('Gb') call sound(92.5*(2**&octave.),&length.*160*&pc.);
when('G') call sound(98*(2**&octave.),&length.*160*&pc.);
when('G#') call sound(104*(2**&octave.),&length.*160*&pc.);
when('Ab') call sound(104*(2**&octave.),&length.*160*&pc.);
when('R') call sleep((&length./3)*&pc.,1);
otherwise;
end;
%mend;
/* SAMPLE */
/* Old MacDonald Had a Farm */
data _null_;
do i=1 to 2;
%df3('C',3,1);
%df3('C',3,1);
%df3('C',3,1);
%df3('G',2,1);
%df3('A',3,1);
%df3('A',3,1);
%df3('G',2,2);
%df3('E',3,1);
%df3('E',3,1);
%df3('D',3,1);
%df3('D',3,1);
%df3('C',3,2);
if i=1 then do;
%df3('R',1,2);
%df3('G',2,2);
end;
end;
%df3('G',2,.5);
%df3('G',2,.5);
%df3('C',3,1);
%df3('C',3,1);
%df3('C',3,1);
%df3('G',2,.5);
%df3('G',2,.5);
%df3('C',3,1);
%df3('C',3,1);
%df3('C',3,2);
%df3('C',3,.5);
%df3('C',3,.5);
%df3('C',3,1);
%df3('C',3,.5);
%df3('C',3,.5);
%df3('C',3,1);
%df3('C',3,.5);
%df3('C',3,.5);
%df3('C',3,.5);
%df3('C',3,.5);
%df3('C',3,1);
%df3('C',3,1);
%df3('C',3,1);
%df3('C',3,1);
%df3('C',3,1);
%df3('G',2,1);
%df3('A',3,1);
%df3('A',3,1);
%df3('G',2,2);
%df3('E',3,1);
%df3('E',3,1);
%df3('D',3,1);
%df3('D',3,1);
%df3('C',3,3);
run;

扫码加我 拉你入群

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

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

分享0 收藏1 回帖

关键词：做什么 otherwise length octave Select 做什么 程序

你看懂这个了吗？

个人理解可能是这样的.
sas sound(freq,length) 函数用两个参数，频率和长度，来定义一个声音。
note　的值与钢琴的键相对应。　宏df3定义了一个１８个的键简单键盘。
data step 中每一次调用宏df3，相当于敲击一次键盘中的一个键.　

yongyitian 发表于 2013-11-25 00:35
个人理解可能是这样的.
sas sound(freq,length) 函数用两个参数，频率和长度，来定义一个声音。
note　的 ...

谢谢您的解释，它有什么用呢？我用sas跑了，没发现什么变化，望能给解释一下。

lqwoailuo 发表于 2013-11-25 08:57
谢谢您的解释，它有什么用呢？我用sas跑了，没发现什么变化，望能给解释一下。

嗯，你得有sound宏的定义啊，先调用这个宏
然后运行你上面的代码，顺便把音箱打开
接着你就应该能听到Old MacDonald Had a Farm了，一首儿歌
lz你要是有全部的宏，或者相关的资料，发上来吧
我也想学习学习

lqwoailuo 发表于 2013-11-25 08:57
谢谢您的解释，它有什么用呢？我用sas跑了，没发现什么变化，望能给解释一下。

就是 播放一段音乐(play a music)，音乐播完了也结束了。

要先编译宏 df3，然后运行 data step，就应该可以听到音乐声了，不过sas的sound函数好像用的是计算机 bio 的 beep　sound，所以声音比较小。

如果把这段程序放在一段需要运行很长时间的程序的后面，当程序运行结束后就会播放这段音乐，提醒你程序运行完了。

playmore 发表于 2013-11-25 09:19
嗯，你得有sound宏的定义啊，先调用这个宏
然后运行你上面的代码，顺便把音箱打开
接着你就应该能听到O ...

这就是我现在手里有的全部程序了，当时别人给我的时候也就给了我这些。

playmore 发表于 2013-11-25 09:19
嗯，你得有sound宏的定义啊，先调用这个宏
然后运行你上面的代码，顺便把音箱打开
接着你就应该能听到O ...

这个程序就是我有的全部了，没有更多了。

yongyitian 发表于 2013-11-25 10:19
就是 播放一段音乐(play a music)，音乐播完了也结束了。

要先编译宏 df3，然后运行 data step，就应该 ...

谢谢你的答复。