Masochistyczne skłonności nie są wprawdzie warunkiem koniecznym do pracy w systemie Windows, są jednak bardzo pomocne.
|
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
Stałe kolorów
Dla tła dostępne są tylko wartości z zaktesu: 0 - 7. Zmienne
Funkcje i procedury AssignCrt(var plik: Text) plik - plik tekstowySkojarzenie pliku tekstowego z urządzeniem CRT (do realizacji operacji wejścia-wyjścia związanych z konsolą). KeyPressed: BooleanZwraca wartość True, jeżeli w buforze klawiatury znajduje się nie odczytany jeszcze znak.
ReadKey: CharCzytanie 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 tekstowegoZamiana 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 oknaZdefiniowanie 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 oknieUmieszczenie kursora w kolumnie X i wierszu Y bieżącego okna tekstowego. Punkt (1,1) znajduje się w lewym górnym rogu okna. WhereX: ByteWspółrzędna X znaku wskazywanego przez kursor (bieżąca kolumna).
WhereY: ByteWspółrzędna Y znaku wskazywanego przez kursor (bieżący wiersz).
ClrScrWypełnienie bieżącego okna tekstowego aktualnym kolorem tła i umieszczenie kursora w lewym górnym rogu okna (1, 1). ClrEolWypełnienie znakami spacji obszaru między pozycją kursora a końcem wiersza, w którym się kursor znajduje. InsLineWstawienie 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ół. DelLineUsunię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 koloruZmiana 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 koloruZmiana koloru tła. Możliwy jest wybór jednego z 8 kolorów określonych wartościami od O do 7. LowVideoWyprowadzenie 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. HighVideoZmiana koloru wyprowadzanego tekstu na odpowiedni jasny. Jest to wynikiem ustawienia bitu jasności zmiennej TextAttr w stan 1. NormVideoNadanie bitowi jasności zmiennej TextAttr stanu sprzed pierwszego wywołania procedury HighVideo lub LowVideo. Delay (ms: Word) ms - liczba milisekundZawieszenie wykonywania programu na czas określony parametrem ms. Sound (Hz: Word) Hz - częstotliwość dźwięku w hercachGenerowania dźwięku o częstotliwości zadanej przez parametr Hz. NoSoundWstrzymanie generowania dźwięku.
|