HP3000-L Archives

April 1998, Week 5

HP3000-L@RAVEN.UTC.EDU

Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
From:
Brian Manley <[log in to unmask]>
Reply To:
Brian Manley <[log in to unmask]>
Date:
Thu, 30 Apr 1998 10:33:37 -0600
Content-Type:
text/plain
Parts/Attachments:
text/plain (50 lines)
You might try something like this:

        iStartTime = Now
        sNewDataFile = "c:\somedir\somefile.txt"

        While (Dir(sNewDataFile) = "" ) and (DateDiff("s", iStartTime,
Now) < 30)
                DoEvents
        Wend

Note that DoEvents will not eat up CPU or prevent the app from
responding to events.
I use a similiar method to wait for incoming network traffic, and it
works fine.
Don't quote me on the syntax, but it should be correct.

Enjoy,
Brian

R. Brian Manley
[log in to unmask]

eXegeSys, Inc.
144 E. 500 S.
Salt Lake City, UT 84102
Phone: (801)538-0222
Fax: (801)538-0228

> -----Original Message-----
> From: Paul H. Christidis [SMTP:[log in to unmask]]
> Sent: Wednesday, April 29, 1998 6:09 AM
> To:   [log in to unmask]
> Subject:      Visual Basic
>
> This is not directly related to the HP3000 but the application that
> I'm
> trying to support/debug does interface with our HP.
>
> In VB 5.0 is there an equivalent to the Pause intrinsic?  I'm looking
> at
> some VB code that loops until a file is created or 30 seconds pass but
> since
> it is *not* pausing, I'm concerned that it maybe taking CPU away from
> the
> 'shell' process that will create the expected file.
>
> Any suggestions/samples would be appreciated.
>
> Paul H. Christidis

ATOM RSS1 RSS2