平码公式规律出肖|平码可以买3个平码吗

VBGood網站全文搜索 Google

搜索VBGood全站網頁(全文搜索)
首頁 - 經驗之談 - 使機箱內的小喇叭發出不同的聲音
發表評論(0)作者:, 平臺:, 閱讀:14756, 日期:2000-03-12
請問在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
平码公式规律出肖 科创板股票涨跌限制 福建今日快3 北京快三开奖号 滚球体育网址 新浪股票行情 紫幻河南麻将看牌器 四川1快乐12 11选5江苏一定牛 股票配资 辽宁快乐12开奖结