модульде келесі алдын ала анықталған тұрақтылар қолданы лады:
const
бет 88/210 Дата 06.01.2022 өлшемі 4,42 Mb. #16437 түрі Оқулық
Байланысты:
boribaev-algoritmdeu 163
модульде келесі алдын ала анықталған тұрақтылар қолданы лады:
const
Detect = 0; {типті автоматты анықтау режимі}
CGA = 1;
MCGA = 2;
EGA - 3;
EGA 64 = 4;
EGAMono = 5;
IBM 8514 = 6;
HercMono = 7;
ATT 400 - 8;
VGA = 9;
PC 3270 = 10;
Адаптерлердің көбі əр түрлі режимде жұмыс істей алады. Адаптерге қажет режимді көрсету үшін Mode айнымалысы қолданылады. Процедураны шақырарда айнымалының мəні тө-мендегі тұрақтылардың бірі бола алады:
const
{ CGA адаптері :}
CGACO =0; {Төменгі мүмкіндік, 0 палитра }
CGAC 1 = 1; { Төменгі мүмкіндік, 1 палитра }
CGAC 2 = 2; { Төменгі мүмкіндік, 2 палитра }
CGAC 3 = 3; { Төменгі мүмкіндік, 3 палитра }
CGAHi = 4; { жоғарғы мүмкіндік }
{ MCGA адаптері: }
MCGACO = 0; { CGACO эмуляциясы } MCGAC 1 = 1; { CGAC 1 эмуляциясы } MCGAC 2 = 2; { CGAC 2 эмуляциясы } MCGAC 3 = 3; { CGAC 3 эмуляциясы) MCGAMed = 4; { CGAHi эмуляциясы } MCGAHi = 5; {640x480} { EGA адаптері: }
EGALo = 0; {640x200, 16 түс} EGAHi = 1; {640x350, 16 түс} EGAMonoHi = 3; {640x350, 2 түс } {HGC и HGC+ Адаптері: }
164
HercMonoHi = 0; {720 x 348}
{ АТТ400 адаптері: }
АТТ400СО = 0; { CGACO режимінің аналогі} АТТ400С1 = 1; { CGAC 1 режимінің аналогі } АТТ400С2 = 2; { CGAC 2 режимінің аналогі } АТТ400СЗ = 3; { CGAC 3 режимінің аналогі } ATT 400 Med = 4; { CGAHi режимінің аналогі } АТТ400Н1 = 5; {640 x 400, 2 түс}
{ VGA адаптері: } VGALo = 0; {640 x 200} VGAMed = 1; {640 x 350} VGAHi = 2; {640 x 480}
PC 3270 H 1 = 0; (HercMonoHi аналогі } { 1ВМ8514 адаптері }
IBM 8514 LO = 0; {640x480, 256 түс} IBM 8514 H 1 = 1; {1024x768, 256 түс}
Мысалы, драйвер CCA.BGI С дискісінің ТР\ВGI каталогында жəне 320x200 2 палитра жұмыс режимін орнату керек. Онда процедураны іске қосу төмендегідей түрде болады: Uses Graph;
Достарыңызбен бөлісу: