IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Объекты. Движение.
Анна
сообщение 10.04.2006 17:50
Сообщение #1


Бывалая
***

Группа: Пользователи
Сообщений: 290
Пол: Женский
Реальное имя: Анютка

Репутация: -  7  + 

 uses crt, graph;

type

   TBall = object

     public

     procedure Show(posX, posY, radius, color, q1, w1, e1, t1, clr : word);
     procedure Hide;

     public

     x, y, r, c : word;
     q, w, e, t, m : word;

   end;


procedure TBall.Show(posX, posY, radius, color, q1, w1, e1, t1, clr : word);
begin
   x := posX;
   y := posY;
   r := radius;
   c := color;
   q := q1;
   w := w1;
   e := e1;
   t := t1;
   m := clr;

   SetColor (m);
   Rectangle (q,w,e,t);
   SetColor©;
   Circle(x, y, r);
end;

procedure TBall.Hide;
begin
   SetColor(black);
   Circle(x, y, r);
   SetColor(black);
   Rectangle (q,w,e,t);

end;

var
   gd, gm : integer;
   key: char;
   dx0, dx1,dx2: integer;

   ball, ball1 : TBall;
begin
   clrscr;
   gd := detect;
   InitGraph(gd, gm, '');

   ball.Show(150,150,40, White, 100,100,200,200, white);;
   readln;
   ball.Hide;

   readln;
   ball.Show(180,180,30, RED, 140,140,220,220, GREEN);;
{   readln;
   ball.Hide;}

    dx0 := 150;
    dx1 := 100;
    dx2 := 200;

    repeat
    key := readkey;
    case key of

     'w' : begin
           ball.hide;
           dx0:= dx0+10; dx1:=dx1+10; dx2:=dx2+10;
           ball.show (dx0,150, 40, white, dx1,100,dx2,200,white);
           readln;
           end;

     'e' : begin
           ball.hide;
           ball.Show(182,180,30, RED, 142,140,222,220, GREEN);
           readln;
           end;

     end;

 until  key <> 'q';

end.


Не могу сообразить как сделать движение вот в этом куске

case key of

     'w' : begin
           ball.hide;
           dx0:= dx0+10; dx1:=dx1+10; dx2:=dx2+10;
           ball.show (dx0,150, 40, white, dx1,100,dx2,200,white);
           readln;
           end;


При нажатии клавиши "w" квадрат с кругом внутри должен перемещаться по оси X
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
  Ответить  Открыть новую тему 
Ответов
Анна
сообщение 12.04.2006 14:50
Сообщение #2


Бывалая
***

Группа: Пользователи
Сообщений: 290
Пол: Женский
Реальное имя: Анютка

Репутация: -  7  +

Сдала сегодня программу ... вот исходник, может кому пригодится ...

 {$R+}
uses crt, graph;

type

   TBall = object

     public

     procedure Show(posX, posY, radius, color, q1, w1, e1, t1, clr : word);
     procedure Hide;

     public

     x, y, r, c : word;
     q, w, e, t, m : word;

   end;


procedure TBall.Show(posX, posY, radius, color, q1, w1, e1, t1, clr : word);
begin
   x := posX;
   y := posY;
   r := radius;
   c := color;
   q := q1;
   w := w1;
   e := e1;
   t := t1;
   m := clr;

   SetColor (m);
   Rectangle (q,w,e,t);
   SetColor©;
   Circle(x, y, r);
end;

procedure TBall.Hide;
begin
   SetColor(black);
   Circle(x, y, r);
   SetColor(black);
   Rectangle (q,w,e,t);

end;

var
   gd, gm : integer;
   key: char;
   dx0, dx1, dx2, dx00, dx11, dx22 : integer;

   ball, ball1 : TBall;
begin
   clrscr;
   gd := detect;
   InitGraph(gd, gm, '');

   ball.Show(150,150,40, White, 100,100,200,200, white);;
   readln;
   ball.Hide;

   readln;
   ball.Show(180,180,30, RED, 140,140,220,220, GREEN);
   readln;
   ball.Hide;

    dx0 := 150; dx1 := 100; dx2 := 200;
    dx00 := 180; dx11 := 140; dx22 := 220;

    repeat
    key := readkey;
    case key of

     'w' : begin
           ball.hide;
           dx0:= dx0+1; dx1:=dx1+1; dx2:=dx2+1;
           ball.show (dx0,150, 40, white, dx1,100,dx2,200,white);
           end;

     'e' : begin
           ball.hide;
           dx0:= dx0-1; dx1:=dx1-1; dx2:=dx2-1;
           ball.show (dx0,150, 40, white, dx1,100,dx2,200,white);
           end;

     's' : begin
           ball.hide;
           dx00:= dx00+1; dx11:=dx11+1; dx22:=dx22+1;
           ball.Show(dx00,180,30, RED, dx11,140,dx22,220, GREEN);
           end;

     'd' : begin
           ball.hide;
           dx00:= dx00-1; dx11:=dx11-1; dx22:=dx22-1;
           ball.Show(dx00,180,30, RED, dx11,140,dx22,220, GREEN);
           end;
     end;

 until  key = #27;

end.



ps Небольшой вопрос: как забиндить движение объекта на стрелки (т.е. использовать стрелки вместо w,e,s,d) ?
Какой код у них? blink.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Анна   Объекты. Движение.   10.04.2006 17:50
volvo   Не могу сообразить как сделать движение вот в это...   10.04.2006 23:43
Анна   Сдала сегодня программу ... вот исходник, может ко...   12.04.2006 14:50
arhimag   lКоды: #0 и лево: #75 право: #77 вверх: #72 вниз:...   12.04.2006 16:37
klem4   arhimag, а если бы тебе так объяснили ты бы понял ...   12.04.2006 21:45

« Предыдущая тема · Задачи · Следующая тема »
 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

Режим отображения: Переключить на: Стандартный · Переключить на: Линейный · Древовидный

Подписка на тему · Сообщить другу · Версия для печати · Подписка на этот форум

- Текстовая версия 26.10.2025 11:36
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"