.wav in höherer qualität recorden

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Renati.

    .wav in höherer qualität recorden

    Ich habe den Code hier auch aus dem Forum und wollte fragen wie ich das recordete auf eine höhere bitrate stelle bzw überhaupt eine höhere quali

    VB.NET-Quellcode

    1. Public Class Form1 Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal Command As String, _ ByVal ReturnString As String, ByVal ReturnLength As Integer, ByVal Callback As Integer) As Integer Dim Path As String = "record.wav" Dim rs As String Dim cb As Integer
    2. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Button2.Enabled = False Button4.Enabled = True rs = New String(" ", 512) Call mciSendString("Open New Type waveaudio Alias capture", rs, 512, cb) Call mciSendString("record capture", rs, 512, cb) End Sub
    3. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Button1.Text = "Record" Button3.Text = "Play Halt" Button3.Enabled = False Button2.Text = "Play" Button4.Text = "Record Halt" Button4.Enabled = False
    4. Button2.Enabled = True End Sub
    5. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click My.Computer.Audio.Play(Path, AudioPlayMode.Background) 'Button1.Enabled = True Button3.Enabled = True Button2.Enabled = False Button4.Enabled = False Button1.Enabled = False
    6. End Sub
    7. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 'play halt 'Button1.Text = "Record" 'Button1.Enabled = False Button2.Enabled = True Button1.Enabled = True Button3.Enabled = False
    8. End Sub
    9. Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
    10. 'Record Halt Call mciSendString("Stop capture", rs, 512, cb) Call mciSendString("save capture " & Path, rs, 256, cb) Call mciSendString("Close capture", rs, 512, cb)
    11. Button3.Enabled = False Button2.Enabled = True Button4.Enabled = False
    12. End SubEnd Class



    Danke im vorraus

    MFG Marlboro@14