kostenloser Webspace werbefrei: lima-city

Mikrofonpegel anzeigen?

lima-city → Forum → Programmiersprachen → Basic

1. Autor dieses Themas

   h******g

   16:48, 2.6.2010

   Hallo!
   
   Für ein Programm suche ich eine einfache Möglichkeit, um den derzeitigen Pegel des Mikrofoneingangs anzuzeigen.
   Weiß jemand, ob man dass mit ein paar Codezeilen in VB 2008 realisieren kann?
   
   lg hm4-blog

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

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

3. sebastian-online

   sebastian-online hat kostenlosen Webspace.

   18:11, 3.6.2010

   Hallo,
   
   zwar habe ich so ein Problem noch nicht gelöst, aber ich könnte mir vorstellen, dass Du bloß die aktuelle Amplitude abfragen brauchst.
   http://forum.vb-paradise.de/programmieren/multimedia-und-spieleprogrammierung/25989-loesungsvorschlag-mikro-der-soundkarte-auslesen-und-triggern/?highlight=und+triggern
   http://forum.vb-paradise.de/programmieren/multimedia-und-spieleprogrammierung/33774-microphone-level-auslesen/
   http://forum.vb-paradise.de/programmieren/hardware-schnittstellenprogrammierung/37412-mikrofonsignale-in-werte-umwandeln/
   
   
   Zur Aufnahme gibt es Code auf dieser Seite:
   http://social.msdn.microsoft.com/forums/en-US/vbgeneral/thread/41e5a1fd-b33a-4e62-b73a-aa364c5dae5c (Dies muss ggf. angepasst werden.)
   
   Gruß,
   Sebastian
4. Autor dieses Themas

   h******g

   21:53, 3.6.2010

   Ja genau das habe ich gesucht!
   ...und funktioniert einwandfrei
   
   Vielen Dank!
   
   
   Hier ist übrigens der Codeausschnitt für die Pegelbestimmung (sollte das irgendjemand brauchen):
   

   Public Class Form1
       Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal Command As String, _
      Optional ByVal ReturnString As String = " ", Optional ByVal ReturnLength As Integer = 0, Optional ByVal Callback As Integer = 0) As Integer
       Dim rs As String ' Returnstring
       Dim SoundLevel, Mode As New String("  ", 20)
       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
           Call mciSendString("Open New Type waveaudio Alias MySound", rs, 128, 0)
           Call mciSendString("record MySound", rs, 128, 0)
           Call mciSendString("Stop MySound", rs, 128, 0)
           Timer1.Enabled = True
       End Sub
       Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
           Dim cb As Integer = 0
           Call mciSendString("status MySound level", SoundLevel, 20, cb)
           label2.text = Val(SoundLevel)
           Call mciSendString("status MySound mode", Mode, 128, cb)
           Label1.Text = Mode
       End Sub
   End Class

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

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

Dir gefällt dieses Thema?