PcSpeaker
Hola, desearía saber si desde VB se puede programar el altavoz interno a una frecuencia determinada y como se debe hacer. Gracias
1 Respuesta
Respuesta de gydba
1
Fíjate si te sirve:
Option Explicit
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Form_Load()
Dim loopSound As Long
For loopSound = 0 To 5000 Step 10
Beep loopSound, 50
DoEvents
Next loopSound
End Sub
Suerte
.: Gydba :.
Option Explicit
Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Private Sub Form_Load()
Dim loopSound As Long
For loopSound = 0 To 5000 Step 10
Beep loopSound, 50
DoEvents
Next loopSound
End Sub
Suerte
.: Gydba :.
Muchas Gracias ;) ahora podré probar mi "malévola" idea de un zumbido-provoca-dolores-de-cabeza... je je... ya te contaré como me ha ido :D
