69 (199)

Ćwiczenie

Ćwiczenie

4.16

Wygaszacz ekranu

Napis program, będący prostym wygaszaczem ekranu, wyświetlającym gwiazdki w losowych miejscach, aż do wciśnięcia przez użytkownika klawisza.

Wykorzystamy procedurę GotoXY, pozwalającą przenieść kursor do znaku określonych współrzędnych. Po jej wykonaniu wypisany tekst pojawi się właśnie w tym miejscu.

program cw4_16;

{ Program ilustrujący zmianę położenia kursora. Spełnia }

{ funkcje wygaszacza ekranu.    }

{ Katalog r4_03 : 4_16.pas    }

uses

Crt;

var

X, V : Byte;

begin

ClrScr;

Randomize;

repeat

X Random (80)+l; if X - 80 then

Y    Random (24)+l else

Y    Random (25)+l;

GotoXY (X, Y);

Delay (500);

Write ('*'); until KeyPressed;

Readln;

end.

Zauważ, że losowania nowych współrzędnych dokonujemy w dość skomplikowany sposób. Pierwszej współrzędnej nadajemy wartość z zakresu 1..80. Drugiej — 1..25, chyba że pierwsza miała wartość 80 — wtedy używamy zakresu 1..24. Wygląda na to, że za wszelką cenę staramy się uniknąć przeniesienia kursora do znaku o współrzędnych (80, 25). Gdyby kursor pojawił się w tym miejscu, po wypisaniu gwiazdki musiałby zostać przeniesiony na kolejne miejsce, czyli poza ekran. Spowodowałoby to przesunięcie ekranu o jeden wiersz do góry.

Spróbuj stworzyć efekt rozbłyskujących gwiazdek. W każdym przebiegu pętli wyświetlaj kolejno z małymi przerwami w tym samym miejscu kropkę, gwiazdkę, znak o kodzie ASCII 15 i znów gwiazdkę. Aby wracać do tego samego miejsca, używaj procedury GotoXY.

Zapoznamy się jeszcze z dwiema procedurami z modułu Dos.

GetDate Procedura nadaje przekazywanym przez zmienne parametrom (var Y, M, D, DoW : Word); odpowiednio: rok, miesiąc, dzień i dzień tygodnia odczytane

z systemu.

GetTime Procedura nadaje przekazywanym przez zmienne parametrom (H, M, S, S100: Word); odpowiednio: godzinę, minutę, sekundę i setną część sekundy odczytane z systemu.