rog_moc
|
MONTES CLAROS
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 01/06/2005 17:13 hs
olá amigos, alguem sabe me dizer como faço para emitir um beep com o auto falante do computador. pq eu estou usando um fone, quando minha aplicação acabar eu quero que um beep seja disparado, se o beep sair no fone so eu vou escutar, por isso queria que fosse no auto falante do computador Abraços.
Rogério carvalho
|
|
|
|
|
|
marcelo
|
S PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 01/06/2005 18:56 hs
Segue o Comando
Private Declare Function APIBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Command1_Click()
'MUDE O VALOR DE 1000 PARA QUALQUER OUTRO E VEJA O TIMBRE(FREQUENCIA) DO SOM
'MUDE O VALOR DE 100 E VEJA O TEMPO DO SOM
APIBeep 1000, 100
End Sub
|
|
|
|
|
|
Postada em 02/06/2005 16:18 hs
Crie um label e uma caixa de texto, e coloque tb um timer diga que o label vai pegar o timer do sistema,e coloque a hora desejada para o beep ou determine que quando a palicação for terminada rode o beep. no form label1.caption=time$ no timer label1.caption= time$ timer.interval=100 if label1.caption = txt1.text then "beep" (se desejar pode tb mandar rodar um media player) end if ou if form1.load = end then "beep" end if Fui.
 VB FANÁTICO - DIOGO AREAS MSN: diogo_areas@hotmail.com
|
|
|
|
rog_moc
|
MONTES CLAROS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 04/06/2005 20:51 hs
valeu amigos, problema resolvido.
Rogério carvalho
|
|
|
|
