Работа с графикой
Очень нужно. Прямо горит таки!
Нужно в графическом режиме вывести текст (типа "Лабораторная работа..." - просто подскажите как) и построить семейство разноцветных окружностей, радиусы которых увеличиваются, т.е. анимированные окружности.
Здравствуйте!
Очень нужно. Прямо горит таки!
Нужно в графическом режиме вывести текст (типа "Лабораторная работа..." - просто подскажите как) и построить семейство разноцветных окружностей, радиусы которых увеличиваются, т.е. анимированные окружности.
Почитай help к графическому модулю.
Там все понято без объяснений
Здравствуйте!
Очень нужно. Прямо горит таки!
Нужно в графическом режиме вывести текст (типа "Лабораторная работа..." - просто подскажите как) и построить семейство разноцветных окружностей, радиусы которых увеличиваются, т.е. анимированные окружности.
Ну на Паскале это просто!
Поповоду текста! Есть процедура outtextxy("лабоараторная работа -...",100,100) это я к примеру!
А поповоду окружностей есть процедура circle(X,Y,R); X,Y -координаты. R- радиус! Цвет устанавливается процедурой Setcolor("red"); А что бы стереть оуружность можно её нарисовать цветом фона! напрмиер
Setcolor(15);
circle(100,100,10);
Setcolor(10);
circle(100,100,10);
Setcolor(15);
circle(100,100,15);
ну вот кратко вроде объяснил!!! Вроде нигде не ошибся! :)
Могу сделать всю лабу :) Если скажешь все условия!
Здравствуйте!
Очень нужно. Прямо горит таки!
Нужно в графическом режиме вывести текст (типа "Лабораторная работа..." - просто подскажите как) и построить семейство разноцветных окружностей, радиусы которых увеличиваются, т.е. анимированные окружности.
Строку помещаещь в переменную строкового типа,
потом при помощи этой процедуры выводищь в нужное место строку:
procedure writestr(str:string;x,y:byte;page:byte;attr:byte);
var
r:registers; {для прерываний}
begin
with r do
begin
AH:=$13; {функция вывода строки}
AL:=0; {цвет символа будет задан в BL}
BH:=page; {видеостраница}
BL:=attr; {цвет}
DH:=y;
DL:=x;
CX:=Length(str); {длина строки}
BP:=Ofs(str)+1; {адрес базы}
ES:=Seg(str); {и сегмента начиная с str[1]}
end;
Intr($10,r); {вызываем прерывание}
end;
подцепи модуль DOS.
Строку помещаещь в переменную строкового типа,
потом при помощи этой процедуры выводищь в нужное место строку:
procedure writestr(str:string;x,y:byte;page:byte;attr:byte);
var
r:registers; {для прерываний}
begin
with r do
begin
AH:=$13; {функция вывода строки}
AL:=0; {цвет символа будет задан в BL}
BH:=page; {видеостраница}
BL:=attr; {цвет}
DH:=y;
DL:=x;
CX:=Length(str); {длина строки}
BP:=Ofs(str)+1; {адрес базы}
ES:=Seg(str); {и сегмента начиная с str[1]}
end;
Intr($10,r); {вызываем прерывание}
end;
подцепи модуль DOS.
Ты бы еще на голом асме написал