有好听的 kernel32 蜂鸣声（板载蜂鸣声）吗？

Question

我想知道是否有人找到了一种很好的蜂鸣声组合，这实际上听起来像音乐。

这就是方法的调用方法。

[DllImport("Kernel32.dll")]
public static extern bool Beep(UInt32 frequency, UInt32 duration);
// ... 
// call
Beep(2000, 400);

我的第一次尝试：

    for (int j = 1; j < 20; j++)
    {
        for (int i = 1; i <= 10; i++)
        {
            Console.Beep(300 * i, 200);
        }            
    }

Answer 1

您可以使用以下简单的程序来使用 Beep 来演奏旋律：

using System;
using System.Runtime.InteropServices;

class MelodyPlayer
{
    const double ConcertPitch = 440.0;

    class Note
    {
        [DllImport("Kernel32.dll")]
        public static extern bool Beep(UInt32 frequency, UInt32 duration);

        public const int C = -888;
        public const int CSharp = -798;
        public const int DFlat = CSharp;
        public const int D = -696;
        public const int DSharp = -594;
        public const int EFlat = DSharp;
        public const int E = -498;
        public const int F = -390;
        public const int FSharp = -300;
        public const int GFlat = FSharp;
        public const int G = -192;
        public const int GSharp = -96;
        public const int AFlat = GSharp;
        public const int A = 0;
        public const int ASharp = 108;
        public const int BFlat = ASharp;
        public const int B = 204;

        public int Key { get; set; }
        public int Octave { get; set; }
        public uint Duration { get; set; }

        public Note(int key, int octave, uint duration)
        {
            this.Key = key;
            this.Octave = octave;
            this.Duration = duration;
        }

        public uint Frequency
        {
            get
            {
                double factor = Math.Pow(2.0, 1.0 / 1200.0);
                return ((uint)(MelodyPlayer.ConcertPitch * Math.Pow(factor, this.Key + this.Octave * 1200.0)));
            }
        }

        public void Play()
        {
            Beep(this.Frequency, this.Duration);
        }
    }

    static void Main(string[] args)
    {
        Note[] melody = new Note[] {
            new Note(Note.C, 0, 100),
            new Note(Note.C, 0, 100),
            new Note(Note.D, 0, 100),
            new Note(Note.E, 0, 100),
            new Note(Note.F, 0, 100),
            new Note(Note.G, 0, 100),
            new Note(Note.A, 0, 100),
            new Note(Note.B, 0, 100),
            new Note(Note.C, 1, 100),
            new Note(Note.D, 1, 100),
            new Note(Note.E, 1, 100),
            new Note(Note.F, 1, 100),
            new Note(Note.G, 1, 100),
            new Note(Note.A, 1, 100),
            new Note(Note.B, 1, 100),
            new Note(Note.C, 2, 100)
        };

        foreach (var note in melody)
        {
            note.Play();
        }
    }
}

对于那些感兴趣的人：这使用了 Werckmeister 音律 并根据音分< /a> 为此气质定义的值。

Answer 2

Beep 函数由 QBasic 的 Play 命令封装。该产品在 Google 上获得了很多点击，这是首选。编写代码来翻译 Play 字符串可能比复制粘贴更有趣。语法是此处描述。

Answer 3

还有System.Console.Beep。

Answer 4

检查 Google 中的单音铃声，然后使用十六进制编辑器打开该文件，然后对歌曲进行逆向工程。如果您的程序能够读取原始文件并将其即时转换为蜂鸣声，那就加分了。

Answer 5

曾经有一个声音驱动程序将 PC 扬声器用作 PCM 音频设备（声卡）

• PC 扬声器声卡驱动程序 (Windows XP) <= 我不知道这是否还能工作...使用风险自负。
• Microsoft 的 PC 扬声器驱动程序 (Windows 9x)