程序员入门：QBASIC经典教程系列——最吸引人之音乐

路平 发布于：2021.08.02 - 22:01  所属分类：知识就是力量

QB中提供了专门的演奏音乐的语句PLAY和通用的发声语句SOUND，不过由于那会儿多媒体并不像如今这般流行，所以所谓的音乐也仅仅相当于手机中的单音铃声。对于听惯了低音炮、立体声、混响的我们，偶尔自娱自乐还是挺不错的 🙂

Play语句

下面先介绍PLAY语句
功能：演奏由给定的字符串所表示的音乐
格式：PLAY [命令字符串]
说明：[命令字符串]是一种音乐语言单个字符命令组成，用以表示音符的音高、音长、速度及演奏方式等。
乐谱中的音符CDEFGAB(当1=C时相当于简符1234567)在BASIC中仍然是这7个字母，“#”(或“+”)号与“-”号分别表示乐谱中的升半音(#)和降半音(b)，字符“.”代表延长前面音符的一半时长(用来表示附点音符)，其他字符命今如下：
1、O命令
功能：用来设置要演奏的音符所在的八度，即音阶。
格式：On
说明：命令中n的取值为0-6。比如．使计算机在演奏完音阶3的CD之后，再演奏一个高八度的C，即音阶4中的c调，可以用PLAY “O3CDO4C”来实现。普通中音是指音阶3中的音符。
2、L命令
功能；用来设置要演奏的每个音符的长度(亦称音符的时值)。
格式：Ln
说明：n的取值1-64，L1表示以全音符，L2表示半音符，L4表示四分音符，L8表示八分音符……
一个音符的时值也可以直接写在该音符后面，而不用L命令。如L8A与A8等效，C4E4D4A4等效于L4CEDA，而L4CDEFC2AB2则表示音符后面不带数字的按L设定的四分音符演奏，后面带数字的G2和B2按数字指定的音值演奏，显然用L命令更简洁方便。
3、P命令
功能：表示休止符的长度
格式：Pn
说明：n的取值1-64，P1表示全休止符．P2表示半休止符，P4表示四分休止符……
4、T命令
功能；用来设置演奏的节拍速度。
格式：Tn
说明：n为每分钟演奏四分音符的数量，取值32-255，缺省是T120
注意：除了T命令外还可以用以下三个命令来控制演奏的速度：
(1)MN(音乐标准)：它使每个音符以L设定的音值的7/8来演奏，使得两两音符之间有短暂的停顿。
(2)ML(音乐连奏)；使演奏时两两音符间不停顿，每个音符将演奏足L规定的音长。
(3)Ms(音乐断音)：使每个音符更短一些，以L给出的音值的3/4来演奏，以此来延长音符间的停顿。
另外．QB演奏音乐时有两种方式供选择：前台音乐和背景音乐。由MF和MB来确定。当“命令字符串”中出现MF时，表示在前台插放音乐．即QB要等到执行完PLAY语句后才能继续往下执行程序，在播放音乐时不能做其它的事情。而出现MB时，则表示在后台播放音乐，QB可以将最多32个音符或休止符保存在缓冲区，然后继续执行下面程序，而无需等待把这些音符全部演奏完。这样，MB允许QB在演奏的同时做一些其它的事情，如运算、绘图等等。
现在，在了解了PLAY语句使用方法的基础上我们编制一个简单的程序，来演奏《友谊地久天长》的片断，其相应的简谱如下：
我们把这段乐曲分四部分，每部分单独用一字符串表示，为使两部分间有短暂停顿，在每一部分的末端都用MN演奏。乐曲中连线处用ML连贯演奏。

A$="O2MNG O3C.C16CE D.C16DE C.C16EG MNA4."
B$="A G.E16EC D.C16DE C.O2A16AG O3MNC4."
C$="A MLG.E16EC D.C16MNDA MLG.E16EG MNA4."
D$="O4C O3G.E16EC D.C16DE C.O2A16AG O3C4."
PLAY "T60 L8"+A$+B$+C$+D$
END

