Question

在vb里，我调用beep函数，为什么发不出声音啊，我是希望当文本框的输出的数值大于某个数时就发出声音

If TempText.Text > "13" Then
Call Beep(2000, 3000)
End If
难道和用的电脑有关吗？

Answer 1

使用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

Answer 2

VB里，不能写成Call Beep(2000, 3000)，直接写beep即可。
If TempText.Text > "13" Then
Beep
End If

如果嫌声音不好，想改变声音，就得使用API了。
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

追问

声音有了，但为什么声音一直响个不停啊，还有啊，把我图形上显示温度的曲线卡住了，曲线不能动了，程序也关不了，还是最后把rs232那根线拔了，程序才自己关了，这是神马情况

追答

你说的新问题跟BEEP的这段代码没太大关系，你把3000ms的时间缩短一些，50-100ms试试。如果不是那应该是别的问题了。

Answer 3

这是API……前提要声明........ 要用语句用，不是函数。

Private Declare Function Beep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
***************************
If TempText.Text > "13" Then
Beep 2000, 3000
End If
End Sub

Answer 4

F=get(handles.gongshi,'string');
f = char(F);
x = sym('x');
f2 =['diff(' f ')'];
try
eq_expect = eval(f2);
catch exception
msgbox('please input the function in the right way!');
return
end
f3 = char(f2);
set(handles.jieguo,'string',f3);