我们一起抽奖吧！！怎么用sas做抽奖程序？

年末了，各种新年晚会，节目精彩纷呈，其中少不了的是抽奖环节，现在很多抽奖都用程序自动抽奖，
主持人喊开始，程序自动运行，滚动显示奖券号码，主持人喊停，滚动停止，显示中奖号码，这是一个随机的过程。

这是一个很简单的计算机程序，可能很多语言都可以写。

现在想一起，能不能用sas也实现上述随机抽奖过程，sas利用随机数随机挑取数据并不难，但问题是如何能在界面显示上也类同于抽奖程序界面显示，好像不是很好弄，特来求助高手

现假设场景如下：
共500名观众，有500张奖券，要抽三轮奖：阳光普照奖（10名），新年快乐奖（5名），特等奖（1名）
如何实现以下内容：
1、利用sas宏程序，两个宏参数分别为抽奖类型（上述三个）和抽奖名额（可以自己设定）。
2、运行程序之后，怎么与windows系统设置接口，使得点击鼠标或按回车键（不管如何，反正是人为发出指令），让随机过程开始，并能够在屏幕显示模拟抽奖过程的号码滚动界面，当再次人为给出指令，滚动停止，随机选择出中奖名单，通过ods显示出来：阳光普照奖：101 25 302.......
3、是否可通过插入图片等方法使得显示的中奖名单界面更美观漂亮？
第二，在抽完第一轮的奖之后，要把已经抽到奖的名单排除掉，再抽下一轮的，也就是说，只要运行过三等奖的程序，
就要把中奖的10个人去掉，运行二等奖时只有490人，一等奖的sample只有485人。

这个应该不是sas的强项，但不知道sas能不能做出来这种效果？请各位高手尝试一下，悬赏会给做得最好的人。
为了我和新手学习，请高手尽量对程序作注释。
祝各位新年中大奖。

用WINDOW和DISPLAY语句试了一下，不能控制什么时候结束。
各位高手，小心砖头。

（不小心上传了两个同样的图片，不知道怎么删掉了）

1. *** total number of applicants;
   
2. %let total=500;
   
3. 
   
4. data _null_;
   
5.         length  sunshines happy2013 urspecial message cong $50 already $200;
   
6. 
   
7.         *** Defines the Window;
   
8.         window brick_throwing color=red rows=30 columns=80
   
9.            #5  @18 '******************************************' color=yellow
   
10.            #7  @18 '  SASors on Pinggu.org,  Happy New Year!  ' color=yellow
    
11.            #9  @18 '******************************************' color=yellow
    
12. 
    
13.            # 14 @10 'Prize Type:  ' attr=underline  color=yellow
    
14.                     +10 'Winner:                                  '      attr=underline color=yellow
    
15. 
    
16.            # 15 @12 'Sun Shines  ' color=yellow
    
17.                     +10 Sunshines color=yellow protect=yes
    
18. 
    
19.            # 16 @12 'Happy 2013  ' color=yellow
    
20.                     +10 Happy2013 color=yellow protect=yes
    
21. 
    
22.            # 17 @12 'U R Special ' color=yellow
    
23.                     +10 URSpecial color=yellow protect=yes
    
24. 
    
25.            # 20 @30 cong  color=yellow protect=yes
    
26.            # 22 @18 message color=cyan protect=Yes;
    
27. 
    
28.            message="Please press ENTER to start.";
    
29. 
    
30.         *** Display the window and ask the user to press ENTER;
    
31.         display brick_throwing blank;
    
32.         link pause ;
    
33. 
    
34.         *** Sun shines prize;
    
35.         do i=1 to 20 ;
    
36.                call missing(already);
    
37.                call missing(sunshines);
    
38.                 *** Get 10 different obs numbers and concatenate them;
    
39.                 number=0;
    
40.                do until (number=10);
    
41.                    tmp=ceil(ranuni(0)*&total);
    
42.                    if not indexw(already,cats(tmp)) then do;
    
43.                           number+1;
    
44.                           already=catx(" ",already,tmp);
    
45.                           sunshines=catx(" ",sunshines,tmp);
    
46.                    end;            
    
47.                 end;
    
48.                 *** Display the process of drawing "Sun shines prize";
    
49.                 display brick_throwing noinput;
    
