Графика clrscr

@Svyatoslav7 · Регистрация: 19.08.2012

Author24 — интернет-сервис помощи студентам

В графике в цикле рисую круг ..... и перетаскиваю ево по х а старий хочу удалить но clrscr не удаляет..... почему???? мне виводит все 10 кругов???? должен же бить 1.... помогите мне срочно нужно

@volvo · 12.05.2013, 01:37

Потому что ClrScr очищает консольное окно. Для очистки окна графического есть ClearDevice.

@albert! · 12.05.2013, 07:55

Или, вроде бы, можно использовать GetImage и Put Image

@Svyatoslav7 · 12.05.2013, 10:33 **[ТС]**

Сообщение от UI

Потому что ClrScr очищает консольное окно. Для очистки окна графического есть ClearDevice.

cleardevice стирает все предидущее...... он так не подходит.....

Добавлено через 1 минуту

Сообщение от albert!

Или, вроде бы, можно использовать GetImage и Put Image

хмм можно попробувать...... но должно што то бить.... от например в TurboPascal в графике clrscr работает.... от мне здесь нужно замену clrscr; народ хелп)

@Puporev · 12.05.2013, 11:10

Svyatoslav7 тебе же написали, что clrscr это в текстовом режиме, а в графическом ClearDevice.
Неужели трудно прочитать и заменить?

@Svyatoslav7 · 12.05.2013, 11:15 **[ТС]**

Сообщение от Puporev

Svyatoslav7 тебе же написали, что clrscr это в текстовом режиме, а в графическом ClearDevice.
Неужели трудно прочитать и заменить?

ето же я прочитал но cleardevice очищает предидущие мои рисунки

@Puporev · 12.05.2013, 11:16

А что тебе нужно очищать?

@Svyatoslav7 · 12.05.2013, 11:19 **[ТС]**

Pascal

program my_time;
uses
Dos,crt,graph;
var
gd,gm:integer;
h,hv,s,ms:word;
cx,cy:integer;
x,y,x1,y1:integer;
begin
gd:=detect;
initgraph(gd,gm,'');
setbkcolor(red);
cleardevice;
setcolor(yellow);
circle(320,240,150);
circle(320,240,2);
x:=320;
y:=130;
x1:=1;
y1:=10;
repeat
cleardevice;
line(320,240,x,y);
delay(1000);
x:=x+8;
y:=y+7;
until y>240;

вот кусочек кода

Добавлено через 29 секунд

Сообщение от Svyatoslav7

setcolor(yellow);
circle(320,240,150);
circle(320,240,2);

от я нарисовал круг

Добавлено через 39 секунд

Pascal

repeat
cleardevice;
line(320,240,x,y);
delay(1000);
x:=x+8;
y:=y+7;
until y>240;

тогда я рисую линию и передвигаю ее.... и стираю ....

Добавлено через 17 секунд
но и круг стирается(

@Puporev · 12.05.2013, 11:22

Тогда ничего не нужно стирать, а рисовать стрелку по очереди своим цветом и цветом фона(стирать)

@Svyatoslav7 · 12.05.2013, 11:24 **[ТС]**

Сообщение от Puporev

Тогда ничего не нужно стирать, а рисовать стрелку по очереди своим цветом и цветом фона(стирать)

хммм.... а ето идея .... попробую спс)

@Puporev · 12.05.2013, 11:25

Сообщение от Svyatoslav7

а ето идея

Это прием, описанный во всех учебниках по Паскалю...

@Svyatoslav7 · 12.05.2013, 11:34 **[ТС]**

ещо вопрос а как мне сделать очередь цвету???

Добавлено через 1 минуту
можно на словах сказать ..... буду пробувать

Добавлено через 6 минут
большое спасибо все получилось)

@some98 · 19.11.2013, 17:46

А есть ли аналог clrscr в модуле wincrt?

@volvo · 19.11.2013, 17:54

Нет. В WinCRT всего 6 подпрограмм: readkey, keypressed, delay, textmode (заглушка), sound и nosound (заглушка).

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	19.11.2013, 17:54	14
	Нет. В WinCRT всего 6 подпрограмм: readkey, keypressed, delay, textmode (заглушка), sound и nosound (заглушка). 1

@Svyatoslav7 18 / 18 / 17 Регистрация: 19.08.2012 Сообщений: 281
		1
	Графика clrscr 11.05.2013, 23:04. Показов 3016. Ответов 13 Метки нет (Все метки) В графике в цикле рисую круг ..... и перетаскиваю ево по х а старий хочу удалить но clrscr не удаляет..... почему???? мне виводит все 10 кругов???? должен же бить 1.... помогите мне срочно нужно 0

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,431 Записей в блоге: 8
	12.05.2013, 01:37	2
	Потому что ClrScr очищает консольное окно. Для очистки окна графического есть ClearDevice. 1

@albert! 4 / 4 / 1 Регистрация: 23.01.2013 Сообщений: 45
	12.05.2013, 07:55	3
	Или, вроде бы, можно использовать GetImage и Put Image 1

@Svyatoslav7 18 / 18 / 17 Регистрация: 19.08.2012 Сообщений: 281
	12.05.2013, 10:33 [ТС]	4
	Сообщение от UI Потому что ClrScr очищает консольное окно. Для очистки окна графического есть ClearDevice. cleardevice стирает все предидущее...... он так не подходит..... Добавлено через 1 минуту Сообщение от albert! Или, вроде бы, можно использовать GetImage и Put Image хмм можно попробувать...... но должно што то бить.... от например в TurboPascal в графике clrscr работает.... от мне здесь нужно замену clrscr; народ хелп) 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	12.05.2013, 11:10	5
	Svyatoslav7 тебе же написали, что clrscr это в текстовом режиме, а в графическом ClearDevice. Неужели трудно прочитать и заменить? 0

@Svyatoslav7 18 / 18 / 17 Регистрация: 19.08.2012 Сообщений: 281
	12.05.2013, 11:15 [ТС]	6
	Сообщение от Puporev Svyatoslav7 тебе же написали, что clrscr это в текстовом режиме, а в графическом ClearDevice. Неужели трудно прочитать и заменить? ето же я прочитал но cleardevice очищает предидущие мои рисунки 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	12.05.2013, 11:16	7
	А что тебе нужно очищать? 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	12.05.2013, 11:22	9
	Тогда ничего не нужно стирать, а рисовать стрелку по очереди своим цветом и цветом фона(стирать) 1

@Svyatoslav7 18 / 18 / 17 Регистрация: 19.08.2012 Сообщений: 281
	12.05.2013, 11:24 [ТС]	10
	Сообщение от Puporev Тогда ничего не нужно стирать, а рисовать стрелку по очереди своим цветом и цветом фона(стирать) хммм.... а ето идея .... попробую спс) 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	12.05.2013, 11:25	11
	Сообщение от Svyatoslav7 а ето идея Это прием, описанный во всех учебниках по Паскалю... 1

@Svyatoslav7 18 / 18 / 17 Регистрация: 19.08.2012 Сообщений: 281
	12.05.2013, 11:34 [ТС]	12
	ещо вопрос а как мне сделать очередь цвету??? Добавлено через 1 минуту можно на словах сказать ..... буду пробувать Добавлено через 6 минут большое спасибо все получилось) 0

@some98 0 / 0 / 0 Регистрация: 18.11.2013 Сообщений: 4
	19.11.2013, 17:46	13
	А есть ли аналог clrscr в модуле wincrt? 0