设为首页收藏本站淘宝杂货铺

从F到0 - From F to 0

 找回密码
 注册已关闭
搜索
查看: 3658|回复: 5
收起左侧

易语言调用系统DLL API Beep函数控制主板蜂鸣器发出指定频率声音实现播放音乐的方法。

[复制链接]
发表于 2017-10-14 06:53:15 | 显示全部楼层 |阅读模式
笔记本的可能是通过扬声器发出的,没有声音请检查蜂鸣器以及驱动是否安装到位。



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



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

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

  9. 数据 = { 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 }
  10. .变量循环首 (1, 212, 2, 计数)
  11.     .如果 (数据 [计数] = 0)
  12.         延时 (数据 [计数 + 1])
  13.     .否则
  14.         Beep (数据 [计数], 数据 [计数 + 1])
  15.     .如果结束

  16. .变量循环尾 ()

复制代码


相关帖子

发表于 2017-10-14 11:43:32 | 显示全部楼层
果然放的是哪里发明的的神曲。
发表于 2017-10-14 13:06:20 | 显示全部楼层
大厦门前 发表于 2017-10-14 11:43
果然放的是哪里发明的的神曲。

万能的听歌识曲。

发表于 2017-10-14 17:32:32 | 显示全部楼层

我这识别出来不知道有多少个结果。

发表于 2017-10-14 21:49:50 | 显示全部楼层
Kuni7wa 发表于 2017-10-14 17:32
我这识别出来不知道有多少个结果。

那就确定这曲是楼主发明的。
发表于 2017-10-19 18:23:16 | 显示全部楼层
这神曲不错,我收藏了!!!
您需要登录后才可以回帖 登录 | 注册已关闭

本版积分规则

QQ|手机版|Archiver|从F到0 ( 蒙ICP备17002595号-1 )
蒙公网安备15010402000325号

腾讯云安全认证

GMT+8, 2024-3-29 17:03 , Processed in 0.641036 second(s), 21 queries .

Powered by Discuz! X3.4 Licensed

Copyright © 2001-2021, Tencent Cloud.

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