Pete's QBASIC Site

Posted: **Thu Aug 25, 2005 2:48 pm**

Do
    A$=inkey$
    if A$ <> "" then
      CMD$ = CMD$ + A$
    end if
    locate y, 2: PRINT CMD$
loop until cmd$ = chr$(13) or ...

I need it this loop a time counter. Either you press any key within a certain amount of seconds or if you don't the loop stops after the certain amount of seconds. How can I achieve this?

grtz
Seb

Posted: **Thu Aug 25, 2005 10:33 pm**

Code: Select all


StartTime! = TIMER     'you could make it an integer if precise timing is not needed

Do
    A$=inkey$ 
    if A$ <> "" then 
      CMD$ = CMD$ + A$ 
    end if 
    locate y, 2: PRINT CMD$ 
loop until cmd$ = chr$(13) or TIMER - StartTime! < AmountOfSeconds

I still havn't finished the Kiwi Bird... damn that thing is hard to draw...

Posted: **Fri Aug 26, 2005 12:48 am**

Well keep it up. You're getting there!!

grtz
Seb

Posted: **Fri Aug 26, 2005 4:46 pm**

You might put this inside the loop:

IF starttime! > t! THEN
'crossed midnight, timer went to 0
starttime! = starttime! - 86400
END IF

Regards,
Michael

Posted: **Fri Aug 26, 2005 11:16 pm**

Yeah, I didn't include the midnight error handler because I knew he got it from another thread.

Pete's QBASIC Site

input time delay

input time delay