易码技术论坛

 找回密码
 加入易码
搜索
查看: 149158|回复: 2

用BASIC,PLAY写的音乐

[复制链接]
发表于 2005-3-24 22:10:00 | 显示全部楼层
不错,虽然小磁片发出的音乐不太好听,楼主可以说是创新了。。收录到文章中心。
发表于 2005-3-25 20:25:00 | 显示全部楼层
楼主可真有耐心啊.鼓励....
 楼主| 发表于 2005-3-24 21:49:57 | 显示全部楼层 |阅读模式
看我七十二变


10 PLAY "L3AO3L3CO3L3DL6CL6DL6FL6GL6CL6D"
20 PLAY "O3L6DL6DL6CO2L6AO3L6CL6DL3FL3CO2L6AL6GL6AO3L3C"
30 PLAY "L6AP128L6AO3L6CP128L6CP128L3CP128L6CP128L6CL3DL6CO2L6A"
40 PLAY "O3L6CP128L6CP128L6CL6DP128L6DL6CP128L6CO2L3AL3GO3L3EO2L3AO3L6EO2L6A"
50 PLAY "O3L6CO3L6AO3L6CL2D"
60 PLAY "P6O3L3DL2CP6L3DL2CP6L3DL2CP2"
70 FOR I=1 TO 3
80 PLAY "O3L6AP128L6AL6GL6FL6FL6DL6FL6D"
90 NEXT I
100 PLAY "O4L3CO3L3BL3AL6FO4L3CO3L6GL6FL6FL6DL6FL6D"
110 FOR I=1 TO 3
120 PLAY "O3L6AP128L6AL6GL6FL6FL6DL6FL6D"
130 NEXT I
140 PLAY "O4L3CO3L3BL6AL6GL6FL1D"
150 END
东风破
10 PLAY "L4AL4GL4AL2BL4AL4GL4AL4GP128L4GL4EL2A"
20 PLAY "P2L4AL4GL4AL2BL4AL4GL4AL4GP128L4GL2D"
30 PLAY "P2O3L4DP128L4DP128L4DP128L2DO2L4BO3L4CL4DL4CP128L2C"
40 PLAY "P2L4AP128L4AL4BL2GO3L4EL4GL4EP128L4EP128L4EL4DP128L2D"
50 PLAY "P2L4AL4GL4AL2BL4AL4GL4AL4GP128L4GL4EL2A"
60 PLAY "P2L4AL4GL4AL2BL4AL4GL4AL4BO3L4DO2L4BO3L2D"
70 PLAY "O3L4DP128L4DP128L4DL4EL8DO2L4BO3L4CL4DL2CP128L2C"
80 PLAY "P2L4GP128L4GL4AL4BL4AL4GL4EL4AL4GL4AL1G"
90 PLAY "P2O3L4DP128L4DP128L4DL2EL8FL4EL4DO2L4BP128L4BP128L4BL4AP128L2A"
100 PLAY "P4O3L4DP128L4DP128L4DO2L4BL4AP128L4AL4GL4AL4GL4AL4BP128L2B"
110 PLAY "P2L4GP128L4GP128L4GL4BL4AL4BO3L4DO2L4BL4AL4GL4AL2E"
120 PLAY "P2L4GP128L4GL4BL4AL4BO3L4DL4EL4DP128L4DO2L4BP128L4BP128L4BL4A"
130 PLAY "P4O3L4DP128L4DP128L4DL2EL8FL4EL4DO2L4BP128L4BP128L4BL4AP128L2A"
140 PLAY "P4O3L4DP128L4DP128L4DO2L4BL4AP128L4AL4GL4AL4GL4AL4BP128L2B"
150 PLAY "P4L4GP128L4GL4AL4BL4AL4BL4AO3L4DL4EL4DO2L4BO3L4D"
160 PLAY "P4O3L4EP128L4EL4DO2L2BO3L8DO2L4BL4AP3L4AL4AL4GL4BL4AL4GL4EL2G"
170 END

二泉映月
10 PLAY "L8AL8GL8AL8FL8EL2DP2L4DL8DL8EL4CL8CL8D"
20 PLAY "L2EL4EL4GL4AL4GL8AL8GL8O3L8C"
30 PLAY "O2L4GL8GL8EL4GL8GL8EL4DL4AL8GO3L8AO2L8CL8D"
40 PLAY "L2EL4EL4GL8DL16DL16EL8GO3L8CO2L8AL8DL8EL8G"
50 PLAY "L2CP2L4CO1L8AO2L8CL4EL8EL8D"
60 PLAY "L4CL8CO1L8AO2L8CL16CL16DL8EL8EL4DL8CL16CL16CO1L8AO2L8CL8DL8E"
70 PLAY "O1L2GP2O2L8GP8L8EL8GL8AL8GL8AO3L8C"
80 PLAY "O2L4GL8GL8EL8GL4GO3L8CO2L4AL4AL8GL8AL8GL8G"
90 PLAY "L4EL8EL8GL8EL16EL16GL8EL8GL8DL16DL16EL8DL8CO1L8AO2L4CO1L4A"
100 PLAY "O2L2CL4CL8CL8DL8EL8GL4CL8DL16DL16GL8EL8AL2G"
130 END
对付着听吧~
都是原创 曾经在官方论坛发表过 嘎嘎


您需要登录后才可以回帖 登录 | 加入易码

本版积分规则

Archiver|手机版|小黑屋|EMAX Studio

GMT+8, 2025-4-28 02:26 , Processed in 0.016458 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表