crt是Turbo Pascal中的一個單元，處理文字顏色及格式。
基本介紹
- 中文名：CRT單元
- 外文名：the CRT unit
- 編程語種：Pascal
過程與函式,變數,樣例程式,
過程與函式
過程與函式表格
說明 | |
procedure assigncrt(var f:text); | 將文本檔案f與顯示器CRT建立聯繫 |
function keypressed:boolean; | 檢測是否有鍵按下，有則函式值為true |
function readkey:char; | 等待從鍵盤輸入一個字元 |
procedure textmode(mode:integer); | 設定字元顯示模式，mode值見下表，可以用常量標識符或常數值 |
procedure window(x1,y1,x2,y2:byte); | 定義字元視窗：（x1,y1）為左上角坐標，（x2,y2）為右下角坐標；必須在設定模式允許範圍內.視窗定義後，所有顯示均在視窗進行 |
procedure gotoxy(x,y:byte); | 將游標移至（x,y）處 |
function wherex:byte; | 返回當前視窗中游標所在的列數（相對當前視窗） |
function wherey:byte; | 返回當前視窗中游標所在的行數（相對當前視窗） |
procedure clrscr; | 清除當前視窗或螢幕 |
procedure clreol; | 從游標位置開始清除至本行末尾（不超過視窗右邊界） |
procedure insline; | 在當前游標處插入一行 |
procedure delline; | 刪除游標所在的當前行 |
procedure textcolor(color:byte); | 設定正文前景顏色 |
procedure textbackground(color:byte); | 設定正文背景顏色 |
procedure lowvideo; | 選擇低亮度顯示字元 |
procedure highvideo; | 選擇高亮度顯示字元 |
procedure normvideo; | 選擇正常亮度顯示字元 |
procedure delay(ms:word); | 等待或延遲ms個毫秒 |
procedure sound(hz:word); | 以hz指定的頻率發聲 |
procedure nosound; | 關閉內部揚聲器 |
Testmode的顯示模式常數表
常量標識符 | 常數值 | 顯示模式 |
BW40 | 0 | 彩色顯示卡40*25黑白模式 |
CO40 | 1 | 彩色顯示卡40*25彩色模式 |
C40 | 1 | 同上，用於兼容3.0版本 |
BW80 | 2 | 彩色顯示卡80*25黑白模式 |
CO80 | 3 | 彩色顯示卡80*25彩色模式 |
C80 | 3 | 同上，用於兼容3.0版本 |
Mono | 7 | 單色顯示卡80*25模式 |
Font 8*8 | 256 | 用於ROM字模 |
Textcolor等的前景和背景顏色常數表
常量標識符 | 常數值 | 顏色 | 前景 | 背景 | 常量標識符 | 常數值 | 顏色 | 前景 | 背景 |
Black | 0 | 黑 | Y | Y | DarkGray | 8 | 深灰 | Y | Y |
Blue | 1 | 藍 | Y | Y | LightBlue | 9 | 淺灰 | Y | Y |
Green | 2 | 綠 | Y | Y | LightGreen | 10 | 淺綠 | Y | Y |
Cyan | 3 | 青 | Y | Y | LightCyan | 11 | 淺青 | Y | Y |
Red | 4 | 紅 | Y | Y | LightRed | 12 | 淺紅 | Y | Y |
Magenta | 5 | 洋紅 | Y | Y | LightMagenta | 13 | 淺洋紅 | Y | Y |
Brown | 6 | 棕 | Y | Y | Yellow | 14 | 黃 | Y | Y |
LightGray | 7 | 淺灰 | Y | Y | White | 15 | 白 | Y | Y |
Blank | 128 | 閃爍 | Y | Y |
變數
變數表格
變數名 | 類型 | 單元中作用 |
checkbreak | boolean | 程式在執行下一個write或writeln語句之前是否做Ctrl+Break檢查 |
checkeof | boolean | 允許檔案結束的Ctrl+Z檢查 |
directvideo | boolean | 為true時採用直接訪問視頻記憶體方式 |
checksnow | boolean | 為true時進行雪花過濾控制 |
lastmode | word | 保存上一次顯示模式 |
textattr | byte | 保存當前的正文前景與背景顏色 |
windmin | word | 保存當前視窗左上角坐標（低位元組為列坐標，高位元組為行坐標） |
windmax | word | 保存當前視窗右下角坐標（低位元組為列坐標，高位元組為行坐標 |
lastmode檔案注釋
bit0~bit2：前景顏色（bit0:Blue;bit1:Green;bit2:Red)
bit3：亮度（Brightness)
bit4~bit6：背景顏色（bit4:Blue;bit5:Green;bit6:Red)
bit7：是否閃爍（Blinking)
樣例程式
設定螢幕為25行*40列正文模式，並改變字元的前景顏色，背景顏色.
program testtext; //Pascal uses crt; begin textmode(c40); textbackground(blue); textcolor(red); writeln('text mode test'); textbackground(green); textcolor(blink+yellow); writeln('blink test'); end. 