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.
Numer |
Nazwa koloru |
Kolor |
0 |
czarny |
|
1 |
niebieski |
|
2 |
zielony |
|
3 |
cyan |
|
4 |
czerwony |
|
5 |
fioletowy |
|
6 |
br±zowy |
|
7 |
j. szary |
|
8 |
szary |
|
9 |
j. niebieski |
|
10 |
j. zielony |
|
11 |
j. cyan |
|
12 |
j. czerwony |
|
13 |
j. fiolet |
|
14 |
¿ó³ty |
|
15 |
bia³y |
|
