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,
==
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/
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) MA
ry it on Monday.
--
Date: Thu, 12 Mar 2009 10:45:47 +0100
From: Brian Leach
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
If No
)
Sent: Friday, 13 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 i
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
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
998 | fax: 678-393-5389
nick.gett...@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 Time
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
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] On
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
(H
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 availa
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."
To:
Sent: Thursday, March 12, 2009 1:24 PM
Subject: Re: [U2] UV Timed INPUT
I'm typing thi
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)
Se
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
15 matches
Mail list logo