新春SETI彩蛋

cuihao

无聊得慌写了一个小程序：
SETI.zip (8.36 KB, 下载次数: 2362)

2010-2-13 22:31 上传

点击文件名下载附件

先阅读readme.txt，然后运行SETI.exe，stop.exe用于意外情况。

我用古老的Turbo Pascal编写的，刚开始是一段花屏，按下任意键进入动画，动画放映后可以按s播放歌曲，q退出（放歌时按q也可以，点x也可以）。
里面的动画速度、乐曲速度可能不同电脑会有所不同，兼容性一般。音箱关掉，如果听不到歌曲，也不用开了。
alt+enter全屏效果更佳。
祝用户好运！

cuihao

另：感谢 v724 的测试。

BiscuiT

以 xp 兼容模式运行照旧。。

cuihao

...你64位系统吗？
这个程序是16位DOS程序 。

cuihao

SETI.zip (18.63 KB, 下载次数: 2449)

2010-2-13 22:55 上传

点击文件名下载附件

32位兼容版本，无音乐（最精彩的音乐啊...）。

muclemanxb

别人听了，强迫我关掉

cuihao

...真的没人听出来这是啥歌？

universebreaker

下了這東西的我,滿心歡喜地開了耳筒~

誰知竟然是用底板的蜂鳴器,倒...

cuihao

终于有人听出来了。

universebreaker

下次不妨來首歌聲魅影
半夜播出來不撞鬼才奇xp

cuihao

敲这种程序的代码，累死人了 。
好在黄河大合唱谱子简单。

1. uses Crt;
   
2. 
   
3. var
   
4.   X, Y, i, j: Byte;
   
5.   ch:char;
   
6. 
   
7. procedure    music(i:integer; n,wait:integer);
   
8. var st,hz:real;
   
9. begin
   
10.   case i of
    
11.    0:st:=130.5;
    
12.    1:st:=261;
    
13.    2:st:=522;
    
14.   end;
    
15.   case n of
    
16.    0:hz:=-st;
    
17.    1:hz:=0;
    
18.    2:hz:=st*1/12*2;
    
19.    3:hz:=st*1/12*4;
    
20.    4:hz:=st*1/12*6;
    
21.    5:hz:=st*1/12*7;
    
22.    6:hz:=st*1/12*9;
    
23.    7:hz:=st*1/12*11;
    
24.    8:hz:=st*1/12*12;
    
25.   end;
    
26.   sound(round(st+hz));
    
27.   delay(100*wait);
    
28.   nosound;
    
29.   delay(50);
    
30. 
    
31.   if keypressed then
    
32.     if readkey='q' then
    
33.       halt;
    
34. end;
    
35. 
    
36. procedure resetscr(x,y,xx,yy:integer);
    
37.   begin
    
38.     Window(x, y, xx, yy);
    
39.     TextBackground(Black);
    
40.     clrscr;
    
41.   end;
    
42. 
    
43. procedure printscr(x,y,xx,yy:integer; color:byte);
    
44.   begin
    
45.     window(x,y,xx,yy);
    
46.     TextBackground(color);
    
47.     clrscr;
    
48.   end;
    
49. 
    
50. begin
    
51.   TextBackground(Black);   { Clear screen }
    
52.   ClrScr;
    
53. 
    
54.   randomize;
    
55.   repeat
    
56.     X:= Succ(Random(80));
    
57.     Y:= Succ(Random(25));
    
58.     printscr(X, Y, X + Random(10), Y + Random(8), Random(16));
    
59. 
    
60.     sound(2000);
    
61.     delay(2);
    
62.     nosound;
    
63.     delay(3);
    
64.   until KeyPressed;
    
65. 
    
66.   resetscr(1,1,80,25);
    
67.   TextColor(white);
    
68. 
    
69.   printscr(1,1,3,7,yellow);
    
70.   printscr(4,1,8,1,yellow);
    
71.   printscr(4,4,8,4,yellow);
    
72.   printscr(4,7,8,7,yellow);
    
73.   delay(200);
    
74. 
    
75.   printscr(11,1,12,7,yellow);
    
76.   printscr(13,1,16,2,yellow);
    
77.   printscr(13,6,16,7,yellow);
    
78.   printscr(17,1,18,8,yellow);
    
79.   delay(200);
    
80. 
    
81.   printscr(21,1,22,7,yellow);
    
82.   printscr(23,6,26,7,yellow);
    
83.   printscr(27,1,28,6,yellow);
    
84.   delay(200);
    
85. 
    
86.   printscr(31,1,32,7,yellow);
    
87.   printscr(33,1,36,2,yellow);
    
88.   printscr(37,2,38,7,yellow);
    
89. 
    
90. 
    
91.   for i:=1 to 11 do
    
92.   begin
    
93.     resetscr(1+i-1,10+i-1,10+i-1,13+i-1);
    
94.     printscr(3+i, 10+i, 8+i, 11+i, red);
    
95.     writeln('   @');
    
96.     write('  -|-');
    
97.     printscr(1+i, 12+i, 10+i, 13+i, green);
    
98.     writeln(' ********');
    
99.     write('  BAD ET');
    
100.     delay(100);
     
101.   end;
     
102. 
     
103.   for i:=30 downto 1 do
     
104.   begin
     
105.     resetscr(40,24,80,25);
     
106. 
     
107.     for j:=1 to i do
     
108.       write(' ');
     
109.     writeln('_|_');
     
110.     for j:=1 to i do
     
111.       write(' ');
     
