64 (224)

ReadKey : Char Sound (Hz: Word)

TextBackground (Color : Byte)

TextColor (Color: Byte) WhereX: Byte; WhereY: Byte;

Funkcja zwracająca kod pierwszego klawisza z bufora klawiatury.

Procedura rozpoczynająca emitowanie przez głośnik komputera dźwięku o częstotliwości Hz herców. Aby zakończyć, należy wywołać funkcję NoSound.

Procedura ustalająca kolor tła dla wypisywanego tekstu.

Procedura ustalająca kolor znaków dla wypisywanego tekstu. Funkcja określająca kolumnę, w której znajduje się kursor. Funkcja określająca wiersz, w której znajduje się kursor.

Wielokrotnie pojawił się termin: kursor. Określa on miejsce, w którym przy wykonaniu kolejnej instrukcji wypisywania (Write) rozpoczęłoby się wypisywanie tekstu.

Można także, zamiast deklarować kolory numerycznie, wykorzystać zdefiniowane w module stałe (w nawiasie podana jest polska nazwa koloru i wartość liczbowa stałej): Black (czarny, 0), Blue (niebieski, 1), Green (zielony, 2), Cyan (cyjan, 3), Red (czerwony, 4), Magenta (karmazynowy, 5), Brown (brązowy, 6) , LightGray (jasnoszary, 7), DarkGray (ciemnoszary, 8), LightBlue (jasnoniebieski, 9), LightGreen (jasnozielony, 10), LightCyan (jasny cyjan, 11), LightRed (jasnoczerwony, 12), LightMagenta (jasnokarmazynowy, 13), Yellow (żółty, 14), White (biały, 15). Pamiętaj, że dla tła dopuszczalne są tylko zmienne z zakresu 0..7.

Czy widzisz, jak ogromne możliwości zyskujesz dzięki modułowi Crt?

ĆWICZENIE

4.11

Kolory tekstu

Napisz program, który wczyta tekst, wyczyści zawartość ekranu i wyświetli nam tekst we wszystkich predefiniowanych kolorach.

W programie wykorzystamy dwie nowo poznane procedury z modułu Crt: czyszczącą zawartość ekranu (ClrScr) i ustalającą kolor wyświetlanego tekstu (TekstColor). W module deklaracyjnym musimy zadeklarować użycie tego modułu.

program cw4_ll;

{ Program wyświetla zadany tekst we wszystkich }

{ predefiniowanych kolorach.    }

{ Katalog r4_03 : 4_ll.pas    }

uses

Crt;

var

Tekst : String;

I : Byte;

begin

repeat

Write ('Podaj tekst: '); Readln (Tekst) until (Tekst <> ' ');