说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

使机箱内的小喇叭发出不同的声音 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
使机箱内的小喇叭发出不同的声音 -VB资料

请问在VB5中如何使机箱内的小喇叭发出不同的声音?
- chengdx
回答1:
Mmsound.drv 是小喇叭的系统接口 ,很多API的书都有用法介绍
- 219 张晶
回答2:
使用VB中的beep语句,但这只能发出一种声音。如果想发出不同声音,可以
使用API函数。详情如下:(摘自VB-Helper)
Use the Beep API function.

This example demonstrates two interesting things. First, it shows how to
make a beep of any frequency and duration rather than using the standard
tone you get with the Beep statement.

Second, note that the Beep API function has the same name as Visual
Basic's Beep statement. To differentiate them, you can assign a new name
to the Beep API function in its Declare statement. It is known as "Beep"
in the library (the Alias statement) but it is known as APIBeep to the
program.

You can use this technique to differentiate between functions with the
same name, or you can use it to give API functions a name that is easier
to write (for example, if the API name is very long).

In the declarations section:

Option Explicit
Private Declare Function APIBeep Lib "kernel32" Alias "Beep" ( _
ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
To make a beep lasting 500 milliseconds with frequency specified in the
TextBox txtFrequency (try 1000 for starters):

Private Sub Command1_Click()
Dim frequency As Long

frequency = CLng(txtFrequency.Text)
APIBeep frequency, 500
End Sub
- Prisoner
挑战Google!传Facebook与Yahoo要联手开发搜索引擎 揭秘Android 4.2 开发者的天堂与地狱 11大黄金法则:顶级移动UX设计心髓 库克时代:苹果已经不是苹果 设计师必备:极简风格的Fluid UI快速原型图工具 iPhone 5发布,后乔布斯时代苹果乏善可陈 牛人妙计:HTML5应用也能像原生一样跑得快 移动周报:OpenFeint难逃关闭命运 细数与苹果恩怨史 FlyingDaggers团队专访:不浮躁,用心做真正的原创游戏! IT巨头混战:谷歌、苹果、Facebook以及亚马逊的四国演义 乐视TV:智能电视平台——Android 开发者的新空间 TIOBE 2012年12月编程语言排行榜:Objective-C冲刺卫冕年度语言 11月份浏览器市场份额 IE10已占据0.51% 亚洲高科技公司正在分享惠普、戴尔和IBM的云“午餐” Groupon创业启示:进军海外,请三思 天才之为责任:Unity CEO谈论Unity 4.0游戏引擎 中文版Evernote百宝箱上线:开发者海外推广新渠道 360产品被爆收集用户隐私 桌面安全路在何方 销售额达一万亿元 阿里巴巴成世界最大电商 共享软件海外营销策略与实战分析(武汉站)成功落幕 你未必知道的CSS故事:揭开leading的面纱 2013年 影响Web发展的5类API 《Warcraft是怎样炼成的》:多人对战、战争迷雾以及AI HBTC精彩回顾 Hadoop专家分享大数据技术工具与最佳实践 苹果iTV规格泄露:iOS应用开发的新蓝海 Facebook觊觎微信鼻祖WhatsApp,但谈不上收购 首款社交API应用 Facebook Messenger for Firefox正式上线! 共享软件海外营销策略与实战分析(沈阳站)成功落幕 移动之伤:为什么山寨游戏比原创更火? IBM在京发布PureData 主打数据交易处理、操作分析 Intel发布Hadoop免费版 全力拓展生态圈 请教三层开发 请问用stringGrid控件,怎样获知当前行是第几条纪录? JScrollbar的颜色怎么改??? 请Norwaywoods(挪威的森林)来拿分!!!(方法见内容) php连mssql,php.ini or httpd.conf需要改动什么地方? 关于多文档编程的超难问题,高手请进!!一定给分,我会继续加分!!! 提问:关于软件测试的若干问题,谢绝灌水者入内!高薪聘请业内人士! 请问用javascript怎么显示客户端的IP地址?谢谢 sql问题 oracle中什么权限,才能使一个用户下的表参考另一个用户下的表(就是外键)? 种了中国一号病毒,怎样才能铲草除根? yinx(yinx)请进,拿你应得的分数 请各位高手帮忙,有高分送上。 一个SQL语句的问题。谢啦 为什么我的msdn帮助系统“目录”、“索引”等里的标题都显示不出来了呢? 存储过程只能用一种方式调用吗? 数据库字段问题 如何在ADO的SQL控件中不用ODBC完成长型备注型字段的模糊查询 数据库连接问请各位指点(300分) 圖像控件和報表製作 创天中文版是怎么汉化的?我想把它改回英文的要怎么改? 请问有没有Linux版本的QQ? 找DriverStudio2.5正式版 VB6中不能使用ACCESS2000数据库??? vb中怎么调用dos命令 请问海星... 哪有visual age3.0下载? 有关FTP 我双击注册表编辑器出现"注册表编辑器被管理员禁用"是怎么回事?怎么解决? 如何更改Oracle显示日期的默认方式? *****高手请进****** ======================各位高手,看一下!UP也有分! 请问安徽的高程成绩什么时候可以查? 请问谁知道vb里面如何调用notes对象,怎么调用? 急急急,我好急,有没有办法先把记录集处理一下在绑顶到datagrid 请问为什么这一段XML代码运行不了???为什么???帮帮忙??多谢!! 请教有关手机方面的问题 连编好的可执行文件不能用 帮帮忙啊 哪儿有免费的jsp空间并且有数据库支持的?谢谢 客户机的WinSock控件采用TCP协议,如何使用预设的固定的端口? sos!Help me! 有谁知道怎样用Capwnd控件(用于捕获视频的控件)?? 请帮我看看,谢了 请问如何控制imagecombo控件的下拉高度呢? 能告诉我什么是回调函数吗?注册的系统回调函数中引入的参数能在别的地方得到吗? 在RicheEdit里的字体颜色都是黑色,能变成其他颜色吗? 请问在视中如何使主框架的某个菜单项变为不可用(代码如下,错在什么地方,如何改?)! 请教VFP中GRID的显示和取值问题 请教一些有关用ROSE进行UML设计的问题 高薪寻找合作者:医院信息管理系统 是不是所有恐龙死了都变成化石? 不锈钢无缝管承受压力求助:现有液压设备要安装,管路设计用不锈钢无缝管,液压设备最大的压力为16Mpa,请问管子选用14*2mm,16*2mm的能承受这个压力吗?顺便问问这个东西怎算计算的,谢谢!急切 已知等比数列{an}的同项公式为an=3^n-1,设数列{bn}满足对任意自然数n都有b1/a1+b2/a2+b3/a3+...已知等比数列{an}的同项公式为an=3^n-1,设数列{bn}满足对任意自然数n都有b1/a1+b2/a2+b 为什么形成化石的首要条件是生物的大量死亡? 无缝钢管承受压力160mpa系数是多少 硫化皮带需满足哪些要求 生物化石属于生物吗? 高压锅炉无缝钢管的承受压力是多少? 皮带硫化接头如何计算? 世界上有死化石吗? 无缝管的压力怎样计算 急已知 外径89 壁厚8 抗拉强度 465 求压力 煤属于岩石吗 数列an中,a1=1,an\an+1是关于X的方程 X平方—(2n+1)x+1/Bn=0的两根,则数列Bn的前n项和Sn是多少? 化石就是生物吗?是或不是? 已知数列的前n项和Sn=2n^2+2n,数列bn的前n项和Tn=2-bn,设cn=an*bn,证明:当且仅当n>=3时c(n+1) 橡胶制品的重要指标是什么 下列岩石中,可能含有化石的是()A.花岗岩和页岩 B.大理岩和砂岩 C.砾岩和板岩 D.石灰岩和页岩 液压表与气压表的区别我有一个量程1.6Mpa的压力表,是不是既能测气压又能测水压?压力都不超过0.8Mpa.这两种压力表在使用上有什么本质上的区别吗?(不要跟我说什么“这本质就不一样”的废 在数列{an}中,a1=1,an+1=(1+1/n)an+(n+1)∕2n 设bn=an/n,求证bn+1-bn=1/2^n bn的通项公式 地壳中含有动植物化石的岩石是?A.火成岩B.沉积岩C.变质岩D.花岗岩 气压表怎么调压力 地球上的不可再生能源分别是哪些?(只要名字)请说全点,我只要哪些不可再生能源的名字就可以了, 已知压力容器的设计压力,如何确定计算压力?如设计压力为0.8MPa,计算压力? 如果量的压力一样,气压表能否当油压表用,回答正确我会加20分的,因为现在回答中打广告的太多了, 人类在地球上还能支撑多少年?1、环境恶化,也许很快人就不能适应了.2、资源枯竭,人也许用不了多少年就没东西吃了. 给排水设计水力计算,怎么计算最不利点和每段的压力我画的是高层公建给排水给水立管,设置减压阀的时候要通过水力计算.管道水头损失怎么算 必须的出水水头怎么算?有公式么 压力表和气压表的区别 哪里的橡胶制品生意好做一点 设计选型计算用的压力比如知道管道及缓冲罐进口工作压力0.25Mpa,设计压力为1.6Mpa,当进行缓冲罐选型计算的时候使用1.6MPa为操作压力还是0.25Mpa呢? 什么叫绝对压力、表压力? 为什么橡胶制品出油?像带的腕带,中性笔上的橡胶套,长时间后 会油油的,还有特殊气味,为什么? 构成生物化石的主要成分是()生物体的基本物质蛋白质生物体的遗传物质核酸生物体的主要供能物质糖类溶于地下水中的矿物质 数列{an} {bn}满足:a1=0 a2=1 a(n+2)=[an+a(n+1)]/2 bn=a(n+1)-an 求证 bn是等比数列和 bn的通向公式 它是不是化石怎么鉴别是否是化石~在内蒙古呼和浩特有没有鉴定这种石头的地方~ 生物为什么会化石生物化石的发生了哪一些化学变化 在沼气、石油、医用酒精、钢、干冰、熟石灰中属于含有碳元素的混合物有几种? 这是不是某种化石? 化石算是生物吗 我们生活中的石油煤气是不是地底下的沼气? 哪个专家帮忙看一下这个是不是化石.是哪个时代的植物化石. 我要做作业,快 液压系统上的压力表指示要换算成油压应该怎样算呀? 橡胶制品中什么材料与铬反应 500米线路80千瓦负荷需要多大电线如何计算 液压系统的回油压力是怎么回事 化石只出现在沉积岩中吗 设cn=(an+1)bn.n=1,2,3……求数列{cn}的前n项和Tn已知数列{Bn}的前n项和为Sn且2Sn+Bn=2,数列{An}为等差数列且As=14,A7=20(1)数数列{Bn}的通项公式 下列物质不能作为能源的是:A天然气B石油C煤D石灰石 为什么石灰岩能找到生物化石 总负荷怎么算啊我把我们公司的所有用电器(电脑.空调,灯,食堂的锅冰箱等)的最大功率都加一起了,总和为107.55KW,电表上写的是3X20(80A),3X220/380.请问有没有超负荷啊,怎么算才对啊. 已知两个等比数列{an},{bn},满足a1=a(a>0),b1-a1=1,b2-a2=2,b3-a3=3,若数列{an}唯一,求若数列{an}唯一,求a的值 为什么只有沉积岩才有化石? 求电焊机的计算负荷施工现场临电施工组织设计,电焊机负荷计算怎么求啊,要详细一点的,还有公式,讲解什么的, 已知两个等比数列{an},{bn},满足a1=a(a>0),b1-a1=1,b2-a2=2,b3-a3=3问题(1)若a=1.求数列(an)的通 (2)若数列{an}唯一,求a的值 石灰岩一般含有什么化石 三相电负荷计算三十千瓦负荷要多大电线 已知两个等比数列(Sn).(Bn).满足a1=a(a>0),b1-a1=1,b2-a2=2,b3-a3=3,(1)若a=1.求数列(an)的通 在野外考察,最有可能发现的化石是不是沉积岩 Φ57无缝钢管能承受多少压力 在数列{an}中,a1+a2+a3+...+an=n-an(n=1,2,3...),设bn=an-1,求证数列{bn}是等比数列,设Cn=bn·(n-n^2)(n=1,2,3...),如果对任意n属于正整数,都有Cn
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn