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

9876543210

[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]

凌哥

额，神曲？

先锋小七

什么神曲什么神曲

luzhiqi

   什么神曲什么神曲

907597756

首先，我先看看，然后谢谢。

dongxin

主板不响怎么办

9876543210

dongxin 发表于 2017-4-21 20:31
主板不响怎么办

没接上蜂鸣器而导致的。

DDSGXQ

什么神曲啊，nb

菠萝吹雪12354

我以前见过这个，后来源码找不到了

a1678131758

瞅瞅