Moduł Crt.docx

Moduł Crt

Moduł Crt zawiera procedury i funkcje przydatne w prostych operacjach używanych przeważnie w trybie tekstowym. Polecenia modułu Crt pomagają też w odczytywaniu stanu klawiatury.

ClrScr; -Procedura powodująca wyczyszczenie zawartości ekranu i ustawienie kursora graficznego w lewym górnym rogu.

ClrEol; -Procedura która czyści linię tekstu od pozycji kursora do końca lini.

Delay(czas: Word) -Procedura, która czeka tyle milisekund (milisekunda=1/1000 sekundy) ile wynosi zmienna czas. Zmienna Czas musi być typu WORD (word to liczba całkowita od 0 do 65535).

DelLine; -Procedura czyści całą linie, w której znajduje się kursor

GotoXY(X,Y: Byte); przenosi kursor do pozycji X i Y. Pozycja 1,1 oznacza lewy górny róg ekranu.

HighVideo; -Rozjaśnia kolory, tzn. jeżeli wpiszesz ciemny czerwony i coś chcesz nim narysować, będzie narysowane to jasnym czerwonym.

InsLine; Wstawia pustą linię tam, gdzie się znajduje kursor a resztę przenosi w dół.

KeyPressed - Funkcja która zwraca wartość TRUE jeżeli został naciśnięty klawisz lub FALSE jeżeli nie.

LowVideo -Przyciemnia kolory patrz HighVideo.

NormVideo -Przywraca normalne kolory.

NoSound; -Wyłącza dźwięk ze SPEAKERA (głośniczka wbudowanego w komputer).

ReadKey; -Wczytuje wciśnięty klawisz z klawiatury.

Sound(Hz:Word); -Włącza dźwięk w SPEAKERZE o częstotliwości Hz, np. aby wydać dźwięk o częstotliwości 200Hz musisz wpisać: Sound(200); Najmniejszą liczbą jaka może być użyta jako dźwięk może być wartość około 60 Hz!

TextBackground(kolor:Byte); Ustawia kolor tła pod tekstem. Standardowo jest czarne. Poniżej podano jaki kolor odpowiada jakiej liczbie. Przykład użycia : TextBackground(5);

TextColor(kolor:Byte); Ustawia kolor liter na wartość jaką przyjmuje zmienna kolor. Przykład użycia : TextColor(15); lub jeśli masz jakąś zmienną np. k:=15; piszesz TextColor(k);

TextMode(mode:integer); Ustawia specyficzny tryb tekstowy. Normalny ma 80 znaków w pozycji X i 25 w pozycji Y. Instrukcja ta zmienia ten tryb.

WhereX; -Funkcja, która przyjmuje wartość typu Byte zawierającą pozycję poziomą (inaczej pozycja X) kursora tekstowego.

WhereY; -Funkcja przyjmuje pozycję Y kursora.

Window(X1,Y1,X2,Y2:Byte); Procedura ta ustawia w pamięci okno, w którym można pisać. Od tej pory każdy tekst będzie wypisywany w tym oknie. X1 oznacza od którego znaku w poziomie ma się zaczynać okno, Y1 -od którego ma się zaczynać okno w pozycji Y, a X2 i Y2 to współrzędne końcowe, np. Window(10,10,70,15); Pozycja 1,1 to górny lewy róg ekranu.

Wartości kolorów

Kolory podane w poniższej tabelce są wykorzystywane w procedurach TextBackGround i TextColor a także w trybie graficznym modułu Graph.