RE: [U2] UV Timed INPUT
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/
RE: [U2] UV Timed INPUT
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 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. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
{Blocked Content} RE: [U2] UV Timed INPUT
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/
RE: [U2] UV Timed INPUT
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) MATCHES XQUIT ; ACT = EOJ CASE YOUR.WISH GE 1 AND LE OPTION.CNT ; Go do the option nbr CASE 1 ; Error handler here END CASE END ELSE SLEEP REFRESH.SEC.CNT.FROM.INSTALLATION.PARAMS GOSUB REFRESH.AMBULANCE.STATUS.SCRN END UNTIL ACT = 'EOJ' REPEAT We have someone who watches a status screen for Credit Card Auths that are on some status that requires human interaction. Works nice. -Baker 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 This communication, its contents and any file attachments transmitted with it are intended solely for the addressee(s) and may contain confidential proprietary information. Access by any other party without the express written permission of the sender is STRICTLY PROHIBITED. If you have received this communication in error you may not copy, distribute or use the contents, attachments or information in any way. Please destroy it and contact the sender. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UV Timed INPUT
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 available already. Perhaps a NAP inside an INPUT,-1 LOOP? Cheers, Ken -Original Message- From: owner-u2-us...@listserver.u2ug.org [mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of Norman, David (Health) Sent: Thursday, 12 March 2009 2:27 PM To: u2-users@listserver.u2ug.org Subject: [U2] UV Timed INPUT 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. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
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 Behalf Of Norman, David (Health) Sent: Wednesday, March 11, 2009 8:27 PM To: u2-users@listserver.u2ug.org Subject: [U2] UV Timed INPUT 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. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UV Timed INPUT
Hi, the simple answer is no..but there is a way...on UNIX. You can open the device using OPENSEQ and read the input using READBLK, this allows you to use the TIMEOUT command. We have a very clever man that did this and it works without killing the machine. Les Sherlock Hewkin Project Manager Group Financial Systems I.T. Department Rye Hill House T 01604 592289 M 07917 856195 -Original Message- From: owner-u2-us...@listserver.u2ug.org [mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of Larry Hiscock Sent: 12 March 2009 06:05 To: u2-users@listserver.u2ug.org 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 Behalf Of Norman, David (Health) Sent: Wednesday, March 11, 2009 8:27 PM To: u2-users@listserver.u2ug.org Subject: [U2] UV Timed INPUT 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. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ html head meta http-equiv=Content-type content=text/html; charset=UTF-8 /head body P style=MARGIN-TOP: 0pt; MARGIN-BOTTOM: 0ptSPAN style=FONT-SIZE: 8.2pt; FONT-FAMILY: 'MS Sans Serif'This e-mail and any attachments are confidential and intended solely for the use of the addressee only. If you have received this message in error, you must not copy, distribute or disclose the contents; please notify the sender immediately and delete the message. /SPAN/P P style=MARGIN-TOP: 0pt; MARGIN-BOTTOM: 0ptSPAN style=FONT-SIZE: 8.2pt; FONT-FAMILY: 'MS Sans Serif'This message is attributed to the sender and may not necessarily reflect the view of Travis Perkins plc or its subsidiaries (Travis Perkins). Agreements binding Travis Perkins may not be concluded by means of e-mail communication. /SPAN/P P style=MARGIN-TOP: 0pt; MARGIN-BOTTOM: 0ptSPAN style=FONT-SIZE: 8.2pt; FONT-FAMILY: 'MS Sans Serif'E-mail transmissions are not secure and Travis Perkins accepts no responsibility for changes made to this message after it was sent. Whilst steps have been taken to ensure that this message is virus free, Travis Perkins accepts no liability for infection and recommends that you scan this e-mail and any attachments. /SPAN/P P style=MARGIN-TOP: 0pt; MARGIN-BOTTOM: 0ptSPAN style=FONT-SIZE: 8.2pt; FONT-FAMILY: 'MS Sans Serif'Part of Travis Perkins plc. Registered Office: Lodge Way House, Lodge Way, Harlestone Road, Northampton, NN5 7UG. /SPAN/P /BODY /HTML --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
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. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UV Timed INPUT
We use the waiting or... Sample code: 147:WAIT.TIME = 0 148:LOOP 149: IF SYSTEM(10) OR SYSTEM(14) THEN 150: INPUT RTN.VAL,31999 _ ELSE RTN.VAL=; TIMEOUT=1 151: WAIT.TIME=REFRESH+1 152: END ELSE 153: RTN.VAL= 154: SLEEP 1 155: WAIT.TIME=WAIT.TIME+1 156: END 157: UNTIL WAIT.TIME = REFRESH DO 158: REPEAT 159: IF RTN.VAL = THEN TIMEOUT=1 Nicholas M Gettino | Director of Development | EnRoute Emergency Systems, an Infor company | office: 813-207-6998 | 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 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. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
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 string after a certain time. If typing has started but Enter hasn't been pressed to finalise an INPUT command, then everything waits until the INPUT is satisfied. I need to jump in after (say) 5 seconds of waiting for ENTER and abandon the INPUT. INPUTIF is part of the solution, but it also waits for an ENTER which may never arrive. 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. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UV Timed INPUT
There was a discussion way back in 2004 about this. Keith Johnston wrote and published his UV/BASIC solution on PickWiki... http://www.pickwiki.com/cgi-bin/wiki.pl?InputWait Posting/Thread: http://www.mail-archive.com/u2-users@listserver.u2ug.org/msg00891.html Regards, David -Original 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 ... 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 finalise an INPUT command, then everything waits until the INPUT is satisfied. I need to jump in after (say) 5 seconds of waiting for ENTER and abandon the INPUT. INPUTIF is part of the solution, but it also waits for an ENTER which may never arrive. Thanks, David Norman Senior Software Engineer - SA Ambulance Service ** IMPORTANT MESSAGE * This e-mail message is intended only for the addressee(s) and contains information which may be confidential. If you are not the intended recipient please advise the sender by return email, do not use or disclose the contents, and delete the message and any attachments from your system. Unless specifically indicated, this email does not constitute formal advice or commitment by the sender or the Commonwealth Bank of Australia (ABN 48 123 123 124) or its subsidiaries. We can be contacted through our web site: commbank.com.au. If you no longer wish to receive commercial electronic messages from us, please reply to this e-mail by typing Unsubscribe in the subject line. ** --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UV Timed INPUT
Here's my hastily hacked together solution, it allows 5 seconds for the user to enter a string. It grabs a single character at a time and builds up a string - you need to cater for special characters manually, I've coded for enter and backspace, you could just discard any others that are below CHAR(32) or above CHAR(126). It doesn't display anything on screen - you could add CRT statements as the string is built up. CT = 0 LOOP LOOP INPUT CHAR.WAITING,-1 WHILE CHAR.WAITING CHARACTER = KEYIN() BEGIN CASE CASE CHARACTER = CHAR(10) ;* Enter CT = 100 EXIT CASE CHARACTER = CHAR(8) ;* Backspace IF LEN(THE.STRING) THEN THE.STRING = THE.STRING[1,LEN(THE.STRING)-1] CASE @TRUE THE.STRING := CHARACTER END CASE REPEAT NAP 50 WHILE CT 100 CT += 1 REPEAT -Original 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 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 string after a certain time. If typing has started but Enter hasn't been pressed to finalise an INPUT command, then everything waits until the INPUT is satisfied. I need to jump in after (say) 5 seconds of waiting for ENTER and abandon the INPUT. INPUTIF is part of the solution, but it also waits for an ENTER which may never arrive. 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. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ DISCLAIMER: Disclaimer. This e-mail is private and confidential. If you are not the intended recipient, please advise us by return e-mail immediately, and delete the e-mail and any attachments without using or disclosing the contents in any way. The views expressed in this e-mail are those of the author, and do not represent those of this company unless this is clearly indicated. You should scan this e-mail and any attachments for viruses. This company accepts no liability for any direct or indirect damage or loss resulting from the use of any attachments to this e-mail. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] UV Timed INPUT
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 Message From: Norman, David (Health) norman.da...@saambulance.com.au To: u2-users@listserver.u2ug.org Sent: Wednesday, March 11, 2009 11:26:56 PM Subject: [U2] UV Timed INPUT 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. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UV Timed INPUT
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) Sent: Thursday, 12 March 2009 2:27 PM To: u2-users@listserver.u2ug.org Subject: [U2] UV Timed INPUT 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. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] UV Timed INPUT
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 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 Message From: Norman, David (Health) norman.da...@saambulance.com.au To: u2-users@listserver.u2ug.org Sent: Wednesday, March 11, 2009 11:26:56 PM Subject: [U2] UV Timed INPUT 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. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ No virus found in this incoming message. Checked by AVG - www.avg.com Version: 8.0.237 / Virus Database: 270.11.10/1996 - Release Date: 03/11/09 20:42:00 --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/