Главная страница
    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.039 c
8-1123460022
Valera
2005-08-08 04:13
2006.01.22
Проиграть AudioCD с помощью DSPack


14-1135334278
Интересно мне
2005-12-23 13:37
2006.01.22
1С-ка "упала"


1-1135001045
ССТ
2005-12-19 17:04
2006.01.22
Чтение содержимого окна-таблицы


2-1136505287
DoSpyRap
2006-01-06 02:54
2006.01.22
Копирование директории


2-1136225094
Sergey2005
2006-01-02 21:04
2006.01.22
JPG в BMP





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