Главная страница
    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.035 c
6-1129112868
kivadim
2005-10-12 14:27
2006.01.22
Как оборвать свзь с клиентом у которого, левый ip_address


2-1135708630
Chester
2005-12-27 21:37
2006.01.22
Народ как правильно поставить счётчик?


3-1132913589
Ega23
2005-11-25 13:13
2006.01.22
TADODataSet.CreateParameter в ран-тайме


14-1135583754
Иксик
2005-12-26 10:55
2006.01.22
Кому-нибудь попадалась книга "Наносистемы" на русском?


14-1132836420
linox
2005-11-24 15:47
2006.01.22
Нужно сделать прогу для админа в инет-кафе (просьба)





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский