程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB綜合教程 >> 在VB5中如何使機箱內的小喇叭發出不同的聲音?

在VB5中如何使機箱內的小喇叭發出不同的聲音?

編輯:VB綜合教程
->-chengdx
  回答1:
  Mmsound.drv是小喇叭的系統接口,很多API的書都有用法介紹
  -219張晶
  回答2:
  使用VB中的beep語句,但這只能發出一種聲音。如果想發出不同聲音,可以
  使用API函數。詳情如下:(摘自VB-Helper)
  UsetheBeepAPIfunction.
  
  Thisexampledemonstratestwointerestingthings.First,itshowshowtomakeabeepofanyfrequencyanddurationratherthanusingthestandardtoneyougetwiththeBeepstatement.
  
  Second,notethattheBeepAPIfunctionhasthesamenameasVisualBasic'sBeepstatement.Todifferentiatethem,youcanassignanewnametotheBeepAPIfunctioninitsDeclarestatement.Itisknownas"Beep"inthelibrary(theAliasstatement)butitisknownasAPIBeeptotheprogram.
  
  Youcanusethistechniquetodifferentiatebetweenfunctionswiththesamename,oryoucanuseittogiveAPIfunctionsanamethatiseasiertowrite(forexample,iftheAPInameisverylong).
  
  Inthedeclarationssection:
  
  OptionExplicit
  PrivateDeclareFunctionAPIBeepLib"kernel32"Alias"Beep"(ByValdwFreqAsLong,ByValdwDurationAsLong)AsLong
  'Tomakeabeeplasting500millisecondswithfrequencyspecifiedinthe
  'TextBoxtxtFrequency(try1000forstarters):
  
  PrivateSubCommand1_Click()
  DimfrequencyAsLong
  
  frequency=CLng(txtFrequency.Text)
  APIBeepfrequency,500
  EndSub
  -Prisoner->->

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved