首页 > 学院 > 开发设计 > 正文

使机箱内的小喇叭发出不同的声音

2019-11-18 17:37:01
字体:
来源:转载
供稿:网友
使用VB中的beep语句只能发出一种声音。如果想发出不同声音,可以使用API函数。

OptionExplicit
PRivateDeclareFunctionAPIBeepLib"kernel32"Alias"Beep"(ByValdwFreqAsLong,ByValdwDurationAsLong)AsLong

PrivateSubCommand1_Click()
 DimfrequencyAsLong

 frequency=CLng(txtFrequency.Text)
 APIBeepfrequency,500
EndSub->


发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表