用QBASIC编制“芭蕾舞曲”

Author: 陈炜先 Date: 1997-01-01
　　ＱＢＡＳＩＣ语言具有两种音乐编程功能。一种是用ＳＯＵＮＤ语句，后面加上音调的频率和持续的时间；另一种是用ＰＬＡＹ语句，后面加上置于双引号里的表示八度音程区和音阶的字母以及表示音长的数字。如果引号里的内容多处重复，可用一个表示字符串的变量名来替代。如本程序第３０行的变量Ａ＄即表示：八度音程区为００，音阶为Ａ，音长为８分音符，接着是８度音程为０１，音阶为Ｅ，音长又为８分音符。第３５行表示将第３０行Ａ＄所表示的两个音符连续重复演奏４次。第２０行表示节拍速度。本程序是用ＱＢＡＳＩＣ语言的后一种功能编程演奏的芭蕾舞曲《天鹅湖》中的一首乐曲。
　　５　ＣＬＳ
　　１０　ＬＯＣＡＴＥ　１２，２５：ＰＲＩＮＴ　＂芭蕾舞曲《四小天鹅》＂
　　２０　ＰＬＡＹ　　＂Ｔ１００＂
　　３０　Ａ＄＝＂００Ａ８０１Ｅ８＂
　　３５　ＰＬＡＹ　Ａ＄＋Ａ＄＋Ａ＄＋Ａ＄
　　４０　ＦＯＲ　Ｉ＝１　ＴＯ　２
　　４５　ＩＦ　Ｉ＝２　ＯＲ　Ｂ＝１　ＴＨＥＮ　５５
　　５０　ＰＬＡＹ　　＂Ｐ８０３Ｃ８Ｃ８Ｃ８＂：Ｂ＝０：　ＧＯＴＯ　６０
　　５５　ＰＬＡＹ　　＂０２Ａ８０３Ｃ８Ｃ８Ｃ８＂
　　６０　ＰＬＡＹ　　＂Ｃ８．０２Ｂ３２０３Ｃ３２Ｄ８Ｃ８＂
　　６５　ＰＬＡＹ　　＂０２Ｂ８０３Ｄ８Ｄ８Ｄ８Ｄ８．Ｃ３２Ｄ３２Ｅ８Ｄ８＂
　　７０　ＰＬＡＹ　　＂Ｃ８Ｅ８Ａ８Ｇ＃８Ｅ８０２Ｂ８０３Ｅ１６Ｄ１６Ｃ１６０２Ｂ１６＂
　　８０　ＰＬＡＹ　　＂０２Ａ８０３Ｅ８Ａ８Ｇ＃８０３Ｅ８０２Ｂ８０３Ｅ１６Ｄ１６Ｃ１６０２Ｂ１６＂
　　９０　ＮＥＸＴ
　　１００　ＩＦ　Ｂ＝１　ＴＨＥＮ　２３０
　　１１０　ＦＯＲ　Ｉ＝１　ＴＯ　２：　Ａ＝０
　　１２０　ＰＬＡＹ　　＂０２Ａ８０３Ｅ８Ｅ８Ｅ＂
　　１２５　ＰＬＡＹ　　＂Ｅ８Ｅ８Ａ１６Ｇ１６Ｆ１６Ｅ１６＂
　　１３０　ＰＬＡＹ　　＂Ｄ８Ｅ４Ｆ４Ｃ＃４Ｄ８Ｄ８Ｄ８Ｄ８Ｄ８Ｄ８Ｄ８Ｇ１６Ｆ１６Ｅ１６Ｄ１６＂
　　１４０　ＩＦ　Ａ＝１　ＴＨＥＮ　１８０
　　１５０　ＰＬＡＹ　　＂Ｃ８Ｇ８Ｂ１６Ａ１６Ｇ１６Ｆ１６Ｅ８Ｂ８０４Ｄ１６Ｃ１６０３Ｂ１６Ａ１６＂
　　１６０　ＰＬＡＹ　　＂０３Ｇ８Ｅ８Ｅ８Ｅ８＂
　　１７０　Ａ＝１：　ＧＯＴＯ　１２５
　　１８０　ＰＬＡＹ　　＂０３Ｃ８０２Ａ８Ｂ１６０３Ｃ１６Ｄ１６Ｄ＃１６Ｅ８０２Ｅ８Ｆ１６Ｆ＃１６Ｇ１６Ｇ＃１６＂
　　１９０　ＮＥＸＴ
　　２２０　Ｂ＝１：　ＧＯＴＯ　４０
　　２３０　ＦＯＲ　Ｉ＝１　ＴＯ　２
　　２４０　ＰＬＡＹ　　＂０２Ａ８０３Ｅ８Ｄ８Ｅ１６Ｄ１６Ｃ８Ｅ８Ｄ８Ｅ１６Ｄ１６＂
　　２５０　ＰＬＡＹ　　＂Ｃ８Ｅ４Ｄ４Ｃ４０２Ｂ８＂
　　２６０　ＮＥＸＴ
　　２７０　ＰＬＡＹ　　＂０２Ａ８０３Ｇ＃８Ａ４＂
　　２８０　ＥＮＤ