开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 7433|回复: 33
收起左侧

[易语言纯源码] Beep音乐

[复制链接]
结帖率:96% (24/25)
发表于 2021-3-28 11:43:35 | 显示全部楼层 |阅读模式   保留地址
分享源码
界面截图:
是否带模块: 调用了模块
备注说明: -
1.png


可以直接写简谱,生成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音乐.zip (492.72 KB, 下载次数: 50)

评分

参与人数 1好评 +1 精币 +3 收起 理由
易语言资源网 + 1 + 3 支持开源~!感谢分享

查看全部评分


签到天数: 6 天

发表于 2022-10-4 19:31:30 | 显示全部楼层   浙江省绍兴市
厉害先攒一波
回复 支持 反对

使用道具 举报

发表于 2021-8-11 11:54:20 | 显示全部楼层   河南省南阳市
666666666666666666666
回复 支持 反对

使用道具 举报

发表于 2021-8-11 11:53:38 | 显示全部楼层   河南省南阳市
看看,谢谢666666666666666666
回复 支持 反对

使用道具 举报

结帖率:0% (0/4)
发表于 2021-6-30 11:09:44 | 显示全部楼层   浙江省温州市
666666666666666666666
回复 支持 反对

使用道具 举报

结帖率:83% (10/12)

签到天数: 2 天

发表于 2021-4-11 10:27:58 | 显示全部楼层   河北省沧州市
支持开源~!感谢分享
回复 支持 反对

使用道具 举报

结帖率:100% (5/5)

签到天数: 2 天

发表于 2021-4-9 18:35:05 高大上手机用户 | 显示全部楼层   安徽省合肥市
谢谢楼主分享
回复 支持 反对

使用道具 举报

发表于 2021-4-4 09:51:55 | 显示全部楼层   四川省德阳市
感谢分享!!!
回复 支持 反对

使用道具 举报

结帖率:87% (20/23)

签到天数: 15 天

发表于 2021-4-3 18:37:43 | 显示全部楼层   广东省东莞市
大佬玩乐器了  
回复 支持 反对

使用道具 举报

结帖率:100% (3/3)

签到天数: 22 天

发表于 2021-4-2 17:55:07 | 显示全部楼层   广东省汕头市
太花眼了
回复 支持 反对

使用道具 举报

结帖率:50% (1/2)

签到天数: 1 天

发表于 2021-3-31 23:03:39 | 显示全部楼层   湖南省长沙市
加油老哥加油
回复 支持 反对

使用道具 举报

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

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

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