Практика программирования (Бейсик, Си, Паскаль)



   http://ttrcoin.com/        

Красивые окна в текстовом режиме - часть 8


AH=0;

AL=2 ;

INT10h; /* установка режима */

set_page(0); /* 0-я страница */

set_cur(1,1); /* курсор - в начало */

set_attr(7,0,0,0);/* цветовые атрибуты */

АН=9;

AL=32; /* код пробела */

BL=7; /* белым по черному */

ВН=0; /* 0-я страница */

СХ=2000;

INT10h ; /* очистка экрана */

}

Программа tst_text — проверки пакета text_box

Для проверки работоспособности описанного выше пакета предлагается следующий тест, охватывающий почти все функции пакета:

#include "text.h"

void main() {

init_txt();

set_attr(4,2,1,0); //красный цвет, зеленый фон

box_abs(2,2,10,30,4,1); //прямоугольник с тенью справа

getch();

move_cur(2); //сдвиг курсора вправо

getch();

s_out('А'); //вывод одной буквы

getch();

s_out_h('В',3); //вывод трех букв в строке

getch();

s_out_v('С',4); //вывод четырех букв по вертикали

getch();

cl_rect(3,3,7,27,4) ; //заливка внутренности окна красным

getch();

set_attr(7,1,0,1);

box_rel(13, 40,8,28,4,-1);//прямоугольник с тенью слева

getch();

set_attr(7,1,0,0);

sbox_rel(14,41,6,26,' 7 ') ;

getch();

st_out_l(13,5,16,"1234567890123456"); //линейка в полосе

st_out_l(14,5,16," "); //очистка полосы

getch();

st_out_l(14,5,16,"Привет"); //вывод в полосу с прижимом влево

getch();

st_out_l(15,5,16," "); //очистка полосы

getch();

st__out_c (15, 5,16, "Привет") ; //вывод в полосу по центру getch();

st_out 1(16,5,16," "}; //очистка полосы

getch ();

st_out_r(16,5,16,"Привет"); //вывод в полосу с прижимом вправо

getch () ; }

В состав файла с текстом головной программы можно включить все функции пакета и набрать заголовочный файл text.h:

#include <conio.h>

#include <dos.h>

#include <string.h>

union REGS reg;

#define AH reg.h.ah

#define AL reg.h.al

#define BH reg.h.bh

#define BL reg.h.bl

#define CH reg.h.ch

#define CL reg.h.cl

#define CX reg.x.ex

#define DL reg.h.dl

#define DH reg.h.dh




Содержание  Назад  Вперед