标题神奇的声音程序
栏目软件大世界
作者刘友生
发布1997-01-01
三声爆竹,接着响起了电话铃声,随着三声警报声,救护车风驰电掣驶过。照样输入下面的程序,并运行,你会体会到声音语句的神奇魔力,如果在游戏中使用,效果一定不错。该程序用QBASIC编写,在多种机型上调试通过。
爆竹声
FOR K=1 TO 3
FOR i=2805 TO 1360 STEP -30
SOUND i,.6
NEXT i
NEXT K
'电话铃声
FOR i=1 TO 15
SOUND 1200,2:SOUND 300,1
FOR K=1 TO 2500:NEXT
NEXT
警报声
CLS
FOR K=1 TO 3
FOR i=1 TO 5
SOUND 900,2
NEXT i
FOR i=1 TO 5
SOUND 540,2
NEXT
NEXT K
救护车声
FOR j=1 TO 3
FOR i=560 TO 1905 STEP 30
SOUND i,.5
NEXT i
FOR i=1905 TO 560 STEP -30
SOUND i,.8
NEXT i
NEXT j