112.     write(' |\');
     
113. 
     
114.     delay(50);
     
115.   end;
     
116. 
     
117.   printscr(25,18,43,22,green);
     
118.   writeln('|---| |      |-|');
     
119.   writeln('|   | |      | |');
     
120.   writeln('|   | |---|  | |');
     
121.   writeln('|   | |   |   T');
     
122.   write  ('|---| |   |   O');
     
123.   delay(300);
     
124.   sound(1000);
     
125.   delay(100);
     
126.   nosound;
     
127. 
     
128.   printscr(60,1,80,17,lightgray);
     
129.   textcolor(black);
     
130.   write('=====================');
     
131.   write('|  WANT TO FINT ET? |');
     
132.   write('|  Visit   ');
     
133.   TextColor(LightRed+Blink);
     
134.   write('equn.com');
     
135.   textcolor(black);
     
136.   write(' |');
     
137.   write('|                   |');
     
138.   write('| We are members    |');
     
139.   write('|             OF    |');
     
140.   write('| |--- |--- ---- == |');
     
141.   write('| |___ |___   |  || |');
     
142.   write('| ___| |___   |  || |');
     
143.   write('|                == |');
     
144.   write('|                   |');
     
145.   write('|-------------------|');
     
146.   writeln;
     
147.   writeln(' PRESS "s" TO');
     
148.   writeln('     play a song!');
     
149.   writeln(' PRESS "q" TO EXIT');
     
150. 
     
151.   readkey;
     
152.   repeat
     
153.     ch:=readkey;
     
154.   until (ch='s')or(ch='q');
     
155. 
     
156.   if ch='s' then
     
157.   begin
     
158.     music(2,1,4);
     
159.     music(2,1,2);
     
160.     music(1,3,2);
     
161.     music(1,5,8);
     
162. 
     
163.     music(2,1,4);
     
164.     music(2,1,2);
     
165.     music(1,3,2);
     
166.     music(1,5,8);
     
167. 
     
168.     music(1,3,2);
     
169.     music(1,3,4);
     
170.     music(1,5,2);
     
171.     music(2,1,4);
     
172.     music(2,1,4);
     
173. 
     
174.     music(1,6,2);
     
175.     music(1,6,4);
     
176.     music(1,4,2);
     
177.     music(2,2,4);
     
178.     music(2,2,4);
     
179. 
     
180.     music(1,5,3);
     
181.     music(1,6,1);
     
182.     music(1,5,2);
     
183.     music(1,4,2);
     
184.     music(1,3,3);
     
185.     music(1,2,1);
     
186.     music(1,3,2);
     
187.     music(1,0,2);
     
188. 
     
189.     music(1,5,3);
     
190.     music(1,6,1);
     
191.     music(1,5,2);
     
192.     music(1,4,2);
     
193.     music(1,3,2);
     
194.     music(1,2,2);
     
195.     music(1,3,2);
     
196.     music(1,1,2);
     
197. 
     
198.     music(1,5,6);
     
199.     music(1,6,2);
     
200.     music(2,1,4);
     
201.     music(1,3,4);
     
202.     music(1,5,3);
     
203.     music(2,3,1);
     
204.     music(2,2,2);
     
205.     music(2,1,2);
     
206.     music(1,5,6);
     
207.     music(1,6,2);
     
208.     music(1,3,8);
     
209. 
     
210.     music(1,5,6);
     
211.     music(1,6,2);
     
212.     music(2,1,4);
     
213.     music(1,3,4);
     
214.     music(1,5,3);
     
215.     music(2,3,1);
     
216.     music(2,2,2);
     
217.     music(2,1,2);
     
218.     music(1,5,6);
     
219.     music(1,6,2);
     
220.     music(2,1,8);
     
221. 
     
222.     music(1,5,2);
     
223.     music(1,3,1);
     
224.     music(1,5,1);
     
225.     music(1,6,2);
     
226.     music(1,5,2);
     
227.     music(2,1,2);
     
228.     music(2,1,2);
     
229.     music(1,0,4);
     
230. 
     
231.     music(1,5,2);
     
232.     music(1,3,1);
     
233.     music(1,5,1);
     
234.     music(1,6,2);
     
235.     music(1,5,2);
     
236.     music(2,2,2);
     
237.     music(2,2,2);
     
238.     music(1,0,4);
     
239. 
     
240.     music(1,5,3);
     
241.     music(1,6,1);
     
242.     music(2,1,2);
     
243.     music(2,1,2);
     
244.     music(1,0,2);
     
245. 
     
246.     music(1,5,3);
     
247.     music(1,6,1);
     
248.     music(2,2,2);
     
249.     music(2,2,2);
     
250. 
     
251.     music(1,5,3);
     
252.     music(1,6,1);
     
253.     music(2,3,2);
     
254.     music(2,3,2);
     
255. 
     
256.     music(1,5,3);
     
257.     music(1,6,1);
     
258.     music(2,3,3);
     
259.     music(2,2,1);
     
260.     music(2,1,12);
     
261.   end;
     
262. end.
     

复制代码

Bismarck

高级啊……

已经多少年没碰过16位程序了（学校里的不算）

cuihao

什么高级啊...
因为32位的Pascal编译器发不出声音（好像与XP平台有关），C、C++图形编程也不会，就翻出古老的Turbo Pascal把里面的Help文档研究一下，写了这个程序。那个音乐是前年写的，重新翻出来了。
像这种东西，学奥赛的是不会教的。

记得刚学编程的时候，没有学循环，只靠 if 转折，我愣是打了将近1000行代码，写了一个把数字转换成英语单词的程序 。