Warning: This message has had one or more attachments removed
Warning: (not named).
Warning: Please read the "AngelicHost-Attachment-Warning.txt" attachment(s)
for more information.

Thanks Brian - that looks interesting. I'll try it on Monday.

----------------------------------------------------------------------

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
If Not(n) Then
  Result = @False
End Else
  Input Value
  Result = @True
End
RETURN(Result)

as in:

PROGRAM TestInput

$OPTIONS PICK

DEFFUN TimedInput( Period, Value)

If TimedInput(3, Test) Then
   Crt "test is ":Test
End Else
   Crt "No input"
End


Brian




I'm sure I've seen something about this recently, but I've searched the
past 2 years with no luck. I want to do a timed INPUT in UV - if after n
seconds the Enter key hasn't been pressed, do something.
Anyone got any clever ways of doing this ?

Thanks,
========================
David Norman
Senior Software Engineer - SA Ambulance Service

ICT Services
SA Health
Government of South Australia

Box 3, GPO
Adelaide, South Australia 5001
*+61 8 8274 0384
* fax +61 8 8271 4844
* norman.da...@saambulance.com.au

This e-mail may contain confidential information, which also may be
legally privileged. Only the intended recipient(s) may access, use,
distribute or copy this e-mail. If this e-mail is received in error,
please inform the sender by return e-mail and delete the original. If
there are doubts about the validity of this message, please contact the
sender by telephone. It is the recipient's responsibility to check the
e-mail and any attached files for viruses.
This is a message from the MailScanner E-Mail Virus Protection Service
----------------------------------------------------------------------
The original e-mail attachment "winmail.dat"
was believed to be infected by a virus and has been replaced by this warning
message.

If you wish to receive a copy of the *infected* attachment, please
e-mail helpdesk and include the whole of this message
in your request. Alternatively, you can call them, with
the contents of this message to hand when you call.

At Fri Mar 13 03:17:23 2009 the virus scanner said:
   Could not parse Outlook Rich Text attachment

Note to Help Desk: Look on the AngelicHost MailScanner in
/home/virtual/site2/fst/var/spool/mail.quarantine/20090313 (message
n2DAH7gu009895).
--
Postmaster
-------
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

Reply via email to