Модульное программирование в Турбо Паскале. Бакланов М.В - 23 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

- 23 -
9. Ijbeh`_gb_A.
Fh^mev CRT. JZ[hlZkl_dklhf
Fh^mev CRT ij_^klZ\ey_l kh[hc [b[ebhl_dm nmgdpbc b ijhp_^m j
ij_^gZagZq_gguo^eym\_ebq_gby\ hafh`ghkl_cl_dklh\h]h\\h^Z-\u\h^Z^Zgguo
<kz hibkZgb_ \hafh`ghkl_c ^Zggh]h fh^meyij_^klZ\e_gh \lZ[e 1. >eyaZ^Zgby
h^gh]hbal_dklh\uoj_`bfh\ij_^gZagZq_gZijhp_^m jZ
PROCEDURE TEXTMODE (MODE: WORD);
]^_ Mode - dh^ l_dklh\h]h j_`bfZ dhlhjuc fh`_l ijbgbfZlv ke_^mx sb_
agZq_gby
- BW40 = 0 -q_jgh-[_eucj_`bf 40o 25;
-K = 1
-
p\_lghcj_`bf 40o 25;
- BW80 = 2 -q_jgh-[_eucj_`bf 80o 25;
-K = 3
-
p\_lghcj_`bf 80o 25;
- MONO = 7 -fhghojhfguc^eyq_jgh-[_eh]hZ^Zil_jZ
- FONT8X8 = 256 -bkihevamxlky^eyaZ]jm`Z_fh]hrjbnlZ\j_`bf_ 80o 45
beb 80o 50kZ^Zil_jZfb VGAbeb EGA.
DZdhc [u j_`bf g_ [ue m klZgh\e_g dhhj^bgZlu \_jog_]h e_\h]h m]eZ wdjZgZ
\k_]^Z hij_^_eyxlky dZd X1=1 b Y1 = 1. IjbjZs_gb_ agZq_gbc ih hkb O
ijhbkoh^blke_\ZgZijZ\hZihhkb Y -k\_jom\gba.AgZq_gb_dhhj^bgZlgb`g_]h
ijZ\h]hm]eZaZ\bkblhlj_`bfZeb[hO = 40b Y2 = 25,eb[hO = 80bY2 = 25,
eb[hO = 80b Y2 = 45,eb[hO = 80b Y2 = 50.
LZ[ebpZ1. Ijhp_^mjubnmgdpbbfh^meyCRT
Nmgdpbybeb
ijhp_^mjZ
GZagZq_gb_
KeyPressed
Hij_^_ey_l[ueZebgZ`ZlZdeZ\brZgZdeZ\bZlmj_
Function KeyPressed: boolean;
QblZ_lagZq_gb_gZ`ZlhcdeZ\brb
Function ReadKey: char;
TextBackground
MklZgZ\eb\Z_lp\_lnhgZ
Procedure TextBackground(Color: byte);
TextColor
MklZgZ\eb\Z_lp\_l\u\h^bfuokbf\heh\
Procedure TextColor (Color: byte);
                                         - 23 -


                              9. Ijbeh`_gb_A.
                          Fh^mev CRT. JZ[hlZkl_dklhf


   Fh^mev CRT ij_^klZ\ey_l kh[hc [b[ebhl_dm nmgdpbc b ijhp_^mj
ij_^gZagZq_gguo^eym\_ebq_gby\hafh`ghkl_cl_dklh\h]h\\h^Z-\u\h^Z^Zgguo
ey aZ^Zgby
h^gh]hbal_dklh\uoj_`bfh\ij_^gZagZq_gZijhp_^mjZ

   PROCEDURE TEXTMODE (MODE: WORD);

   ]^_ Mode - dh^ l_dklh\h]h j_`bfZ dhlhjuc fh`_l ijbgbfZlv ke_^mxsb_
agZq_gby
   - BW40       = 0 -q_jgh-[_eucj_`bf 40o 25;
   -K       = 1 -p\_lghcj_`bf 40o 25;
   - BW80       = 2 -q_jgh-[_eucj_`bf 80o 25;
   -K       = 3 -p\_lghcj_`bf 80o 25;
   - MONO       = 7 -fhghojhfguc^eyq_jgh-[_eh]hZ^Zil_jZ
   - FONT8X8 = 256 -bkihevamxlky^eyaZ]jm`Z_fh]hrjbnlZ\j_`bf_ 80o 45
beb 80o 50kZ^Zil_jZfb VGAbeb EGA.
   DZdhc [u j_`bf g_ [ue mklZgh\e_g dhhj^bgZlu \_jog_]h e_\h]h m]eZ wdjZgZ
\k_]^Z hij_^_eyxlky dZd X1=1 b Y1 = 1. IjbjZs_gb_ agZq_gbc ih hkb O
ijhbkoh^blke_\ZgZijZ\hZihhkb Y -k\_jom\gba.AgZq_gb_dhhj^bgZlgb`g_]h
ijZ\h]hm]eZaZ\bkblhlj_`bfZeb[hO = 40b Y2 = 25,eb[hO = 80bY2 = 25,
eb[hO = 80b Y2 = 45,eb[hO = 80b Y2 = 50.

    LZ[ebpZ1. Ijhp_^mjubnmgdpbbfh^meyCRT

    Nmgdpbybeb
                                                  GZagZq_gb_
     ijhp_^mjZ

KeyPressed
                       Hij_^_ey_l[ueZebgZ`ZlZdeZ\brZgZdeZ\bZlmj_
                       Function KeyPressed: boolean;

5HDG._\                QblZ_lagZq_gb_gZ`ZlhcdeZ\brb
                       Function ReadKey: char;

TextBackground
                       MklZgZ\eb\Z_lp\_lnhgZ
                       Procedure TextBackground(Color: byte);

TextColor
                       MklZgZ\eb\Z_lp\_l\u\h^bfuokbf\heh\
                       Procedure TextColor (Color: byte);

Страницы