导读
易语言5.6完美版,可静态编译,绿色无后门

学习易语言 讲究的是系统,如果你正在四处闲逛,你懂的永远是皮毛! 觅风论坛正在为每个困惑的对易语言 详细

[源码] Beep音乐易语言源码

[复制链接]

微信扫一扫 分享朋友圈

LLD 发表于 2021-3-29 14:07:37 | 显示全部楼层 |阅读模式 打印 上一主题 下一主题

马上注册,结交更多易友,享用更多功能,让你轻松玩转觅风论坛。

您需要 登录 才可以下载或查看,没有账号?立即注册

x
可以直接写简谱,生成Beep()代码,也可以直接播放


举个例子:


123
生成

' Beep (音调频率, 时长)
Beep (524, 400)  ' 1
Beep (588, 400)  ' 2
Beep (660, 400)  ' 3






"-" 减慢
"+" 加快
比如
11+1++1+++

' Beep (音调频率, 时长)
Beep (524, 400)  ' 1
Beep (524, 300)  ' 1+
Beep (524, 200)  ' 1++
Beep (524, 100)  ' 1+++







11-1--1---

' Beep (音调频率, 时长)
Beep (524, 400)  ' 1
Beep (524, 800)  ' 1-
Beep (524, 1200)  ' 1--
Beep (524, 1600)  ' 1---






对于高音/低音
*高音  ^低音
比如
1*1**1***1
分别是 中音1 高音1 ........

' Beep (音调频率, 时长)
Beep (524, 400)  ' 1
Beep (1048, 400)  ' *1
Beep (2096, 400)  ' **1
Beep (4192, 400)  ' ***1





1^1^^1^^^1
分别是中音1 低音1.....

' Beep (音调频率, 时长)
Beep (524, 400)  ' 1
Beep (262, 400)  ' ^1
Beep (131, 400)  ' ^^1
Beep (65.5, 400)  ' ^^^1






对于多个音符需要同样的效果:
比如
1+2+3+4+5+
可以简化成
[12345]+
同理
*1*2*3*4*5
可以简化成
*[12345]


但是还有一些问题,
无法在括号里面套括号
*[1[23]+] 无法识别














小星星这首歌
1155665-4433221-
5544332-554435++3++2-
1155665-4433221-

可以生成

' Beep (音调频率, 时长)
Beep (524, 400)  ' 1
Beep (524, 400)  ' 1
Beep (784, 400)  ' 5
Beep (784, 400)  ' 5
Beep (880, 400)  ' 6
Beep (880, 400)  ' 6
Beep (784, 800)  ' 5-
Beep (698, 400)  ' 4
Beep (698, 400)  ' 4
Beep (660, 400)  ' 3
Beep (660, 400)  ' 3
Beep (588, 400)  ' 2
Beep (588, 400)  ' 2
Beep (524, 800)  ' 1-
Beep (784, 400)  ' 5
Beep (784, 400)  ' 5
Beep (698, 400)  ' 4
Beep (698, 400)  ' 4
Beep (660, 400)  ' 3
Beep (660, 400)  ' 3
Beep (588, 800)  ' 2-
Beep (784, 400)  ' 5
Beep (784, 400)  ' 5
Beep (698, 400)  ' 4
Beep (698, 400)  ' 4
Beep (660, 400)  ' 3
Beep (784, 200)  ' 5++
Beep (660, 200)  ' 3++
Beep (588, 800)  ' 2-
Beep (524, 400)  ' 1
Beep (524, 400)  ' 1
Beep (784, 400)  ' 5
Beep (784, 400)  ' 5
Beep (880, 400)  ' 6
Beep (880, 400)  ' 6
Beep (784, 800)  ' 5-
Beep (698, 400)  ' 4
Beep (698, 400)  ' 4
Beep (660, 400)  ' 3
Beep (660, 400)  ' 3
Beep (588, 400)  ' 2
Beep (588, 400)  ' 2
Beep (524, 800)  ' 1-
Beep音乐易语言源码



附了几首歌的简谱
有能力的可以帮忙修下现在的问题



QQ截图20210329140936.jpg


游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关注我们:觅风论坛与你快乐分享

收藏本站

用心服务做个非盈利公益编程网站

www.eyyba.com

服务人:觅风论坛

Email:eyyba@foxmail.com

Powered by WWW.EYYBA.COM X3.4© 2001-2023 Inc.   版权所有   

觅风论坛  疆ICP备15020893号-1