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
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