Передвижение красного кружочка стрелками в графике. В чем ошибка?

[Serge_Bliznykov]

Сообщение от Мики6277

Подскажите как мне сделать лучше зарисовать кружочек цветом фона и нарисовать новый или есть лучший способ?

зарисовать кружочек цветом фона и нарисовать новый.

[Мики6277]

. Цитата:

circle(lx+20,ly+20);

Вот тут Вы указали только координаты X и Y, забыв о радиусе

Я добавила в первом коде координаты радиуса, кружочек нарисовался, но не передвигался.

[Poma][a]

uses graph,crt;
var u,ou:pointer; ch: char; curx, cury, curx0, cury0, dx, dy, lx, ly, hx, hy: integer;
    size: word;
procedure dv(dx, dy: integer);
  begin


setcolor(0);
setfillstyle(1,0);
circle(lx,ly,20);
floodfill( lx,ly, 0);

  lx:=lx+dx;
  ly:=ly+dy;

  setcolor(4);
  setfillstyle(1,4);
  circle(lx,ly,20);
  floodfill( lx,ly, 4);
  end;
procedure graphinterface;
var gd, gm, error: integer;
begin
gd:=detect;
initgraph( gd, gm, '');
error:=graphresult;
if error<>grok then
    begin
   writeln(grapherrormsg(error));
   halt(error)
    end
    end;

begin
graphinterface;

lx:=100;
ly:=100;


setcolor(4);
setfillstyle(1,4);
circle(lx,ly,20);
floodfill( lx,ly, 4);

repeat
 ch:=readkey;
 if ch=#0 then
     begin
     ch:=readkey;

     case ch of
     #77:dv(5, 0); // вправо


     #75:dv( -5, 0); // влево

     #72:dv(0, -5); // вверх

     #80:dv(0, 5); // вниз

     end;

     end;

    until ch=#27;


readln;
closegraph;
end.

[Мики6277]

Спасибо большое. Я сделала так как вы написали, но прогграмма все равно не работает. Вернее, все каки раньше. Кружочек появился, а при нажатии кнопок ничего не происходит. Подскажите, что еще можно сделать. Какие есть еще способы заставить объект двигаться, при помощи клавиатуры?

[Poma][a]

Спасибо большое. Я сделала так как вы написали, но прогграмма все равно не работает. Вернее, все каки раньше. Кружочек появился, а при нажатии кнопок ничего не происходит. Подскажите, что еще можно сделать. Какие есть еще способы заставить объект двигаться, при помощи клавиатуры?

Мне кажется Вы не до конца разобрались с графикой в Free. После того как Вы запустили программу, у Вас откроется 2 окна, в одном будет картинка, в другое окошечко, Вы будете нажимать кнопочки.

[puporev]

Замени это

uses graph,wincrt;

[Мики6277]

Ага. Значит кнопочки надо нажимать в консольном окне.( я дура) Спасибо, он пошел. А во Free можно сделать это как-то красивее, ну чтобы всё в одном окне и как или нет?

[Golden_RUS]

При использовании CRT,будет создано 2 окна,в 1 окну будет непосредственно графика,а кликать по кнопкам надо во втором окне(обязательно оно должнобыть в этот момент по верх всех окон).

[Вадим Мошев]

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

При использовании CRT,будет создано 2 окна,в 1 окну будет непосредственно графика,а кликать по кнопкам надо во втором окне(обязательно оно должнобыть в этот момент по верх всех окон).

Иными словами, фокус должен быть на консольном окне, то есть, оно должно быть активно

[Poma][a]

А во Free можно сделать это как-то красивее, ну чтобы всё в одном окне и как или нет?

Можно. Для этого в uses пишем не Crt, а WinCrt.