72 (189)

108 Turbo Pascal • Ćwiczenia praktyczne

zegar aż do momentu naciśnięcia przez użytkownika klawisza Enter. Jest jednak na to sposób — użycie przerwania zegarowego. Przerwanie zegarowe wywołuje się co 55 milisekund, powodując chwilowe opuszczenie dotychczas wykonywanego programu (nawet w trakcie wykonywania Readln) i wykonanie procedury obsługi przerwania.

ĆWICZENIE

4.19

Wyświetlanie czasu „w tle"

Napisz program odpytujący z tabliczki mnożenia. W czasie udzielania odpowiedzi przez użytkownika w rogu ekranu powinien pojawiać się czas pozostały do momentu udzielenia prawidłowej odpowiedzi. Należy wykorzystać przerwanie zegarowe.

Numer przerwania zegarowego zapisany szesnastkowo w Pascalu to $1C. Aby obsłużyć przerwanie, program na początku zapamiętuje aktualny wektor przerwań (GetIntVec) — w celu odtworzenia go na końcu programu — a następnie nakierowuje go na naszą procedurę (za pomocą SetIntVec). Od tej pory regularnie około 18 razy na sekundę program będzie „zaglądał” do naszej procedury. Przed procedurą znajduje się kilka dyrektyw kompilatora {$F+,S-,W-}, a po nagłówku występuje słowo interrupt. Nie będziemy wnikać w znaczenie tych niuansów. Wystarczy nam na razie wiedza, że zaleca się stosowanie takiej konstrukcji podczas tworzenia procedury obsługi przerwania. W momencie wejścia do procedury kursor może się znajdować w dowolnym miejscu ekranu. Należy więc zapamiętać położenie kursora (funkcje WhereX, WhereY), a przy wyjściu z procedury — odtworzyć je na ekranie.

program cw4_19;

{ Program wyświetla licznik sekund na ekranie niezależnie }

{ od czynności wykonywanych aktualnie przez użytkownika. }

{ Wykorzystane jest przerwanie zegarowe.    }

{ Katalog r4_03 : 4_19.pas    }

uses

Crt, Dos; var

Licznik : Word;

StaryWektor : Pointer;

{$F+,S-,W-}

procedurę Rysuj Licznik; interrupt;

var X, Y ; Word; begin

if (Licznik mod 18) - O then

begin

X WhereX;

Y WhereY;

GotoXY(75, 1);

WriteCLicznik div 18, ' ');

GotoXY(X, Y);

end;

if Licznik>0 then

Dec(Licznik);

end;

{$F-,S+>

procedurę Sprawdzian; var

I, A, B, Wynik, Prawidłowe : Integer;