VBA-API：通过BEEP函数(扬声器)播放音乐

Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long '响铃API函数声明Private Const K = 0 '空拍
Private Const C4 = 523
Private Const C_4 = 554
Private Const D4 = 588
Private Const D_4 = 623
Private Const E4 = 660
Private Const F4 = 700
Private Const F_4 = 742
Private Const G4 = 786
Private Const G_4 = 833
Private Const A4 = 884
Private Const A_4 = 936
Private Const B4 = 992Private Const C5 = 1046
Private Const C_5 = 1108
Private Const D5 = 1176
Private Const D_5 = 1246
Private Const E5 = 1320
Private Const F5 = 1400
Private Const F_5 = 1484
Private Const G5 = 1572
Private Const G_5 = 1666
Private Const A5 = 1768
Private Const A_5 = 1872
Private Const B5 = 1984Private Const C6 = 2092
Private Const C_6 = 2216
Private Const D6 = 2352
Private Const D_6 = 2492
Private Const E6 = 2640
Private Const F6 = 2800
Private Const F_6 = 2968
Private Const G6 = 3144
Private Const G_6 = 3332
Private Const A6 = 3536
Private Const A_6 = 3744
Private Const B6 = 3968
Private Const P = 125'Stave的格式：音名-时间,音名-时间
Sub PlayStave(Stave As String) '按照曲谱BEEPDim DIC As ObjectSet DIC = CreateObject("Scripting.Dictionary")DIC.Add "K", 0 '空拍DIC.Add "C4", 523DIC.Add "C_4", 554DIC.Add "D4", 588DIC.Add "D_4", 623DIC.Add "E4", 660DIC.Add "F4", 700DIC.Add "F_4", 742DIC.Add "G4", 786DIC.Add "G_4", 833DIC.Add "A4", 884DIC.Add "A_4", 936DIC.Add "B4", 992DIC.Add "C5", 1046DIC.Add "C_5", 1108DIC.Add "D5", 1176DIC.Add "D_5", 1246DIC.Add "E5", 1320DIC.Add "F5", 1400DIC.Add "F_5", 1484DIC.Add "G5", 1572DIC.Add "G_5", 1666DIC.Add "A5", 1768DIC.Add "A_5", 1872DIC.Add "B5", 1984DIC.Add "C6", 2092DIC.Add "C_6", 2216DIC.Add "D6", 2352DIC.Add "D_6", 2492DIC.Add "E6", 2640DIC.Add "F6", 2800DIC.Add "F_6", 2968DIC.Add "G6", 3144DIC.Add "G_6", 3332DIC.Add "A6", 3536DIC.Add "A_6", 3744DIC.Add "B6", 3968DIC.Add "P", 125Dim notes, arr As Variantnotes = Split(Stave, ",")For i = 0 To UBound(notes)s = Split(notes(i), "-")Beep DIC(s(0)), Int(s(1)) * 100Next
End Sub'Stave的格式：音名-时间,音名-时间
Sub play() '欢乐颂PlayStave "E5-4,E5-4,F5-4,G5-4" _& ",G5-4,F5-4,E5-4,D5-4" _& ",C5-4,C5-4,D5-4,E5-4" _& ",E5-4,D5-2,D5-10" _& ",E5-4,E5-4,F5-4,G5-4" _& ",G5-4,F5-4,E5-4,D5-4" _& ",C5-4,C5-4,D5-4,E5-4" _& ",D5-4,C5-2,C5-10"
End SubSub play2()Beep E5, 400Beep E5, 400Beep F5, 400Beep G5, 400Beep G5, 400Beep F5, 400Beep E5, 400Beep D5, 400
End Sub

VBA-API：通过BEEP函数(扬声器)播放音乐相关推荐

五分钟让你的C语言播放音乐
文章目录前言一.mciSendString函数官方枯燥解释: 说人话: 二.上代码 1.必要的头文件和预处理 #include 前言播放windows的一个API函数有两个PlaySound和 ...
java扬声器和耳机自动切换_安卓插耳机也外放扬声器播放音频的java代码
最近遇到一个如何在耳机插入的情况下任然用扬声器播放音频的问题. 用搜索引擎找了一些网上的demo(案例) .发现按照他们的方法成功实现. 插入耳机的时候也可以选择使用扬声器播放音乐,来电铃声就是这么用 ...
音乐python播放函数-python入门系列1——用Beep函数手动实现7个音符的播放
今天学了python,参考练习题,本来是找倍数的,但是想到找到之后发个提示音岂不是很有意思,然后就找到了这个函数,进而想到做个7阶音符玩玩. 7个音符差别在哪关于乐理知识就不过多介绍了,我也是一个音 ...
【golang音频库】发现了一个特别棒的音频库，beep，使用docker方式驱动设备，可以使用golang进行控制音频设备，播放音乐。
目录前言 1,关于beep和alsa库 2,使用需要pkg-config和alsa库 3,总结前言本文的原文连接是: https://blog.csdn.net/freewebsys/artic ...
mciSendString函数简介（播放音乐以及录音相关操作）
函数功能:播放多媒体音乐,视频等 mciSendString是用来播放多媒体文件的API指令,可以播放MPEG,AVI,WAV,MP3,等等.这个函数有自己的mci指令,可以通过不同的指令实现不同的功 ...
python入门系列1——用Beep函数手动实现7个音符的播放
今天学了python,参考练习题,本来是找倍数的,但是想到找到之后发个提示音岂不是很有意思,然后就找到了这个函数,进而想到做个7阶音符玩玩. 7个音符差别在哪关于乐理知识就不过多介绍了,我也是一个音 ...
C/C++播放音乐的函数的学习
mciSendString函数 #include <iostream> #include <Windows.h> //Unicode字符串需要用到 #include <c ...
C/C++笔记之播放音乐的函数
前缀为mci(Media Control Iterface): //头文件mmsystem.h或windows.h //需要添加静态库 (lib,"winmm.lib") //支持 ...
sonos qq音乐_如何在多个Amazon Echo扬声器上播放音乐（像Sonos）
sonos qq音乐 Amazon is a little late to the whole-house audio party. Ecosystems like AirPlay and Sonos ...

VBA-API：通过BEEP函数(扬声器)播放音乐

VBA-API：通过BEEP函数(扬声器)播放音乐相关推荐

最新文章

热门文章