Форум: "Потрепаться";
Текущий архив: 2006.01.22;
Скачать: [xml.tar.bz2];

Вниз

Как в 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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.47 MB
Время: 0.037 c