为清晰起见，程序中各小节的音乐编码之间以空格分开，这样编码与乐谱之间的对应关系一目了然。

举例子PLAY "t140mno3e8e8e8c8o2g4g4o3e8e8e8c8e2g8g8e8c8o2g8g8g4a8b8o3c8e8d2"
t140说的是，一分钟140拍
mn说的是，每个音都演奏87.5%长度，空12.5%
o3说的是音高，如果你想升一个8音度，可以改成o4
e8代表8分音符的咪，e2代表2分音符
如果你想听一个符点2分音符，则要变成e2.，这和音乐里是一样的

下面要把上面的那条语句做一点变动，可以使你更好的理解各个字母的含义
首先变成PLAY "t140mno3e8e8e8c8o2g4g4o3t160e8e8e8c8e2t180g8g8e8c8o2g8g8g4a8b8o3c8e8d2"
感觉如何？basic提供的速度的范围是 32-255
然后变成PLAY "t140mso3e8e8e8c8o2g4g4o3mne8e8e8c8e2mlg8g8e8c8o2g8g8g4a8b8o3c8e8d2"
这就是mn,ms,ml的区别
另外，对于程序中的那一堆8，你是否感觉到很烦人呢？
PLAY "t140mno3e8e8e8c8o2g4g4o3e8e8e8c8e2g8g8e8c8o2g8g8g4a8b8o3c8e8d2"
那么，我把它变成PLAY "t140mnl8o3eeeco2g4g4o3eeece2ggeco2ggg4abo3ced2"
和原来是一样的，这就是L的用法。L的默认值是4
也就是说，原程序可以变成PLAY "t140mno3e8e8e8c8o2ggo3e8e8e8c8e2g8g8e8c8o2g8g8ga8b8o3c8e8d2"

叙述一下mn ms ml的用法，以及每个音的长度等问题，使得乐曲听起来更加圆润

首先说一下P的用法。P代表休止，如P4代表空一拍，P8代表空半拍等等
但要注意，P不受L的限制，P后面必须要跟一个数。例如你想空半拍，写成L8P，是不对的，只能写成P8

还拿上一部分的例子
PLAY "t140mno3e8e8e8c8o2g4g4o3e8e8e8c8e2g8g8e8c8o2g8g8g4a8b8o3c8e8d2"
相信我写成Play"t140o3l8eeecl4o2ggo3l8eeece2ggeco2ggg4abo3ced2"你也能看的懂，和原来一样的

听了之后，发现有些声音太长了，有些声音不够圆滑
于是将其改为：PLAY "t140o3l8eeeco2g4g4o3l8eeece4.p8ggeco2ggg4mlabo3cmned4.p8"

另外有时看曲谱上是顿音记号，可是在听或演奏时，发现用ms还是太长了，那么就应该把o3msc8(举例)改成o3mlc16p16

下面说音长的问题，重点就是每个小节或每个音该有多长，就要写多长，绝对不能多一点少一点
比如前缀音：PLAY "t160mlo3f32mne8f8"
我本意是在e8前加一个f32的前缀，结果这一拍多了个32分音符，那么一定要改成：
PLAY "t160mlo3f32e16e64p64mnf8"
似乎有点吹毛求疵，但即使你听不出来差别，拿给一个耳朵好的人，他听着就会很不爽

---

Sound语句

再来谈谈SOUND语句
功能：使计算机扬声器发出指定频率的声音。
格式；SOUND 频率，持续时间
说明：“频率”指音调的频率，以每秒时钟周期数即赫兹表示,频率范围37-32767。比如，普通中音A，其频率为440赫兹，要发出这种声音并持续1秒，可用SOUND 440,18 实现，这与PLAY "O3A2"功能相当。具体的频率换算表有时间我再整理。
语句中的“持续时间”是指音符演奏的时间。对应于内部时钟中断，每秒约18次，持续时间取值范围是0-65535。持续时间为0的SOUND可以终止当前的SOUND语句，频率为32767的SOUND语句能产生一个指定持续时间的休止符。
总的看来，PLAY演奏音乐比SOUND要简单方便得多，而SOUND语句则更适合产生非音乐的声音，如用于游戏中的音响效果(比如模拟警笛声等)。

