Текущий архив: 2006.01.22;
Скачать: CL | DM;
Вниз
Как в Turbo Pascal вывести на экран разноцветные окна?!!!!! Найти похожие ветки
← →
Volf_555 (2005-12-27 23:22) [0]Следующий код не выводит корректно разноцветные окна:
program sdf;
uses
CRT,DOS;
var
x1,y1,x2,y2,color:Integer;
begin
repeat
x1:=Random(80);
y1:=Random(25);
x2:=Random(80);
y2:=Random(25);
color:=Random(16);
TextBackGround(color);
Window(x1,y1,x2,y2);
until
KeyPressed;
end.
Как сделать вывод разноцветных окон корректным?!
← →
Джо © (2005-12-27 23:23) [1]Что есть "корректность"?
← →
Volf_555 (2005-12-27 23:27) [2]Задача следующая:
выводить на экран разноцветные окна разных размеров до тех пор, пока не будет нажата клавиша
> Что есть "корректность"?
В смысле как изменить код?
← →
Mike Kouzmine © (2005-12-27 23:28) [3]Как говориться : конец - всему делу венец. Контролируй концы.
← →
Volf_555 (2005-12-27 23:29) [4]
> В смысле как изменить код?
В смысле: "как изменить код?"
← →
Johnmen © (2005-12-27 23:32) [5]>Volf_555
http://delphimaster.net/view/2-1135666466/
← →
Volf_555 (2005-12-27 23:36) [6]
> http://delphimaster.net/view/2-1135666466/
"Random генерит одинаковые значения" - название статьи. Разве я про это спрашивал?!
← →
Johnmen © (2005-12-27 23:39) [7]А про что?
← →
Volf_555 (2005-12-27 23:42) [8]Вот про что:
> Задача следующая:
> выводить на экран разноцветные окна разных размеров до тех
> пор, пока не будет нажата клавиша
Нужна процедура вывода на экран окна
← →
Gero © (2005-12-27 23:44) [9]
> Нужна процедура вывода на экран окна
Window.
← →
Volf_555 (2005-12-27 23:50) [10]След. код выводит на экран чёрные окна. Как осуществить вывод разноцветных окон?????????????????
program sdf;
uses
CRT,DOS;
var
x1,y1,x2,y2,color:Integer;
begin
Randomize;
repeat
x1:=Random(80);
y1:=Random(25);
x2:=Random(80);
y2:=Random(25);
color:=Random(16);
TextBackGround(color);
Window(x1,y1,x2,y2);
until
KeyPressed;
end.
← →
Johnmen © (2005-12-28 00:01) [11]см. TextAttr, ClrScr
← →
Volf_555 (2005-12-28 00:22) [12]Всё-равно не выходит
← →
Marser © (2005-12-28 01:44) [13]TextBackGround(color); - задаем фоновый цвет
clrscr - очищаем активное окно. В результате оно окрашивается в установленный фоновый цвет.
Страницы: 1 вся ветка
Текущий архив: 2006.01.22;
Скачать: CL | DM;
Память: 0.49 MB
Время: 0.026 c
