Solved

loop timers

Posted on 2004-09-20
4
248 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 75 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 175 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

IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

This tutorial demonstrates one way to create an application that runs without any Forms but still has a GUI presence via an Icon in the System Tray. The magic lies in Inheriting from the ApplicationContext Class and passing that to Application.Ru…
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…
In this seventh video of the Xpdf series, we discuss and demonstrate the PDFfonts utility, which lists all the fonts used in a PDF file. It does this via a command line interface, making it suitable for use in programs, scripts, batch files — any pl…
Access reports are powerful and flexible. Learn how to create a query and then a grouped report using the wizard. Modify the report design after the wizard is done to make it look better. There will be another video to explain how to put the final p…

743 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

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now