50.                 link pause ;
    
51.      end;
    
52. 
    
53.         *** Happy 2013;
    
54.         do i=1 to 20 ;
    
55.                *** put "Sun shines" winners to the "Black list";
    
56.                already=sunshines;
    
57.                 call missing(happy2013);
    
58.                 *** Get 5 different obs numbers;
    
59.                 number=0;
    
60.                do until (number=5);
    
61.                      tmp=ceil(ranuni(0)*&total);
    
62.                      if not indexw(already,cats(tmp)) then do;
    
63.                              number+1;
    
64.                              already=catx(" ",already,tmp);
    
65.                              happy2013=catx(" ",happy2013,tmp);
    
66.                      end;            
    
67.                 end;         
    
68.                 *** display the process for "happy 2013";
    
69.                 display brick_throwing noinput;
    
70.                 link pause ;
    
71.       end;
    
72. 
    
73.         *** U R Special;
    
74.         do i=1 to 20 ;
    
75.             *** make winners invalid for new prize;
    
76.             already=catx(" ",sunshines,happy2013);
    
77.             do until (flag=0);
    
78.                          tmp=ceil(ranuni(0)*&total);
    
79.                          flag=indexw(already,cats(tmp));
    
80.                 end;
    
81.              urspecial =cats(tmp);
    
82.                *** Display the process of the last prize;
    
83.                 display brick_throwing noinput;
    
84.                 link pause ;
    
85.         end ;
    
86. 
    
87.    *** wait for 1 second and congratulate the winners;
    
88.     do i=1 to 10; link pause; end;
    
89.     cong="Congratulations!!!";
    
90.     *** press ENTER to close;
    
91.    message="Please press Enter to close the window.";
    
92.    display brick_throwing blank;
    
93.    stop;
    
94. 
    
95.   *** Useful for the "rolling" effect;
    
96.   pause:
    
97.          now=time() ;
    
98.          do while((now+0.1)>time()) ;
    
99.          end ;
    
100. run;

复制代码

Imasasor热心公益啊！以后不要再和坛友发生激烈争执了 O(∩_∩)O~

期待SCL/AF 模块的高手，SAS的开发语言确实不懂

ziyenano 发表于 2013-1-5 09:52
期待SCL/AF 模块的高手，SAS的开发语言确实不懂

一定需要SCL语言来开发吗

数据分析师3K 发表于 2013-1-5 11:37
一定需要SCL语言来开发吗

貌似9.3的PROC GROOVY能够调用java,但是也不知道能不能在sas里用java开发？
不过我觉得期待一个会java的高手会比期待SAS开发高手更靠谱一点~
话又说回来，能够懂SAS又懂java的，好像也不多~
PS:只是自己一点缪论，对开发这块一窍不通

呵呵，很有趣啊，SAS果然强大无比~~~

ziyenano 发表于 2013-1-5 09:52
期待SCL/AF 模块的高手，SAS的开发语言确实不懂

要开发界面的话，应该要用SCL/AF模块， 但是搞SCL语言的人很少。早期，SAS中文论坛里还有一些人做，现在不知道我们这个论坛里有人做没？

webgu 发表于 2013-1-5 12:42
要开发界面的话，应该要用SCL/AF模块， 但是搞SCL语言的人很少。早期，SAS中文论坛里还有一些人做，现在不 ...

webgu兄可有研究？我是一窍不通，静待高手

数据分析师3K 发表于 2013-1-5 11:37
一定需要SCL语言来开发吗

如是不用SCL的话，用windows语句可以尝试。


data _null_;
   format ttype vtype 1.0;
   window  sample  color=red rows=24 columns=80 irow=1 icolumn=1
       group=sample

   #6  @28 '/************************** ********************\' color=yellow
   #10  @28 '|**********  新年快乐，欢乐抽奖！************* ***|' color=yellow  
   #14  @28 '\******************** **************************/' color=yellow

   #18 @30 '选择抽奖类型' color=yellow  @80 vtype color=white

   #24 @32 '1: 特等奖  ' color=yellow / /
          @32 '2: 新年快乐奖  ' color=yellow/ /
                  @32 '3: 阳光普照奖  ' color=yellow;
  

  if _n_=2 then stop;
  display sample.sample;

  call symput('vtype',vtype);
  return;
run;