Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Mikrofon mit timer
Autor: visual5584
Datum: 21.05.17 21:37
Hallo, ich möchte gerne mein Mikrofon alle 5 Minuten aufzeichnen. Dazu habe ich 2 timer. Der 1.timer startet das Mikrofon und der 2. timer stoppt es wieder. Danach startet der 1. timer leider nicht mehr. Könnt ihr mir helfen? Danke 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 returnstring As String Dim callback As Integer returnstring = New String(" ", 128) Call mciSendString("Open New Type waveaudio Alias capture", returnstring, 128, callback) Call mciSendString("record capture", returnstring, 128, callback) Call mciSendString("record capture", returnstring, 128, callback) Timer4.Start() Private Sub Timer4_Tick(sender As Object, e As EventArgs) Handles Timer4.Tick Dim aufnahmepfad As String = TextBox1.Text + "Micro" + ".wav" Call mciSendString("Stop capture", returnstring, 128, callback) Call mciSendString("save capture " & aufnahmepfad, returnstring, 128, callback) Call mciSendString("Close capture", returnstring, 128, callback) Timer3.Start() Private Sub Timer3_Tick(sender As Object, e As EventArgs) Handles Timer3.Tick returnstring = New String(" ", 128) Call mciSendString("Open New Type waveaudio Alias capture", returnstring, 128, callback) Call mciSendString("record capture", returnstring, 128, callback) Timer4.Start() End Sub

Mikrofon mit timer	1.442	visual5584	21.05.17 21:37
Re: Mikrofon mit timer	726	Franki	22.05.17 05:11
Re: Mikrofon mit timer	703	effeff	22.05.17 15:34

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen