Wav dateien erstellen

  • VB.NET

Es gibt 26 Antworten in diesem Thema. Der letzte Beitrag () ist von XProg.

    Wav dateien erstellen

    Hallo,
    ich möchte ein Programm schreiben mit dem man Wav dateien
    aufnehmen kann, habe aber keine Ahnung wie man das Mikrofon anspricht.
    Wäre echt dankbar für Hilfe.
    Vincent

    *Topic verschoben*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Ich will mal nicht so sein:
    Hier ein CuP Code

    VB.NET-Quellcode

    1. Private Declare Auto Function mciSendString Lib "winmm.dll" ( _
    2. ByVal lpstrCommand As String, _
    3. ByVal lpstrRetrunString As String, _
    4. ByVal dwReturnlength As Int16, _
    5. ByVal hCallback As Int16) As Integer
    7. ' Aufnahmeformate
    8. Private Enum BitsPerSec
    9. Bits16 = 16
    10. Bits8 = 8
    11. End Enum
    13. Private Enum SampelsPerSec
    14. Sampels8000 = 8000
    15. Sampels11025 = 11025
    16. Sampels12000 = 12000
    17. Sampels16000 = 16000
    18. Sampels22050 = 22050
    19. Sampels24000 = 24000
    20. Sampels32000 = 32000
    21. Sampels44100 = 44100
    22. Sampels48000 = 48000
    23. End Enum
    25. Private Enum Channels
    26. Mono = 1
    27. Stereo = 2
    28. End Enum
    30. ''' <summary>
    31. ''' Startet die WAVE-Aufnahme
    32. ''' </summary>
    33. ''' <param name="BitRate">Bits pro Sekunde</param>
    34. ''' <param name="SampleRate">Samples pro Sekunde</param>
    35. ''' <param name="Mode">Stereo oder Mono-Aufnahme</param>
    36. Private Function WAVE_RecordStart(Optional ByVal BitRate As BitsPerSec = BitsPerSec.Bits16, _
    37. Optional ByVal SampleRate As SampelsPerSec = SampelsPerSec.Sampels11025, _
    38. Optional ByVal Mode As Channels = Channels.Stereo) As Boolean
    40. Dim sReturn As String = Strings.Space(256)
    41. Dim cmd As String
    43. cmd = "open new type waveaudio alias recwave"
    44. If mciSendString(cmd, sReturn, 256, 0) <> 0 Then
    45. MsgBox("Fehler beim Anlegen der neuen Aufnahmedatei!", MsgBoxStyle.Exclamation)
    46. Return (False)
    47. End If
    49. ' Aufnahmeformat
    50. Dim ByteRate As Integer = (Mode * BitRate * SampleRate) / 8
    51. mciSendString("set recwave time format milliseconds" & _
    52. " bitspersample " & CStr(BitRate) & _
    53. " samplespersec " & CStr(SampleRate) & _
    54. " channels " & CStr(Mode) & _
    55. " bytespersec " & CStr(ByteRate) & _
    56. " alignment 4", sReturn, 256, 0)
    58. cmd = "record recwave"
    59. If mciSendString(cmd, sReturn, 256, 0) <> 0 Then
    60. MsgBox("Fehler bei der Aufnahme!", MsgBoxStyle.Exclamation)
    61. Return (False)
    62. End If
    64. Return (True)
    65. End Function
    67. ''' <summary>
    68. ''' Beendet die WAVE-Aufnahme
    69. ''' </summary>
    70. ''' <param name="Filename">Datei, unter der die Aufnahme gespeichert werden soll.</param>
    71. Private Function WAVE_RecordStop(ByVal Filename As String) As Boolean
    72. Dim sReturn As String = Strings.Space(256)
    73. Dim cmd As String
    74. Dim Result As Boolean = True
    76. cmd = "stop recwave"
    77. If mciSendString(cmd, sReturn, 256, 0) <> 0 Then
    78. MsgBox("Fehler beim Beenden der Aufnahme!", MsgBoxStyle.Exclamation)
    79. Return (False)
    80. End If
    82. If Filename.Length > 0 Then
    83. ' Aufnhame in Datei speichern
    84. cmd = "save recwave " & Filename
    85. If mciSendString(cmd, sReturn, 256, 0) <> 0 Then
    86. MsgBox("Fehler beim Speichern der Aufnahme.", MsgBoxStyle.Exclamation)
    87. Result = False
    88. End If
    89. End If
    91. cmd = "close recwave"
    92. If mciSendString(cmd, sReturn, 256, 0) <> 0 Then
    93. MsgBox("Fehler beim Schließen der Aufnahme...", MsgBoxStyle.Exclamation)
    94. End If


    Jetzt fügst du 2 Buttons auf die Form:
    Also aus der Toolbox auf die Form ziehen :D
    Du doppelklickst auf den einen und schreibst in die Click prozedur:

    VB.NET-Quellcode

    1. WAVE_RecordStart()


    Das ist der zum Starten der aufnaheme!

    Im anderen Button einfach

    VB.NET-Quellcode

    1. WAVE_RecordStop


    Ok? Viel Spaß!

    Ja ich habe es mir angeschaut! :cursing:

    und auserdem kann ich mehr als nur vb 2008:

    GW-Basic; Quickbasic;vb 6.0; C-Control Pro :cursing:

    Vincent :cursing: :cursing: :cursing: :cursing: :cursing: :cursing: :cursing:

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Vincent fischer“ ()

    Funkt mein Code nicht? ;( ;( ;( ;( ;( ;( ;( ;( ;( ;(

    Du könntest auch:

    VB.NET-Quellcode

    1. Private Declare Auto Function mciSendString Lib "winmm.dll" ( _
    2. ByVal lpstrCommand As String, _
    3. ByVal lpstrRetrunString As String, _
    4. ByVal dwReturnlength As Int16, _
    5. ByVal hCallback As Int16) As Integer
    7. ' Aufnahmeformate
    8. Private Enum BitsPerSec
    9. Bits16 = 16
    10. Bits8 = 8
    11. End Enum
    13. Private Enum SampelsPerSec
    14. Sampels8000 = 8000
    15. Sampels11025 = 11025
    16. Sampels12000 = 12000
    17. Sampels16000 = 16000
    18. Sampels22050 = 22050
    19. Sampels24000 = 24000
    20. Sampels32000 = 32000
    21. Sampels44100 = 44100
    22. Sampels48000 = 48000
    23. End Enum
    25. Private Enum Channels
    26. Mono = 1
    27. Stereo = 2
    28. End Enum

    Das in deinen Code einfügen und in die jeweiligen Button Handlers dass:

    VB.NET-Quellcode

    1. Dim sReturn As String = Strings.Space(256)
    2. Dim cmd As String
    4. cmd = "open new type waveaudio alias recwave"
    5. If mciSendString(cmd, sReturn, 256, 0) <> 0 Then
    6. MsgBox("Fehler beim Anlegen der neuen Aufnahmedatei!", MsgBoxStyle.Exclamation)
    7. Return (False)
    8. End If
    10. ' Aufnahmeformat
    11. Dim ByteRate As Integer = (Mode * BitRate * SampleRate) / 8
    12. mciSendString("set recwave time format milliseconds" & _
    13. " bitspersample " & CStr(BitRate) & _
    14. " samplespersec " & CStr(SampleRate) & _
    15. " channels " & CStr(Mode) & _
    16. " bytespersec " & CStr(ByteRate) & _
    17. " alignment 4", sReturn, 256, 0)
    19. cmd = "record recwave"
    20. If mciSendString(cmd, sReturn, 256, 0) <> 0 Then
    21. MsgBox("Fehler bei der Aufnahme!", MsgBoxStyle.Exclamation)
    22. Return (False)


    bzw. das:

    VB.NET-Quellcode

    1. Dim sReturn As String = Strings.Space(256)
    2. Dim cmd As String
    3. Dim Result As Boolean = True
    5. cmd = "stop recwave"
    6. If mciSendString(cmd, sReturn, 256, 0) <> 0 Then
    7. MsgBox("Fehler beim Beenden der Aufnahme!", MsgBoxStyle.Exclamation)
    8. Return (False)
    9. End If
    11. If Filename.Length > 0 Then
    12. ' Aufnhame in Datei speichern
    13. cmd = "save recwave " & Filename ' Speicherort!
    14. If mciSendString(cmd, sReturn, 256, 0) <> 0 Then
    15. MsgBox("Fehler beim Speichern der Aufnahme.", MsgBoxStyle.Exclamation)
    16. Result = False
    17. End If
    18. End If
    20. cmd = "close recwave"
    21. If mciSendString(cmd, sReturn, 256, 0) <> 0 Then
    22. MsgBox("Fehler beim Schließen der Aufnahme...", MsgBoxStyle.Exclamation)
    23. End If
    25. Return (Result)


    Falseds immer noch nicht funkt Hau die "Return/Results) raus

    Viel Glück! :)

    Danke xyz, aber wie ereiche ich es

    dass beim speichern kein Fehler auf tritt(Erstes beispiel)?

    Vincent ^^

    Ps. bzw. Zweites Beispiel
    Dateien

    • Form1.vb

      (6,28 kB, 272 mal heruntergeladen, zuletzt: )

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Vincent fischer“ ()

    @xyz: Ich glaube du musst ihm den ganzen Projektordner in einer zip-Datei hochladen, sonst rafft er das nicht. Er kann nur Klicken. Copy&Paste kann er schon nicht mehr.
    PS: Benutze bloß keine RAR-Datei, denn die kann Windows ja nicht von alleine öffnen (und Vincent wird WinRAR wahrscheinlich nicht finden, weil er nicht G00geln kann).

    EPIC FAIL :thumbdown:
    Gruß
    hal2000

    Mach vincent doch aml nicht so fertig! Ich glaub ich ahb dein Problem:

    VB.NET-Quellcode

    1. My.Computer.Audio.Play(pfad.Text, AudioPlayMode.Background)


    Vileicht pfad.text+".wav"

    Wenn das nicht geht hat der Code nen kleinen Bug es muss gluab ich .wave heisen!

    Sory ich find das Projekt nicht mehr ich hab den code nur in ner .txt :pinch:

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „xyz“ ()

    Hier ist der teil im code der speichern soll

    VB.NET-Quellcode

    1. Private Function WAVE_RecordStop(ByVal Filename As String) As BooleanDim sReturn As String = Strings.Space(256)
    2. Dim cmd As String
    3. Dim Result As Boolean = True
    4. cmd = "stop recwave"
    5. If mciSendString(cmd, sReturn, 256, 0) <> 0 ThenMsgBox("Fehler beim Beenden der Aufnahme!", MsgBoxStyle.Exclamation)
    6. Return (False)
    7. End If
    8. If Filename.Length > 0 Then
    9. ' Aufnhame in Datei speicherncmd = "save recwave " & Filename
    10. If mciSendString(cmd, sReturn, 256, 0) <> 0 ThenMsgBox("Fehler beim Speichern der Aufnahme.", MsgBoxStyle.Exclamation)
    11. Result = False
    12. End If
    13. End If
    14. cmd = "close recwave"
    15. If mciSendString(cmd, sReturn, 256, 0) <> 0 ThenMsgBox("Fehler beim Schlieáen der Aufnahme...", MsgBoxStyle.Exclamation)
    16. End If
    17. End Function


    Vincent 8-)

    ps. Es ist .wav, habs grad ausprobiert

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Vincent fischer“ ()

Facebook
Telefonspende