kostenloser Webspace werbefrei: lima-city

Tonspuren vergleichen?

lima-city → Forum → Programmiersprachen → Basic

1. Autor dieses Themas

   adrians

   

   adrians hat kostenlosen Webspace.

   12:14, 18.4.2005

   Hi!
   
   Ist es in VB m?glich auf Tonspuren zuzugreifen und mit anderen Tonspuren zu vergleichen?
   Und wie kann man auf das Mikrofon zu greifen? (Wird da auch direkt ne Tonspur ausgegeben?)
   
   Nunja...danke im Voraus...
   
   edit:Okay, jetz hab ich nen mikro zugriffscode aber den raff ich net^^:
   
   '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
   
   ^^

2. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

3. t*****o

   15:05, 20.4.2005

   das wird alles ?ber ne api-funktion gemacht.:
   
   

   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

   
   
   lpstrCommand: Befehl
   lpstrReturnStr: Ausgabebuffer, hier steht das ergebnis drin
   dwReturnlength: L?nge des Ausgabebuffers in Byte
   hCallback: nicht ben?tigt
   
   Als antwort kommt 0 beim Fehlschlag.
   
   
   
4. Autor dieses Themas

   adrians

   

   adrians hat kostenlosen Webspace.

   17:34, 20.4.2005

   ?hm, kanns sein das das ein PHP Code ist? Hmm...oder was bedeuten diese <? und ?> ???^^
   
   Naja...und vor allem wie frage ich die Dinger ab?!
   H????????!^^
   
   
   Nunja, wenn du mir den Code noch etwas erkl?ren k?nntest ?re das nett

5. hoffmann

   hoffmann hat kostenlosen Webspace.

   21:07, 22.4.2005

   Das sind API Deklarationen.
   Damit ist es m?glich auf Funktionen einer DLL zuzugreifen, wie Windowsfunktionen und auch von anderen Anbietern.
   Man muss aber dabei beachten das es sich hierbei um C Typen handelt.
   Gen?gen Info dazu findest du im Internet http://www.activevb.de oder im MSDN.
6. Autor dieses Themas

   adrians

   

   adrians hat kostenlosen Webspace.

   12:14, 23.4.2005

   Ja, aber wie lade ich die Dateien die gepr?ft werden da rein?
   
   Also die die verglichen werden sollen? Und wie kann ich das mi dem Aufnehm Code kombinieren???

7. Diskutiere mit und stelle Fragen: Jetzt kostenlos anmelden!

   lima-city: Gratis werbefreier Webspace für deine eigene Homepage

Dir gefällt dieses Thema?