Play music with SAS

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

%macro joy_to_the_world;
data holidays;
  retain fmtname '@$holiday';
  length data $3;
  ratio = 1.05946309436;
  str1 ='A A#B C C#D D#E F F#G G#';
  str2='A BbCbB#DbD EbFbE#GbG Ab';
  o = 1;
  do i = 0 to 87;
    p = 55 * ratio**i;
        data = compress(substr(str1,mod(i,12)*2+1,2)||o);
    output;
        if data^=compress(substr(str2,mod(i,12)*2+1,2)||o) then do;
          data = compress(substr(str2,mod(i,12)*2+1,2)||o);
          output;
        end;
        if mod(i,12)=2 then o=o+1;
  end;
  rename data=start p=label;
  keep fmtname data p;
run;
proc format cntlin=holidays; run;
%macro play(input);
data _Null_;
  %let i=1;
  %do %while(%scan(&input,&i,%str( ))^=);
    %let note = %scan(&input,&i,%str( ));
        %let pitch = %upcase(%scan(&note,1,=));
        %let duration = %scan(&note,2,=);
    %let i = %eval(&i+1);
        %if &pitch=R %then
          call sleep((1/&duration)*750);
        %else
          call sound(input("&pitch",$holiday.),(1/&duration)*300);
    ;
  %end;
run;
%mend;
%play(%str(
C6=1 B5=1.5 A5=6 G5=1 R=2 F5=2 E5=1 D5=1 C5=1
R=2 G5=2 A5=1 R=2 A5=2 B5=1 R=2 B5=2 C6=.33
C6=2 C6=2 B5=2 A5=2 G5=2 G5=1.5 F5=4 E5=2
C6=2 C6=2 B5=2 A5=2 G5=2 G5=1.5 F5=4 E5=2 E5=2
E5=2 E5=2 E5=2 E5=4 F5=4 G5=1 R=4 F5=4 E5=4
D5=2 D5=2 D5=2 D5=4 E5=4 F5=1 R=4 E5=4 D5=4
C5=2 C6=1 A5=2 G5=1.5 F5=6 E5=2 F5=2 E5=1 D5=1 C5=1
));
%mend joy_to_the_world;
%joy_to_the_world;

扫码加我 拉你入群

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

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

分享1 收藏1 回帖

关键词：Music play With Lay SIC holidays music

good but cant run my computer since we are using metadata server, all of these will be done on appdev server. I can not hear anything.

没有音乐呀

开挂了开挂了，这用SAS开发MIDI应用指日可待啊。。