神奇的声音程序

Author: 刘友生 Date: 1997-01-01

  三声爆竹,接着响起了电话铃声,随着三声警报声,救护车风驰电掣驶过。照样输入下面的程序,并运行,你会体会到声音语句的神奇魔力,如果在游戏中使用,效果一定不错。该程序用QBASIC编写,在多种机型上调试通过。       
#2  爆竹声
  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        
#2  警报声
  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
#2  救护车声
  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