用QBASIC实现背景音乐

刘树玉
1997-01-01

　　在ＱＢＡＳＩＣ中我们可以利用陷阱技术使你的软件具有后台演奏音乐功能，即背景音乐功能。
　　下面介绍如何利用陷阱技术编程：
　　１．事件设置语句：
　　ＯＮ　ＰＬＡＹ（ｎ）　ＧＯＳＵＢ　ＢＡＣＫＧＲＯＵＮＤ
　　其中ＰＬＡＹ为音乐演奏函数
　　ｎ为任意整数
　　ＢＡＣＫＧＲＯＵＮＤ为事件处理子程序的入口标号
　　２．音乐启停控制语句
　　ＰＬＡＹ　｛ＯＮ｜ＯＦＦ｜ＳＴＯＰ｝
　　ＯＮ：允许音乐演奏事件自陷
　　ＯＦＦ：禁止音乐演奏事件自陷
　　ＳＴＯＰ：暂停音乐演奏事件自陷
　　（关于如何编写音乐的音调和节拍，请参见有关参考书，在此不再赘述。）
　　子程序的返回语句用ＲＥＴＵＲＮ来完成，返回后，程序自动执行ＰＬＡＹ　ＯＮ语句，我们利用这一个特点，就可以编写一个在后台循环演奏的音乐程序，在我们的程序往下执行的过程中，程序自动演奏音乐。
　　例如我们想画一个圆球，不断地改变圆球的颜色的同时，在后台演奏音乐；同时，每演奏一遍音乐在屏幕上显示出演奏第几遍音乐，按任意键即可中止程序执行。
　　程序清单如下：
　　ＣＬＳ
　　ＳＣＲＥＥＮ　１２“设置显示模式”
　　ＩＩ＝２　“循环变量赋初值”
　　ＯＮ　ＰＬＡＹ（３）　ＧＯＳＵＢ　ＢＡＣＫＧＲＯＵＮＤ“设置音乐事件自陷”
　　ＰＬＡＹ　ＯＮ　“允许自陷”
　　ＭＵＳＩＣ＄＝“ＭＢＯ３Ｌ８ＣＤＥＦＧＡＢＥＤ”　“设置演奏字符串”
　　ＰＬＡＹ　ＭＵＳＩＣ＄　“演奏指定的字符串”
　　ＬＯＣＡＴＥ　８，３４：ＰＲＩＮＴ　“按任意键停止”
　　ＤＯ　ＷＨＩＬＥ　ＩＮＫＥＹ＄＝“”
　　ＩＦ　ＩＩ＞４　ＴＨＥＮ　ＩＩ－１：ＧＯＴＯ　１
　　ＩＦ　ＩＩ＜＝１　ＴＨＥＮ　ＩＩ＝ＩＩ＋１
　　１　ＦＯＲ　Ｉ＝１　ＴＯ　１００００：ＮＥＸＴ　１　“延时语句”
　　ＣＩＲＣＬＥ　（３１０，２５０），６０，２　“画圆”
　　ＰＡＩＮＴ　（３１０，２５０），ＩＩ，２　“在圆内着色”
　　ＬＯＯＰ　“执行颜色循环体”
　　ＥＮＤ
　　ＢＡＣＫＧＲＯＵＮＤ：“演奏子程序”
　　Ａ％＝Ａ％＋１
　　ＬＯＣＡＴＥ　４，３４：ＰＲＩＮＴ　“第”；Ａ％；“遍音乐”
　　ＰＬＡＹ　ＭＵＳＩＣ＄
　　ＲＥＴＵＲＮ
　　如此，你编出来的程序一定是“图文并貌，声色俱佳”。
 