Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 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.045 c
2-1136485227
RDS
2006-01-05 21:20
2006.01.22
Помогите найти ошибку, плиз


1-1134629337
M@D
2005-12-15 09:48
2006.01.22
Печать документа Excel


3-1132758007
Vikusik
2005-11-23 18:00
2006.01.22
inser+insert + ..... +insert = 0 md free memory


2-1135798689
JEK2
2005-12-28 22:38
2006.01.22
Передать данные в главную форму из неглавной


6-1128457045
Out
2005-10-05 00:17
2006.01.22
определение ip адреса





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский