Long Live Blog

我正在使用哈工大博客服务,在这里记录我的工作和生活。

导航

« 解决手机名片转移过程中的姓名反置问题【老文存档】工大上网那点事 »

用QBasic写了个《最炫民族风》

之前看到各种版本的《最炫民族风》,都只是会心一笑,直到看到了个Geek用C语言写了一段发声指令来播放《最炫民族风》,突然想到了我有个比那个还原始的神器——文曲星,于是有了攀比的想法。悲剧的是在家翻箱倒柜的找了一晚上,结果没找到...看来现在要想怀旧,只能去找模拟器了。
都差不多的东西,就用QBasic替代一下吧。方舟昨天晚上还挂了,到处找QBasic还花了半天。这里是我用的QBasic。
预览:


我用的本,声音直接从声卡和扬声器播放了。如果用台式机的蜂鸣器来发声会更有意思。
代码如下,直接从简谱扒过来的,这玩意还真的是个力气活,中间那段Rap怎么听着都觉得怪怪的...而且使我想起了15年前的手机,刚刚有自定义铃声,大概就是这么个感觉。

PRINT "The Most-HYUN National Style"
PRINT "Now Playing..."
REDIM Note$(81)
Tempo$ = "t130msl8"
Const BaseTune = 2

Note$(0) = o$(1) + "e4" + o$(0) + "a8a8" + o$(1) + "c4e4d8d16e16d8c8d8c8" + o$(0) + "a4"
Note$(1) = o$(1) + "e4" + o$(0) + "a8a8" + o$(1) + "c4e4g8d16e16d8c8d8c8" + o$(0) + "b8g8"
Note$(2) = o$(1) + "e4" + o$(0) + "a8a8" + o$(1) + "c4e4d8d16e16d8c8d8c8" + o$(0) + "a8g8"
Note$(3) = o$(1) + "e4" + o$(0) + "a8a8" + o$(1) + "c4e4g8e1"
Note$(4) = o$(0) + " a4a8g8a4a8 " + o$(1) + " c8c4 d8c8" + o$(0) + "a2"'苍茫的天涯是我的爱
Note$(5) = o$(1) + " c4c8 " + o$(0) + " g8 " + o$(1) + " c8d8e8g8g8e8d4e2"'绵绵的青山脚下花正开
Note$(6) = o$(1) + " a8a8a8g8e8e4c8 " + o$(0) + " a8a8a8 " + o$(1) + " e8 ml d16e16d4" +Tempo$+ "d8"'什么样的节奏是最呀最摇摆
Note$(7) = o$(1) + " e8e8g8e8d8e8d8c8 " + o$(0) + " a4g4a2"'什么样的歌声才是最开怀
Note$(8) = Note$(4)'弯弯的河水从天上来
Note$(9) = Note$(5)'流向那万紫千红一片海
Note$(10) = Note$(6)'哗啦啦的歌谣是我们的期待
Note$(11) = Note$(7)'一路边走边唱才是最自在
Note$(12)=o$(1) + "eegeegga" + o$(2) + "ml c" + Tempo$ + o$(1) + "ag4 a16 " + o(2) + "c16" + o$(1) + "mla4" +Tempo$+ "a8"'我们要唱就要唱得最痛快
Note$(13) = o$(0) + "a4aga4" + o$(1) + "c4de16d16cde2"'你是我天边最美的云彩
Note$(14) = o$(0) + "a" + o$(1) + "aagdmle16d16" +Tempo$+ "cde2"'让我用心把你留下来
Note$(15) = o$(1) + "eee4"'留下来
Note$(16) = o$(1) + "ml c" + o(0) + "a" + Tempo$ + "a" + o$(1) + "cd4" + o(0) + "gg" + o(1) + "egedc2"'悠悠的唱着最炫民族风
Note$(17) = o$(0) + "a" + o(1) + "cdedc" +o(0) + "gea2"'让爱卷走所有的尘埃
Note$(18) = o$(0) + "aaa4"'我知道
Note$(19) = Note$(13)'你是我心中最美的云彩
Note$(20) = Note$(14)'斟满美酒让你留下来
Note$(21) = Note$(15)'留下来
Note$(22) = o$(1) + "ml c" + o(0) + "a" + Tempo$ + "a" + o$(1) + "cd4" + o(0) + "gg" + o(1) + "egedc4."'永远都唱着最炫的民族风
Note$(23) = o$(1) + "c" + o$(0) + "a" + o(1) + "cdegeega1"'是整片天空最美的姿态
Note$(24) = o$(2) + "a.a16aaa.g16edd.d16e.g16e.d16c." + o(1) + "g16"
Note$(25) = o$(0) + "a4aga4a" + o$(1) + "cde16d16cde2"'我听见你心中动人的天籁
Note$(26) = o$(1) + "agedgedcc2"'登上天外云霄的舞台
Note$(27) = o$(0) + "l16a" + o$(1) + "cdedc" + o$(0) + "a" + o$(1) + "c"
'Repeat
For i=0 to 23
Note$(28+i) = Note$(i)
Next
Note$(52) = o$(2) + "cc16c16" + o$(1) + "a a16 a16 g g16 g16 e e16 e16 d e16 d16 c" +_
            o$(0) + "a16 g16 a16 g16" + o$(1) + "l16 cdega" + o$(2) + "dc2"
Note$(53) = o$(0) + "l16cccc"
Note$(54) = o$(1) + "cde2. gea2acged4.d16d16ddcde4..e16ed16c16" + o$(0) + "b" +_
            o$(1) + "c16d16e2.ge" + o$(2) + "c4" + o$(1) + "a2acdg2a4b1" 

'Repeat
For i=0 to 10
Note$(55+i)=Note$(13+i)
Next

Note$(66) = o$(0) + "c2" + o$(1) + "egege4" + o$(0) + "a.a16" + o$(1) + "c4" + _
            o$(0) +"a" + o$(1) + "e16" + o$(0) + "a16" + o$(1) + "c.c16dc16d16e2"'Rap:我听见你心中那动人的天籁
Note$(67) = o$(1) + "e4a.a16g4d.d16e2e16d16c16"'就忽如一夜春风袭来满面桃花
Note$(68) = o$(0) + "l16edeg" + o$(1) + "c4" + o$(0) + "a8.a" + o$(1) + "d4" +o$(0) + "g8.ge4g8.g" + o(1) + "c2"
Note$(69) = o$(0) + "a4" + o$(1) + "c." + o$(0) + "a16" + o$(1) + "e.e16d.e16a1"

For i=0 to 10
Note$(70+i)=Note$(13+i)
Next
Note$(72) = ""

Note$(81) = o$(1) + "a"' + o$(0) + "ccc cc c16c16c e2"

Temp$=""
FOR i = 0 TO UBOUND(Note$)
    'PRINT Tempo$ + Note$(i)
    Temp$ = Temp$ + Tempo$ + Note$(i)
    'PLAY (Tempo$ + Note$(i))
NEXT
Play Temp$

Function o$(NoteTune)
o$="o"+LTRIM$(STR$(BaseTune + NoteTune))
End Function


如果再比这个低端的,我想就只有红白机时候的8Bit声音了,那个做起来简单,但是想做好听还真的很难,我没乐感,就算了。

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

Recent Comments

Recent Article

Powered By Z-Blog 1.8 Arwen Build 90619

Copyright;2009-2009 blog.hit.edu.cn All Rights Reserved 哈工大网络与信息中心