下面是声调与频率表(频率越大，声调越高)

声调	C	C+(D-)	D	D+(E-)	E	F	F+(G-)	G	G+(A-)	A	A+(B-)	B
频率	262	277	294	311	330	349	370	392	415	440	466	494

音长与音乐节拍对照表

音乐速度	节拍/分钟	音长/节拍
慢速	66~76	14~17
中速	108~120	9~10
快速	120~168	7~9

舞曲查尔达斯

下面来一段完整的乐曲：

PLAY "t85p8l8o1mlao2c32o1b-16b-32mna"
PLAY "o2mla2mnaffgmlf64g64f16f32mne"
PLAY "mlb-2mnb-o1b-mlb-mnamlo2c+mneggmlfmnc+"
PLAY "mlemndmld64e64d64p64msl16c+de"
PLAY "mnf8mlo1a8"
PLAY "l8o1mlo2c32o1b-16b-32mna"
PLAY "o2mla2mnaffgmlf64g64f16f32mne"
PLAY "mlb-2mnb-o1b-mlb-mnamlo2dmnc+mlg4.mnemlemnd"
PLAY "mld64e64d16d32c+mnd4p4"

PLAY "t85l24mlo2c4cegb-o3cmneg16.mlf32mne16.d32mlc8mno2b-8"
PLAY "mlb-8mna8mla64b-64a32a8mng+16a4p4"
PLAY "mlo1a4ao2c+egamno3c+e8c+8mla8mno2a8mlo3e8mnd8"
PLAY "mll16d64e64d32c+dmnef4f4"
PLAY "mlf4o2b-4t78l36b-p36o3efed+efel12gfmne"
PLAY "mle8mno2a8mla4mna8l16mlg+mnab-at70mlo3c16.mnt75o2b-32"
PLAY "t78mll16o2b-64o3c64o2b-32aa64b-64a32mng"
PLAY "mlg64a64g32ff64g64f32mne"
PLAY "t76mla4.mnt74e8mlt71e8mnd8mlt67d64e64d32d16mnc+8d4p4"

PLAY "t85l24mlo2c4cegb-o3cmneg16.mlf32mne16.d32mlc8mno2b-8"
PLAY "mlb-8mna8mla64b-64a32a8mng+16a4p4"
PLAY "mlo1a4ao2c+egamno3c+e8c+8mla8mno2a8mlo3e8mnd8"
PLAY "mll16d64e64d32c+dmnef4f4"
PLAY "mlf4o2b-4t78l36b-p36o3efed+efel12gfmne"
PLAY "mle8mno2a8mla4mna8l16mlg+mnab-at70mlo3c16.mnt75o2b-32"
PLAY "t78mll16o2b-64o3c64o2b-32aa64b-64a32mng"
PLAY "mlg64a64g32ff64g64f32mne"
PLAY "t76mla4.mnt74e8mlt71e8mnd8mlt67d64e64d32d16mnc+8d4p4"

PLAY "t170o3msl8do4dp8o3b-p8ap8femnd4msc+mld4mndp8"
PLAY "l16defedefedefedefdmnf8e4msd+8mle4mne8p8"
PLAY "gab-agab-agab-agb-agfgagfgagfgagfagf"
PLAY "o2abo3c+defgab-agfedc+emne8d4msc+8"
PLAY "mnd4p4"

PLAY "t170o3msl8do4dp8o3b-p8ap8femnd4msc+mld4mndp8"
PLAY "l16defedefedefedefdmnf8e4msd+8mle4mne8p8"
PLAY "gab-agab-agab-agb-agfgagfgagfgagfagf"
PLAY "o2abo3c+defgab-agfedc+emne8d4msc+8"
PLAY "mnd4p4"

