Improve company productivity with a Business Account.Sign Up

x
?
Solved

loop timers

Posted on 2004-09-20
4
Medium Priority
?
258 Views
Last Modified: 2011-10-03
I'm trying to watch inputs from a port I can get this to work, What i need is to be able to have a master timer start when it sees ,lets say input one go high this time lets saw would run for 15 min, this would start a sub that also has a timer that would run for a varable input which could be from a textbox and while its running its loking for an input from any other input if it gets this input it will stop the sub and then wait for input one to go high again if no input is gotten in then it will times out and does the same and go back to looking for input one once more. This loop would run until the main timer has run out. I also need to be able to get the elasped time from the smaller timer and put it into a lable or textbox.
0
Comment
Question by:bassendoughboy
  • 2
4 Comments
 
LVL 6

Assisted Solution

by:KGreg
KGreg earned 150 total points
ID: 12106434
Here's an example of a timed loop which will run every two minutes (120 seconds):


dim starttime as Date = Now

While Now.Subtract(starttime).TotalSeconds < 120

     ' Do some process here

     starttime = Now

End While

Hope this helps,

KGreg
0
 
LVL 3

Accepted Solution

by:
gillgates earned 350 total points
ID: 12107373
Imports System
Imports System.Threading

Public Class Test

    Shared waitTime As New TimeSpan(0, 0, 1)

    Shared Sub Main()
        Dim newThread As New Thread(AddressOf Work)
        While True
             newThread.Start()

             If newThread.Join( _
                  TimeSpan.op_Addition(waitTime, waitTime)) Then

                 'Do your work
             End If
       Loop
    End Sub

    Shared Sub Work()
        Thread.Sleep(waitTime)
    End Sub

End Class
0
 
LVL 3

Expert Comment

by:gillgates
ID: 12107381
of course after you do your work and you want to stop you have to "Exit Loop", my syntax for the while might be off.
0
 

Author Comment

by:bassendoughboy
ID: 12114441
I'm trying to follow what you are doing gillgates but not fully sure of it, Please bare with I have only been using VB for about 8 months. thanks.
Here is my best exapmle of what I'm doing.
program running
input comes in
statrs new sub (for 3 min)
when this sub starts it looks for another input, when it has input
it runs another sub (for 5 sec)
this looks for another input to stop this sub or time out if input stops sub elasped time is sent to a text box
if no input sub stops at end of time
eather way it goes back one level and waits for another input this goes on for the 3 min and then this timer stops
which goes back to the main program and stops it

 
0

Featured Post

Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Microsoft Reports are based on a report definition, which is an XML file that describes data and layout for the report, with a different extension. You can create a client-side report definition language (*.rdlc) file with Visual Studio, and build g…
It was really hard time for me to get the understanding of Delegates in C#. I went through many websites and articles but I found them very clumsy. After going through those sites, I noted down the points in a easy way so here I am sharing that unde…
Through the video, you can check the migration process of Outlook PST file to PDF. Kernel for Outlook to PDF tool can convert Outlook emails with all attributes like Subject, To, From, Cc, Bcc and other folders such as Inbox, Outbox, Sent Items, Jun…
Watch the video to know the process of migration of Exchange or Office 365 mailboxes in absence of MS Outlook. It is an eminent tool which can easily migrate Public, Archive user mailboxes from one another Exchange server and Office 365. Kernel Migr…

607 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question