QBASIC音乐.docVIP

QBASIC音乐 QBASIC音乐.txt男人应该感谢20多岁陪在自己身边的女人。因为20岁是男人人生的最低谷，没钱，没事业；而20岁，却是女人一生中最灿烂的季节。只要锄头舞得好，哪有墙角挖不到？用QBASIC实现背景音乐 　　在ＱＢＡＳＩＣ中我们可以利用陷阱技术使你的软件具有后台演奏音乐功能，即背景音乐功能。 　　下面介绍如何利用陷阱技术编程： 　　１．事件设置语句： 　　ＯＮ　ＰＬＡＹ（ｎ）　ＧＯＳＵＢ　ＢＡＣＫＧＲＯＵＮＤ 　　其中ＰＬＡＹ为音乐演奏函数 　　ｎ为任意整数 　　ＢＡＣＫＧＲＯＵＮＤ为事件处理子程序的入口标号 　　２．音乐启停控制语句 　　ＰＬＡＹ　｛ＯＮ｜ＯＦＦ｜ＳＴＯＰ｝ 　　ＯＮ：允许音乐演奏事件自陷 　　ＯＦＦ：禁止音乐演奏事件自陷 　　ＳＴＯＰ：暂停音乐演奏事件自陷 　　（关于如何编写音乐的音调和节拍，请参见有关参考书，在此不再赘述。） 　　子程序的返回语句用ＲＥＴＵＲＮ来完成，返回后，程序自动执行ＰＬＡＹ　ＯＮ语句，我们利用这一个特点，就可以编写一个在后台循环演奏的音乐程序，在我们的程序往下执行的过程中，程序自动演奏音乐。 　　例如我们想画一个圆球，不断地改变圆球的颜色的同时，在后台演奏音乐；同时，每演奏一遍音乐在屏幕上显示出演奏第几遍音乐，按任意键即可中止程序执行。 　　程序清单如下： 　　ＣＬＳ 　　ＳＣＲＥＥＮ　１２“设置显示模式”