PLAY "t170mll16o3c64d64c64mso2bo3cegb-ge"
PLAY "mll16o3c64d64c64mso2bo3cegb-ge"
PLAY "o2b-ab-o3cdefgmla4mna8p8"
PLAY "mlo2b-64a32msg+ao3c+egec+"
PLAY "mlo2b-64a32msg+ao3c+egec+"
PLAY "mlo2b-64a32msg+abo3c+dedmlf4mnf8p8"
PLAY "msb-agab-agab-agab-agb-agfgagfgagfgagfa"
PLAY "mno2abo3c+defgab-agfedc+emse8mnd4msc+8mnd4p4"

PLAY "t170mll16o3c64d64c64mso2bo3cegb-ge"
PLAY "mll16o3c64d64c64mso2bo3cegb-ge"
PLAY "o2b-ab-o3cdefgmla4mna8p8"
PLAY "mlo2b-64a32msg+ao3c+egec+"
PLAY "mlo2b-64a32msg+ao3c+egec+"
PLAY "mlo2b-64a32msg+abo3c+dedmlf4mnf8p8"
PLAY "msb-agab-agab-agab-agb-agfgagfgagfgagfa"
PLAY "mno2abo3c+defgab-agfedc+emse8mnd4msc+8mnd4p4"

PLAY "t105mno4l16d4o3a8.a16mlb8mna8mlg8mnf+8"
PLAY "mlf+8mne8t210mle32f+32e64e64e64p64t105mnd+egb2"
PLAY "l8mlb.mnc+16mlc+mno4emle.mno3g16gmsgmlgmnf+"
PLAY "t210mlf+32g32f+64f+64f+64t105mne16d16e16f+2"
PLAY "mno4l16d4o3a8.a16mlb8mna8mlg8mnf+8"
PLAY "mlf+8mne8t210mle32f+32e64e64e64p64t100mnd+egb2"
PLAY "l8o4mld.mno3a16aamlbmnaac+mlemndmld64e64d32d32d64p64msc+mnd4p4"

PLAY "t95o5mnl8d4o4a.a16mlbmnamlgmnf+mlf+mnemlemngb2"
PLAY "b.msa16mnaamlo5c+mno4bmlamngmlgmnf+mlf+mnff+2"
PLAY "o5mnl8d4o4a.a16mlbmnamlgmnf+mlf+mnemlemngb2"
PLAY "o5d4o4a.msa16mlt92bmnamlt90amnc+mlt86emndmldmnc+d2"

PLAY "t170mll16o3c64d64c64mso2bo3cegb-ge"
PLAY "mll16o3c64d64c64mso2bo3cegb-ge"
PLAY "o2b-ab-o3cdefgmla4mna8p8"
PLAY "mlo2b-64a32msg+ao3c+egec+"
PLAY "mlo2b-64a32msg+ao3c+egec+"
PLAY "mlo2b-64a32msg+abo3c+dedmlf4mnf8p8"
PLAY "msb-agab-agab-agab-agb-agfgagfgagfgagfa"
PLAY "o2abo3c+defgab-ag+ag+abo4c+mnd8p8p4p2"

PLAY "t170o3mnd8o4d4o3b4a4f+8mse8mnd4msc+8mld4mnd8p8"
PLAY "l16msdef+edef+edef+edef+dmnf+8e4msd+8mle4mne8p8"
PLAY "msgabagabagabagbagf+gagf+gagf+gagf+gaf+"
PLAY "ef+g+f+ef+g+f+mnef+gf+ef+g+e"
PLAY "a8a4a4a4o2a8"

PLAY "t170o3mnd8o4d4o3b4a4f+8mse8mnd4msc+8mld4mnd8p8"
PLAY "l16msdef+edef+edef+edef+dmnf+8e4msd+8mle4mne8p8"
PLAY "l16gabagabagabagbagf+gagf+gagf+gagf+gaf+ed+ef+gf+ga"
PLAY "mlbmnag+ag+abo4c+o4d4p4o3t160a4p4o2d2"