Убрать серый фон при рисовании

@DIMA_N · Регистрация: 21.10.2011

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

у меня в Турбо Паскалем 7,1 при этом коде рисует на сером фоне как это убрать?
простой квадрат нормально рисуется

Pascal

Uses Graph, CRT;
VAR driver, mode,x,y,i:integer;
Begin
driver := detect;
InitGraph (driver,mode,'C:\Program Files\ Turbo Pascal 7.1\BGI');
ClrScr;
TextBackGround (0);
x:=1;
y:=1;
For i:=1 To 1000 Do Begin
                   if y < 479 Then Begin
                              ClrScr;
                              PutPixel (x,y,14);
                              x:=x+1;
                              y:=y+1;
                              end;
                   if y > 479 Then Begin
                              ClrScr;
                              PutPixel (x,y,10);
                              x:=x-1;
                              y:=y+1;
                        end;
                   end;
 
END.

@I2um1 · 30.10.2011, 00:17

Убрать все ClrScr, Crt и заменить TextBackGround(0) на SetBkColor(0) ?

@DIMA_N · 30.10.2011, 00:22 **[ТС]**

серый фон убран,но получается он рисует, а я хочю чтобы кружок этот двигался
и как делать чтобы она работала на другом компе?
как я понимаю прога обрашается к папке с паскалем где должен запустится модуль,но его не видит и выключается
это сложно делать?

@Puporev · 30.10.2011, 09:38

В папке с программой нужно таскать драйвер EGAVGA.BGI

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

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

а я хочю чтобы кружок этот двигался

А где у Вас кружок? Я вижу только точку...

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

Pascal

Uses Graph, CRT;
VAR driver, mode,x,y:integer;
Begin
driver := detect;
InitGraph (driver,mode,'C:\Program Files\ Turbo Pascal 7.1\BGI');
Setbkcolor(7);
x:=1;
y:=1;
repeat
  repeat
    setcolor(10);
    Circle(x,y,2);
    delay(10);
    setcolor(7);
    Circle(x,y,2);
    x:=x+1;
    y:=y+1;
  until (y>getmaxY-4) or keypressed;
 repeat
   setcolor(10);
   Circle(x,y,2);
   delay(10);
   setcolor(7);
   Circle(x,y,2);
   x:=x-1;
   y:=y-1;
 until (y<4) or keypressed;
until keypressed
END.

@DIMA_N · 30.10.2011, 19:24 **[ТС]**

Забудем про тот код там бред)

Pascal

Uses Graph, CRT;
VAR driver,mode,x,y,i:integer;
Begin
driver := detect;
InitGraph (driver,mode,'C:\Program Files\ Turbo Pascal 7.1\BGI');
SetBkColor(14);
x:=10;
y:=10;
For i:=1 To 600 Do Begin
                   FillEllipse (x,y,5,5);
                   x:=x+1;
                   end;                   
For i:=1 To 400 Do Begin
                   FillEllipse (x,y,5,5);
                   y:=y+1;
                   end;
For i:=1 To 600 Do Begin
                   FillEllipse (x,y,5,5);
                   x:=x-1;
                   end;
For i:=1 To 400 Do Begin
                   FillEllipse (x,y,5,5);
                   y:=y-1;
                   end;
BAR (100,100,200,200);
END.

если убрать все ClrScr то получается рисование линии, а я хочу чтобы это был движущейся кружок
читал что нужно чтобы он нарисовал кружок удалил и опять нарисовал,но тогда ClrScr ставить или есть другой оператор?

@Puporev · 30.10.2011, 20:43

DIMA_N, А ты хоть пробовал посмотреть мой код, запускать его?
Для очистки графического окна есть процедура cleardevice.
Но она будет перерисовывать и фон, будет сильное мерцание, проще перерисовывать только кружок, как у меня и сделано.

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

Pascal

setcolor(10);//рисуем кружок зеленым цветом
Circle(x,y,2);
delay(10);//задержка
setcolor(7);//рисуем цветом фона=стираем
Circle(x,y,2);

@DIMA_N · 31.10.2011, 01:34 **[ТС]**

Puporev, Да пробовал он рисовал линию
Спасибо так все понял

@Puporev · 31.10.2011, 08:20

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

Да пробовал он рисовал линию

Не сочиняй, там кружок зеленого цвета движется по диагонали на сером фоне.

Добавлено через 2 минуты
Может у тебя модули .tpl устаревшие и delay(1000) не равно 1 секунде. Тогда или скачай другой Турбо Паскаль или делай delay(1000) например.

@DIMA_N · 31.10.2011, 15:51 **[ТС]**

Да кружочек зеленый по серому
ставлю delay(1000) но что то не похоже что на секунду задерживает
он примерно за 4 секунды передвигает кружок на 600 пиксилей
Паскаль у меня 7,1 качал от сюда

@Puporev · 31.10.2011, 15:53

DIMA_N, Скачай отсюда 7.0 или хотя бы замени модули .tpl отсюда.
Скачать Паскаль

@DIMA_N · 31.10.2011, 16:09 **[ТС]**

Воо теперь все нормально
Спасибо!!

@I2um1 Злой няш 2136 / 1505 / 565 Регистрация: 05.04.2010 Сообщений: 2,881
	30.10.2011, 00:17	2
	Убрать все ClrScr, Crt и заменить TextBackGround(0) на SetBkColor(0) ? 0

@DIMA_N 2 / 2 / 1 Регистрация: 21.10.2011 Сообщений: 116
	30.10.2011, 00:22 [ТС]	3
	серый фон убран,но получается он рисует, а я хочю чтобы кружок этот двигался и как делать чтобы она работала на другом компе? как я понимаю прога обрашается к папке с паскалем где должен запустится модуль,но его не видит и выключается это сложно делать? 0

@DIMA_N 2 / 2 / 1 Регистрация: 21.10.2011 Сообщений: 116
	31.10.2011, 01:34 [ТС]	7
	Puporev, Да пробовал он рисовал линию Спасибо так все понял 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	31.10.2011, 08:20	8
	Сообщение от DIMA_N Да пробовал он рисовал линию Не сочиняй, там кружок зеленого цвета движется по диагонали на сером фоне. Добавлено через 2 минуты Может у тебя модули .tpl устаревшие и delay(1000) не равно 1 секунде. Тогда или скачай другой Турбо Паскаль или делай delay(1000) например. 0

@DIMA_N 2 / 2 / 1 Регистрация: 21.10.2011 Сообщений: 116
	31.10.2011, 15:51 [ТС]	9
	Да кружочек зеленый по серому ставлю delay(1000) но что то не похоже что на секунду задерживает он примерно за 4 секунды передвигает кружок на 600 пиксилей Паскаль у меня 7,1 качал от сюда 0

@Puporev Почетный модератор 64299 / 47594 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	31.10.2011, 15:53	10
	DIMA_N, Скачай отсюда 7.0 или хотя бы замени модули .tpl отсюда. Скачать Паскаль 1

@DIMA_N 2 / 2 / 1 Регистрация: 21.10.2011 Сообщений: 116
	31.10.2011, 16:09 [ТС]	11
	Воо теперь все нормально Спасибо!! 0

Опции темы