Free Trial

Safari Books Online is a digital library providing on-demand subscription access to thousands of learning resources.


Share this Page URL
Help

Kapitel 11: API-Funktionen einsetzen > 11.28 Tasten abfangen - Pg. 632

Kapitel 11 API-Funktionen einsetzen 11.27 PC piepsen lassen Soll Ihr PC nur einen Piepton abgeben, dann setzen Sie die API-Funktion Beep ein. Listing 11.28: PC piepsen lassen Declare Function Beep Lib "kernel32.dll" _ (ByVal dwFreq As Long, ByVal dwDuration As Long) _ As Long Sub ComputerPiepst() Dim lng As Long lng = Beep(250, 1000) If lng = 0 Then MsgBox "PC kann nicht piepsen!" End If End Sub Die API-Funktion benötigt zwei Parameter. Im ersten Argument legen Sie fest, mit wie viel Hertz der Piepton erzeugt werden soll. Mögliche noch hörbare Werte lie- gen im Bereich zwischen 37 und 5.500. Im zweiten Argument legen Sie die Dauer des Pieptons in Millisekunden fest.