Visual Basic Tonaufnahme Videoaufnahme programmieren

Visual Basic Tonaufnahme Videoaufnahme programmieren

Author D.Selzer-McKenzie

Video: http://youtu.be/5eNtyPFhE3A

Heute zeige ich Ihnen, wie Sie mit wenig Codes eine Tonaufnahme oder eine Videoaufnahme in Visual Basic programmieren. Mit Excel-VB können Sie das genauso machen.

Es sind nur wenig Codezeilen erforderlich, die ich nachstehend zum Nachbau hier einschreiben werde bzw. den Code können Sie sich auch im

Forum http://Outbackbrumby.Blogspot.com

herauskopieren.

Hiermit können Sie z.B. die Songs vom Internetradio aufnehmen, den Ton von Filmen usw., alles ist möglich.

Hier nun der Source-Code:

   'für Tonaufnahme

    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

    Private Sub KnopfTonAufnahme_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KnopfTonAufnahme.Click 'Ton Aufnehmen

        KnopfTonAufnahme.Text = "Aufnahme läuft...."

        KnopfTonAufnahmeBeenden.Enabled = True

        KnopfTonAufnahmeAbspielen.Enabled = False

        mciSendString("open new Type waveaudio Alias recsound", "", 0, 0)

        mciSendString("record recsound", "", 0, 0)

 

    End Sub

 

    Private Sub KnopfTonAufnahmeBeenden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KnopfTonAufnahmeBeenden.Click 'Tonaufnahme Stoppen

        KnopfTonAufnahme.Text = "Aufnahme"

        KnopfTonAufnahmeAbspielen.Enabled = True

        Directory.CreateDirectory("c:\1")

        mciSendString("save recsound c:\1\TonAufnahmeDatei.wav", "", 0, 0)

        mciSendString("close recsound", "", 0, 0)

        MsgBox("Erstellt im Verzeichnis:  C:\1\TonAufnahmeDatei.wav")

        My.Computer.Audio.Stop()

 

    End Sub

    Private Sub KnopfTonAufnahmeAbspielen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KnopfTonAufnahmeAbspielen.Click 'Aufnahme Wiedergabe

        KnopfTonAufnahme.Text = "Aufnahme"

        KnopfTonAufnahmeBeenden.Enabled = False

        My.Computer.Audio.Play("c:\1\TonAufnahmeDatei.wav", AudioPlayMode.Background)

    End Sub