请问：如何编程控制PC的音量增加或减少，可否给段代码？

2001-03-04 09:18:00 224 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

Axure RP9教程音量滑块 Axure 动态面板实现音量调节一、说明二、效果显示三、操作步骤（一）、设置滑块拖动效果一、说明音量滑块设置在PC端及移动端的应用场景相对较少，但在播放器类APP应用场景相对较广，例如调节视频的亮度、声音等等。如何来实现这种交互效果呢？接下来我们会用到动态面板的元件跟随来实现二、效果显示案例链接：https://f9d9x0.axshare.com/ 三、操作步骤在画布中添加一个矩形框：500 x 32，圆角设置为16；选中画布中矩形框Ctrl+D复制一个矩形框，将背景设置为绿色，用阅读详情

...全文

用Python在PC蜂鸣器上模拟喷气引擎声浪：PWM与底层硬件编程实践数字信号处理（DSP）是计算机音频技术的核心，它通过采样、量化将连续声波转化为数字序列。其原理在于利用傅里叶变换分析声音的频谱成分，并通过算法重构波形。这项技术的价值在于能在有限硬件上实现丰富的声音模拟，广泛应用于嵌入式系统告警、复古游戏音效等场景。本文以PC蜂鸣器为硬件平台，结合脉冲宽度调制（PWM）技术，演示如何将复杂的喷气引擎声浪频谱特征，通过Python编程转化为蜂鸣器可执行的频率与占空比指令序列，完成一次从音频分析到底层硬件控制的完整工程实践。阅读详情

baby999

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

baby999 2001-03-04

打赏
举报

老兄：我希望控制系统的总的音量，就是双击系统托盘代表音量的小喇叭图标后，显示的音量控制窗口中的第一项；你的第一种方法只能控制wave波形音量，而不能控制midi,cd音量。我希望的是用一段代码控制总的音量，不区分哪种类型。

多谢老兄！

TechnoFantasy 2001-03-04

打赏
举报

我这里有VB代码：
http://www.applevb.com/sourcecode/vol%20control.zip

bill_lasker 2001-03-04

打赏
举报

给，接住：
《 {用Delphi实现控制左右声道音量} 》

{　　已经有很多文章介绍过控制总音量的方法，但控制左右声道音量的方法却很少有文章介绍，本人介绍一种用Delphi实现控制左右声道音量的妙法，希望能给你的程序添彩。
　　一、调节全部音量
　　1．先在窗体中添加一个trackbar控件，可通过改变它的位置来调节音量，在trackbar1的属性中，我们把Max属性修改成255，改成这个值是为了便于进行二进制的音量调节操作。
　　2．为了调用一个Windows函数，在uses子句里加上Mmsystem。
　　3．为trackbar1的Onchange事件编写如下代码：
　　procedure Tform1.TrackBar1change(Sender:Tobject);
　　var t，v：longint；// t的最大值为8位的二进制：11111111；用v来表示音量的大小，这是个32位的整数，高16位表示右声道的音量，低16位表示左声道的音量
　　begin
　　t：=trackbar1.Position；//得到Trackbar的位置，可用这个值来表示音量的大小
　　v：=(t shl 8) or (t shl 24)；//将t左移8位、24位
　　waveoutsetvolume(0，v)；//设置音量
　　end；
　　二、分别控制两个声道的方法
　　1．控制左声道
　　procedure Tform1.TrackBar1change(Sender:Tobject);
　　var t，v：longint；
　　begin
　　t：=trackbar1.Position；
　　waveoutgetvolume(0,@v)；//@表示指向变量v的指针（32位），调用此函数的用意就是得到右声道的值，做到在调节左声道的时候，不改变右声道
　　v：=v and ＄ffff0000 or (t shl 8)；//数字前面加＄表示是十六进制数字
　　waveoutsetvolume(0，v)；
　　end；
　　2．控制右声道
　　procedure Tform1.TrackBar2change(Sender:Tobject);
　　var t，v：longint；//它的原理同上
　　begin
　　t：=trackbar2.Position；
　　waveoutgetvolume(0,@v)；
　　v：=v and ＄0000ffff or (t shl 24)；
　　waveoutsetvolume(0，v)；
　　end；
　　三、设置滑块的初始位置
　　1．程序开始执行时，缺省情况下，Trackbar的位置在0，但我们希望程序开始执行时，这两个滑块能自动得到当前的音量，而处在相应的位置。
　　procedure TForm1.FormCreate(Sender: TObject);
　　var v：longint；
　　begin
　　waveoutgetvolume(0,@v)；//得到现在音量
　　trackbar1.Position：=hi(v)；//设置左滑块的正确位置
　　trackbar2.Position：=hi(v shr 16)；//设置右声道滑块的正确位置
　　end；
　　注：函数hi(v)的作用为：返回一个16位无符号整数的高8位值。如果v为32位，则高16位自动被忽略了。
　　2．只使用高8位时，可使调节效果更明显。
　　3．对波形文件可以用waveoutgetvolume函数，对cd文件可以用auxgetvolume函数。
　　注：以上程序均在Delphi 5.0，Windows 98SE下调试通过。}

请问：如何编程控制PC的音量增加或减少，可否给段代码？

相关推荐