David Norman asked for a timed input for Universe. There is a program
to replicate the Unidata timed input at
http://www.pickwiki.com/cgi-bin/wiki.pl?InputWait
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
Thanks to all who've posted suggestions for this. I never fail to be
surprised by the wealth of knowledge that this group possesses, and the
good-natured willingness to share and help.
I'm sure that I will be able to resolve my problem from the interesting
code posted.
Thanks again,
.
--
Date: Thu, 12 Mar 2009 10:45:47 +0100
From: Brian Leach br...@brianleach.co.uk
Subject: RE: [U2] UV Timed INPUT
David
try the following:
FUNCTION TimedInput(Period, Value)
$OPTIONS PICK
Now = Time()
Loop
Input n,-1
Until n Or ((Time() - Now) Period) Do
Nap 50
Repeat
David,
Not sure what you need to accomplish, Brian's offer looks promising.
You might also try INPUTIF. I use it in status screens. got the idea from
my days working with computer aided dispatch.
ACT=''
LOOP
INPUTIF YOUR.WISH THEN
BEGIN CASE
CASE UPCASE(YOUR.WISH)
David,
UniData has a FOR or WAITING clause on the INPUT statement which lets you do
exactly this. I'm not sure what the UniVerse equivalent would be.
Certainly you wouldn't normally want to be in a tight loop looking for input
with INPUT,-1 or INPUTIF, or blocked by a SLEEP when input was
Does UV support the WAITING clause on the INPUT statement?
In UD you can do:
INPUT VAR WAITING 30 ELSE
...
END
Larry Hiscock
Western Computer Services
-Original Message-
From: owner-u2-us...@listserver.u2ug.org
[mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of Norman, David
Subject: RE: [U2] UV Timed INPUT
Does UV support the WAITING clause on the INPUT statement?
In UD you can do:
INPUT VAR WAITING 30 ELSE
...
END
Larry Hiscock
Western Computer Services
-Original Message-
From: owner-u2-us...@listserver.u2ug.org
[mailto:owner-u2-us...@listserver.u2ug.org
David
try the following:
FUNCTION TimedInput(Period, Value)
$OPTIONS PICK
Now = Time()
Loop
Input n,-1
Until n Or ((Time() - Now) Period) Do
Nap 50
Repeat
If Not(n) Then
Result = @False
End Else
Input Value
Result = @True
End
RETURN(Result)
as in:
PROGRAM TestInput
$OPTIONS PICK
...@infor.com | www.enroute911.com
-Original Message-
From: owner-u2-us...@listserver.u2ug.org
[mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of Brian Leach
Sent: Thursday, March 12, 2009 5:46 AM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] UV Timed INPUT
David
try the following
Thanks to all for the responses; yes the UniData INPUT ... WAITING looks
like it would be great but it doesn't exist on UniVerse.
I'm still battling with the basic problem of trying to intercept a
partially entered string after a certain time. If typing has started but
Enter hasn't been pressed to
Message-
From: owner-u2-us...@listserver.u2ug.org
[mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of Norman, David
(Health)
Sent: Friday, 13 March 2009 11:38 AM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] UV Timed INPUT
Thanks to all for the responses; yes the UniData INPUT
March 2009 9:38 AM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] UV Timed INPUT
Thanks to all for the responses; yes the UniData INPUT ... WAITING looks
like it would be great but it doesn't exist on UniVerse.
I'm still battling with the basic problem of trying to intercept a
partially entered
I'm typing this from memory:
TM.LIMIT = 5 ;* 5 second time limit
DT.START = DATE()
TM.START = TIME()
LOOP
IF INPUT XX,-1 THEN INPUT VAR ELSE
TM.PASSED = (DATE() - DT.START) * 86400
TM.PASSED += (TIME() - TM.START)
IF TM.PASSED TM.LIMIT THEN EXIT
END
REPEAT
- Original
I think what you are looking for is the INPUTIF statement. We have used
this statement for the same type of process.
Regards
Bernard Lubin
-Original Message-
From: owner-u2-us...@listserver.u2ug.org
[mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of Norman, David
(Health)
I think this process will hog the processor. I would imagine you would
need a SLEEP' si the loop.
Louis
- Original Message -
From: Jacques G. jacque...@yahoo.com
To: u2-users@listserver.u2ug.org
Sent: Thursday, March 12, 2009 1:24 PM
Subject: Re: [U2] UV Timed INPUT
I'm typing
15 matches
Mail list logo