Beep: Unterschied zwischen den Versionen

Aus API-Wiki
Wechseln zu: Navigation, Suche
Zeile 2: Zeile 2:
 
Mit Hilfe der Funktion '''Beep''' können Töne mit vorgegebener Frequenz und Dauer über den Systemlautsprecher ausgegeben werden.
 
Mit Hilfe der Funktion '''Beep''' können Töne mit vorgegebener Frequenz und Dauer über den Systemlautsprecher ausgegeben werden.
  
<syntaxhighlight lang="vb">
+
<syntaxhighlight lang="<syntaxhighlight lang="vb">">
 
Declare Function Beep Lib "kernel32.dll" ( _
 
Declare Function Beep Lib "kernel32.dll" ( _
 
                 ByVal dwFreq As Long, _
 
                 ByVal dwFreq As Long, _
Zeile 22: Zeile 22:
 
==Beispiel==
 
==Beispiel==
  
<syntaxhighlight lang="vb">
+
<syntaxhighlight lang="<syntaxhighlight lang="vb">">
 
Dim RetVal As Long
 
Dim RetVal As Long
  
Zeile 46: Zeile 46:
  
 
*MSDN US-Library [http://msdn2.microsoft.com/en-us/library/ms679277.aspx]
 
*MSDN US-Library [http://msdn2.microsoft.com/en-us/library/ms679277.aspx]
*Beispiel bei vbArchiv [http://www.vbarchiv.net/archiv/tipp_430.html]
+
*Beispiel bei <syntaxhighlight lang="vb">Archiv [http://www.<syntaxhighlight lang="vb">archiv.net/archiv/tipp_430.html]
  
 
[[Kategorie:Sonstiges]]
 
[[Kategorie:Sonstiges]]

Version vom 5. November 2016, 23:09 Uhr

Mit Hilfe der Funktion Beep können Töne mit vorgegebener Frequenz und Dauer über den Systemlautsprecher ausgegeben werden.

">
Declare Function Beep Lib "kernel32.dll" ( _
                 ByVal dwFreq As Long, _
                 ByVal dwDuration As Long) As Long

Parameter

dwFreq

Die Frequenz des Tons in Hertz. Diese muss zwischen 37 und 32767 liegen. Es sind nur Frequenzen bis 16 kHz sinnvoll, da höhere Frequenzen nicht mehr wahrnehmbar sind.

dwDuration

Die Dauer des Tons in Millisekunden.

Rückgabe(n)

Die Funktion gibt einen Wert des Types Long ungleich 0 bei Erfolg, den Wert 0 bei Misserfolg zurück.
Sollte die Funktionsrückgabe 0 sein, so lässt sich durch Err.LastDLLError die Fehlernummer zurückgeben.

Beispiel

">
Dim RetVal As Long

'Ein 1 Sek. langes 'a'
RetVal = Beep(440&, 1000&)

If RetVal = 0 Then
    'Error-Handler
End If

Hinweise

Das Programm wird für die Dauer des Tons angehalten.

Betriebssystem

  • Windows 95 / 98 / Me (Hier werden die beiden Parameter allerdings ignoriert.)
  • Windows NT 4.0 / 2000 / XP
  • Windows Vista

Verweise