重庆分公司,新征程启航
为企业提供网站建设、域名注册、服务器等服务
你考虑下是不是这样的,beep=0时蜂鸣器不发声的。
成都创新互联公司是专业的长宁网站建设公司,长宁接单;提供网站设计、成都网站设计,网页设计,网站设计,建网站,PHP网站建设等专业做网站服务;采用PHP框架,可快速的进行长宁网站开发网页制作和功能扩展;专业做搜索引擎喜爱的网站,专业的做网站团队,希望更多企业前来合作!
因为单片机一上电的时候为高电平,即beep=1,在没执行到beep=0;时蜂鸣器响了一声。
建议你分析下蜂鸣器驱动电路
使用VB自身的BEEP函数,在有些PC机上不能正常发声,为了解决使用VB自带的BEEP函数不能正常发声,我们可以使用API完成这个功能。
需要做的很简单:
在声明中加入一句:
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
然后使用 格式:
beep fre,dly
即可完成响声。其中:fre是声音的频率,通俗讲就是声音的高低音,声音频率(从37Hz到32767Hz)。在windows95中忽略。
dly是响一声的长短,声音的持续时间,以毫秒为单位。如为-1,表示一直播放声音,直到再次调用该函数为止。在windows95中会被忽略。
举例:
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
If TempText.Text "13" Then
Beep 2000,3000 '2000是声音的高低,3000是延长的时间(ms)
end if
End Sub
这可能是因为你的电脑没有蜂鸣器吧,这两个函数好像都是通过蜂鸣器发声的,不是通过扬声器发声
按位取反。
如果你的beep只是一位的话,即
bit
beep
=
1
那beep
=
~beep结果就是0
如果是多位的变量的化就是用二进制取反,如
int
beep
=
11001(二进制,你看到的是二进制!!不是十进制)
那beep=~beep就是00110
先不用中文字,用ASCII英文,试验通过了再试中文:
If temperature temperature.AlmH Then
MCGS.!Beep()
Endif
-----
或先不要条件,直接试验!Beep() 能否能在脚本调用 发声。