易语言调用Beep函数通过主板蜂鸣器播放神曲的源码

9876543210 · 发表于 2017-4-21 20:05:01

本帖最后由 9876543210 于 2017-4-21 20:19 编辑

[e]
.版本 2

.DLL命令 Beep, 逻辑型, "kernel32.dll", "Beep"
.参数 hz
.参数 ms
.版本 2

.程序集窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕
.局部变量数据, 整数型, , "0"
.局部变量计数, 整数型

数据＝ { 0, 580, 600, 300, 600, 100, 900, 200, 1200, 350, 900, 170, 1200, 200, 1500, 170, 1600, 260, 1500, 260, 1180, 180, 1350, 350, 0, 360, 600, 250, 600, 100, 900, 170, 1200, 360, 900, 170, 1200, 180, 1500, 170, 1600, 260, 1500, 260, 1200, 170, 1330, 200, 0, 150, 1500, 240, 1330, 100, 1200, 350, 1200, 270, 1330, 80, 1500, 170, 2000, 180, 2000, 175, 1800, 170, 1600, 170, 1500, 180, 1330, 170, 1600, 180, 1500, 180, 1200, 170, 900, 350, 1000, 350, 1000, 250, 1100, 100, 1200, 180, 1500, 350, 1200, 180, 1340, 170, 1500, 180, 1600, 170, 1670, 170, 1800, 190, 1340, 150, 900, 150, 750, 200, 600, 300, 600, 100, 900, 200, 1200, 350, 900, 170, 1200, 200, 1500, 170, 1600, 260, 1500, 260, 1180, 180, 1350, 350, 0, 360, 600, 250, 600, 100, 900, 170, 1200, 360, 900, 170, 1200, 180, 1500, 170, 1600, 260, 1500, 260, 1200, 170, 1330, 200, 0, 150, 1500, 260, 1330, 90, 1200, 350, 1200, 260, 1330, 90, 1500, 170, 2000, 350, 1800, 170, 1600, 170, 1500, 180, 1330, 170, 1600, 170, 1500, 180, 1200, 170, 900, 350, 1000, 350, 1000, 260, 1100, 90, 1200, 170, 1500, 340, 1200, 180, 1330, 170, 1200, 170, 1120, 180, 1330, 170, 1200, 350, 0, 250 }
.变量循环首 (1, 212, 2, 计数)
.如果 (数据 [计数] ＝ 0)
延时 (数据 [计数＋ 1])
.否则
Beep (数据 [计数], 数据 [计数＋ 1])
.如果结束

.变量循环尾 ()

[/e]

hooline · 发表于 2022-1-22 16:57:07

收藏了。谢谢楼主分享

wh1234567 · 发表于 2021-6-19 23:47:08

无反应！！！！！111

yaoliu1977 · 发表于 2017-8-6 17:57:26

来看看啥情况

ChYRX · 发表于 2017-6-22 23:52:09

win10也是喇叭发的声音

Shouting° · 发表于 2017-6-2 13:29:32

好像很厉害的样子，谢谢楼主。

亦水难当 · 发表于 2017-5-3 20:52:28

笔记本试了哈，是喇叭发的声音

taizhong · 发表于 2017-5-1 23:39:14

笔记本测试,失败

亦水难当 · 发表于 2017-4-28 20:04:53

厉害了。。。。

里狠屁 · 发表于 2017-4-28 19:48:40

不知道怎么样，看看吧

1828902364 · 发表于 2017-4-28 19:42:46

66666666666666

		自动登录	找回密码
密码			注册

[易语言纯源码] 易语言调用Beep函数通过主板蜂鸣器播放神曲的源码

本帖被以下淘专辑推荐: