odmierzanie czasu

Thread View: pl.comp.lang.pascal

4 messages

[T] Back to Threads [V] Tree View [G] Group Articles

4 total messages Started by piotr Wed, 24 Oct 2007 13:01

#92202

Author: piotr
Date: Wed, 24 Oct 2007 13:01

15 lines
1284 bytes

Czy jest takie polecenie które mierzy czas a po x sekundach robi jakieś 
polecenie.  
Polecenie DELAY(1000); tu nie działa ponieważ w ciągu tego polecenia nie da się 
pisać, polecenie przyda mi się do zrobienia niby konkursu żeby zrobić coś 
takiego:
Masz x sekund na udzielenie poprawnej odpowiedzi na pytanie
Pytanie:
a)...
b)...
c)...   
wpisz literę oznaczającą poprawną odpowiedź:_   
Da się tak zrobić?

-- 
Wysłano z serwisu OnetNiusy: http://niusy.onet.pl

Re: odmierzanie czasu

#92203

Author: Solaris
Date: Wed, 24 Oct 2007 14:08

49 lines
1904 bytes

Dnia 24 Oct 2007 15:01:57 +0200, jakże pięknego
"piotr" <piotrharyzaWYTNIJTO@o2.pl> wystukał co zawarte poniżej:

:: Czy jest takie polecenie które mierzy czas a po x sekundach robi jakieś 
:: polecenie.  
:: Polecenie DELAY(1000); tu nie działa ponieważ w ciągu tego polecenia nie da się 
:: pisać, polecenie przyda mi się do zrobienia niby konkursu żeby zrobić coś 
:: takiego:
:: Masz x sekund na udzielenie poprawnej odpowiedzi na pytanie
:: Pytanie:
:: a)...
:: b)...
:: c)...   
:: wpisz literę oznaczającą poprawną odpowiedź:_   
:: Da się tak zrobić?


TTimer dostępny pod admin.idns.pl/ltimer.pp

#v+
var
	timer	:	TTimer;

const	
	CZAS	=	5;


...
writeln('Czekam na odpowiedź: ');

timer.Start();

repeat
	while (keypressed) do
		key:=readkey();

	case (key) of
		'a':	odp:=1;
		'b':	odp:=2;
		'c':	odp:=3;
	end;
until (key in ['a'..'c'] or (timer.Output() >= CZAS));
#v-

-- 
Home: admin.idns.pl
Linux registered user: 408584
Contact: GG#44450, solaris#idns.pl
19:16:28 -!- Platyna Erroneous Nickname

Re: odmierzanie czasu

#92204

Author: Solaris
Date: Wed, 24 Oct 2007 14:13

9 lines
1103 bytes

:: until (key in ['a'..'c'] or (timer.Output() >= CZAS));

until ( (key in ['a'..'c']) or (timer.Output() >= CZAS));

-- 
Home: admin.idns.pl
Linux registered user: 408584
Contact: GG#44450, solaris#idns.pl
19:16:28 -!- Platyna Erroneous Nickname

Re: odmierzanie czasu

#92211

Author: Solaris
Date: Fri, 26 Oct 2007 09:18

40 lines
1953 bytes

Dnia 24 Oct 2007 15:01:57 +0200, jakże pięknego
"piotr" <piotrharyzaWYTNIJTO@o2.pl> wystukał co zawarte poniżej:

:: Czy jest takie polecenie które mierzy czas a po x sekundach robi jakieś 
:: polecenie.  
:: Polecenie DELAY(1000); tu nie działa ponieważ w ciągu tego polecenia nie da się 
:: pisać, polecenie przyda mi się do zrobienia niby konkursu żeby zrobić coś 
:: takiego:
:: Masz x sekund na udzielenie poprawnej odpowiedzi na pytanie
:: Pytanie:
:: a)...
:: b)...
:: c)...   
:: wpisz literę oznaczającą poprawną odpowiedź:_   
:: Da się tak zrobić?

Jakby się jeszcze uprzeć to można to i z delay() zrobić ;-)

#v+
    repeat
        while (keypressed) do
            key:=readkey;
            
        case (key) of
            'a':        ;
            'b':        ;
            'c':        ;
        end;
        
        delay(1000);
        c+=1;
        
    until ((key in ['a'..'c']) or (c > 5));
#v-

-- 
Home: admin.idns.pl
Linux registered user: 408584
Contact: GG#44450, solaris#idns.pl
19:16:28 -!- Platyna Erroneous Nickname

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads