Mit der nachfolgenden Routine ist es möglich eine WAVE-Datei über das Mikrofon aufzunehmen. Die Aufnahme erreicht hierbei eine Qualität von 8 Bit bei 11025 Hz. ' Zunächst die benötigten API-Deklarationen Private Declare Function mciSendStringA Lib "winmm.dll" ( _ ByVal lpstrCommand As String, _ ByVal lpstrRetrunString As String, _ ByVal dwReturnlength As Integer, _ ByVal hCallback As Integer) As Long Private Declare Function sndPlaySound Lib "winmm.dll" _ Alias "sndPlaySoundA" ( _ ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long ' WAVE Konstanten Private Const SND_ASYNC = &H1 Private Const SND_NODEFAULT = &H2 ' WAVE-Datei aufnehmen Private Sub WAVE_RecordStart() Dim antwort Dim strAufnahme As String * 256 Dim cmd As String cmd = "open new type waveaudio alias recwave" antwort = mciSendStringA(cmd, strAufnahme, 256, 0) If antwort <> 0 Then MsgBox "Fehler beim Anlegen der neuen Datei!" Exit Sub End If cmd = "record recwave" antwort = mciSendStringA(cmd, strAufnahme, 256, 0) If antwort <> 0 Then MsgBox "Fehler bei der Aufnahme!" End If End Sub ' Aufnahme stoppen/beenden Private Sub WAVE_RecordStop() Dim antwort Dim strAufnahme As String * 256 cmd = "stop recwave" antwort = mciSendStringA(cmd, strAufnahme, 256, 0) If antwort <> 0 Then MsgBox "Fehler beim Beenden der Aufnahme..." Exit Sub End If cmd = "save recwave " + Trim$(Text2.Text) antwort = mciSendStringA(cmd, strAufnahme, 256, 0) If antwort <> 0 Then MsgBox "Fehler beim Speichern der Aufnahme..." Exit Sub End If cmd = "close recwave" antwort = mciSendStringA(cmd, strAufnahme, 256, 0) If antwort <> 0 Then MsgBox "Fehler beim Schließen der Aufnahme..." Exit Sub End If End Sub Dieser Tipp wurde bereits 25.690 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 TOP! Unser Nr. 1 Neu! sevDataGrid 3.0 Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |