Prawo Murphy'ego: W każdym programie błędy wykazują skłonność do występowania w tym miejscu, które sprawdzasz jako ostatnie.
Turbo Pascal 7.0 - Moduł Crt

Moduł Crt zawiera procedury i funkcje obsługi ekranu, dźwięku i klawiatury. Umożliwia definiowanie okien, wybór koloru tekstu i jego tła w przypadku kolorowych kart graficznych, generowanie dźwięku o dowolnej częstotliwości i długości oraz odczytywanie znaków z klawiatury, włącznie z jej rozszerzeniami.

Stałe trybów tekstowych

Nazwa stałej Wartość liczbowa Opis
BW400czarno-biały karty kolorowej, 40 kolumn
CO401kolorowy karty kolorowej, 40 kolumn
BW802czarno-biały karty kolorowej, 80 kolumn
CO803kolorowy karty kolorowej, 80 kolunm
Mono7czarno-biały karty monochromatycznej, 80 kolumn
Font8x8256kolorowy karty EGA lub VGA, 43 lub 50 wierszy

Stałe kolorów

Nazwa stałej Wartość liczbowa Opis
Black0czarny
Blue1niebieski
Green2zielony
Cyan3turkusowy
Red4czerwony
Magenta5karmazynowy
Brown6brązowy
LightGray7jasnoszary
DarkGray8ciemnoszary
LightBIue9jasnoniebieski
LightGreen10jasnozielony
LightCyan11jasnoturkusowy
LightRed12jasnoczerwony
LightMagenta13jasnokarmazynowy
Yellow14żółty
White15biały
Blink128suma (Blink + kolor) wywołuje miganie wyróżnionego koloru
Dla tekstu można używać wszystkich wartości kolorów.
Dla tła dostępne są tylko wartości z zaktesu: 0 - 7.

Zmienne

Zmienna Typ Domyślnie Opis
CheckBreakBooleanTrueoznacza, że Ctrl-Break działa tak, jak w systemie operacyjnym DOS
CheckEofBooleanFalsewartość funkcji Eof(plik) jest równa CheckEof dla pliku tekstowego związanego z CRT (po znaku generowanego przez Ctrl-Z)
CheckSnowBooleanTruezabezpiecza ekran przed śnieżeniem (dla karty CGA)
DirectVideoBooleanTrueTrue - wyświetlanie na monitorze bezpośredniego przez moduł CRT; False - wyświetlanie za pomocą procedur BIOS
LastModeWordbrakostatnio używany tryb sterownika ekranu
TextAttrBytebrakatrybut wyświetlanych znaków
WinMinWordbrakwspółrzędne lewego górnego rogu bieżącego okna tekstowego (pierwszy bajt - Y, drugi - X)
WinMaxWordbrakwspółrzędne prawego dolnego rogu bieżącego okna tekstowego (pierwszy bajt - Y, drugi - X)

Funkcje i procedury

AssignCrt(var plik: Text)
plik - plik tekstowy
Skojarzenie pliku tekstowego z urządzeniem CRT (do realizacji operacji wejścia-wyjścia związanych z konsolą).

KeyPressed: Boolean
Zwraca wartość True, jeżeli w buforze klawiatury znajduje się nie odczytany jeszcze znak.

ReadKey: Char
Czytanie kolejnego znaku znajdującego się w buforze klawiatury. Gdy bufor jest pusty - program zostaje zatrzymany. Wartość funkcji równa #0 oznacza wygenerowanie specjalnego znaku.

TextMode (tryb: Byte)
tryb - stała typu tekstowego
Zamiana bieżącego trybu tekstowego na nowy tryb.

Window (x1, y1, x2, y2: Byte)
x1, y1 - współrzędne lewego górnego rogu okna
x2, y2 - współrzędne prawego dolnego rogu okna
Zdefiniowanie okna tekstowego o podanych współrzędnych lewego górnego i prawego dolnego rogu okna. Kursor znajdzie się w lewym górnym rogu okna.

GotoXY (x, y: Byte)
x, y - współrzędne znaku w oknie
Umieszczenie kursora w kolumnie X i wierszu Y bieżącego okna tekstowego. Punkt (1,1) znajduje się w lewym górnym rogu okna.

WhereX: Byte
Współrzędna X znaku wskazywanego przez kursor (bieżąca kolumna).

WhereY: Byte
Współrzędna Y znaku wskazywanego przez kursor (bieżący wiersz).

ClrScr
Wypełnienie bieżącego okna tekstowego aktualnym kolorem tła i umieszczenie kursora w lewym górnym rogu okna (1, 1).

ClrEol
Wypełnienie znakami spacji obszaru między pozycją kursora a końcem wiersza, w którym się kursor znajduje.

InsLine
Wstawienie wiersza wypełnionego spacjami bezpośrednio pod wierszem, w którym znajduje się kursor. Wiersz ostatni bieżącego okna tekstowego zostanie usunięty, a wiersze, przed którymi wstawiono ten nowy, przesunięte w dół.

DelLine
Usunięcie wiersza, w którym znajduje się kursor. Wiersze położone poniżej zostaną przesunięte w górę, a ostatni wiersz okna zostanie wypełniony znakami spacji.

TextColor (kolor: Byte)
kolor - stała koloru
Zmiana koloru wyprowadzanych znaków. Możliwy jest wybór jednego z 16 kolorów określonych wartościami od O do 15.

TextBackground (kolor: Byte)
kolor - stała koloru
Zmiana koloru tła. Możliwy jest wybór jednego z 8 kolorów określonych wartościami od O do 7.

LowVideo
Wyprowadzenie tekstu w kolorze ciemnym, odpowiadającym wcześniejszemu kolorowi jasnemu (numer koloru większy niż 7). Dzieje się tak na skutek wyzerowania bitu jasności zmiennej TextAttr.

HighVideo
Zmiana koloru wyprowadzanego tekstu na odpowiedni jasny. Jest to wynikiem ustawienia bitu jasności zmiennej TextAttr w stan 1.

NormVideo
Nadanie bitowi jasności zmiennej TextAttr stanu sprzed pierwszego wywołania procedury HighVideo lub LowVideo.

Delay (ms: Word)
ms - liczba milisekund
Zawieszenie wykonywania programu na czas określony parametrem ms.

Sound (Hz: Word)
Hz - częstotliwość dźwięku w hercach
Generowania dźwięku o częstotliwości zadanej przez parametr Hz.

NoSound
Wstrzymanie generowania dźwięku.
« wstecz   dalej »