beep über soundkarte abspielen
08.01.2006 22:42:52
michael
mit dem nachfolgenden Code erklingen die Töne nur über den internen Lautsprecher, jedoch nicht über die an eine Soundkarte angeschlossenen Lautsprecher.
Wie kann ich das ändern bzw gibt es eine (einfache) Alternative?
Option Explicit
Declare
Function Ton& Lib "kernel32" Alias "Beep" (ByVal dwFrequenz As Long, ByVal dwDauer As Long)
Sub Signal()
' ton, länge
'Ton 100, 1000
Ton 440, 1000
End Sub
Außerdem klingen die Frequenzen ein wenig sonderbar.Liegt das am internen Lautsprecher oder kann es das tonerzeugende Bauteil nicht besser?
Weiß jemand wie die Frequenzen im PC erzeugt werden und wie groß die Abweichung vom Frequenz-Sollwert sein kann?
Danke und viele Grueße
michael