Record until value is less than 75

Question

0.00/5 (No votes)

See more:

I want to use a timer to record until the value of a progressbar drops below a certain level then save. The problem I have is it saves each recording several times. The two timers at the bottom are for recording and saving.

Public Sub Record()
        Dim result As Long
        Try
            result = mciSendString("open new Type waveaudio Alias recsound", "", 0, Nothing)
            result = mciSendString("record recsound", "", 0, 0)
        Catch ex As Exception
        End Try
    End Sub

    Public Sub StopAndSave()
        Dim formatteddate As String
        formatteddate = DateTime.Now.ToString("MMddyyyyHHmmss")
        Dim Filetosave As String = "save recsound " & ("c:\" & formatteddate & ".wav")
        mciSendString(Filetosave, "", 0, 0)
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        If Me.ProgressBar1.Value > 80 Then
            Record()
        End If
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        If Me.ProgressBar1.Value < 80 Then
            StopAndSave()
        Else
        End If
    End Sub

Posted 21-Jul-10 12:39pm

dwiswall

Updated 21-Jul-10 12:44pm

Dalek Dave

v2

Add a Solution

Comments

Dalek Dave 21-Jul-10 18:44pm

Edited to put in code block

3 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Christian Graus · Answer 1 · 2010-07-21T12:53:00

Solution 1

When you save, you need to stop your timer.

Why have two timers, anyhow, that makes no sense at all.

What happens if the progress bar is at 80 ?

Posted 21-Jul-10 12:53pm

Christian Graus

dwiswall · Answer 2 · 2010-07-21T13:12:00

Solution 2

I tried many different variations including only one timer but couldn't figure it out.

Any idea how to word with one timer?

Posted 21-Jul-10 13:12pm

dwiswall

Comments

Christian Graus 21-Jul-10 19:14pm

Don't push 'answer' to ask more questions. You can comment, like I did here. You make your one timer do both time checks, and you call it's Stop method before you call the save method.

dwiswall · Answer 3 · 2010-07-24T03:55:00

I think I got it. This seems to work perfect

VB

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       If Me.ProgressBar1.Value >= 80 Then
           Record()
       ElseIf Me.ProgressBar1.Value < 80 Then
           Me.Timer1.Enabled = True
       End If
   End Sub
   Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
       If Me.ProgressBar1.Value < 80 Then
           Me.Timer1.Enabled = False
           StopAndSave()
           CloseAudio()
       Else
       End If
       Me.Timer1.Enabled = True
   End Sub