animações

dicas3d · 26 de maio de 2009

Eu alterei um código que estava num site para ele fazer uma animação, mas ele poralgum motivo não faz a animação que devia fazer.

Aqui vai o código:


Program Lesson8_Program1;
Uses Crt,Graph;

Var GraphicsDriver, GraphicsMode,
    ErrCode, a, b, c, d, f : Integer;
  {two var's are needed for initialisation}
   procedure anime;
   begin
   OutTextXY(25,80,'functions, later in this lesson :-)');


   Rectangle(b,c,d,f);
     a := a + 1;
     b := b + 1;
   c := c + 1;
   d := d + 1;
   f := f + 1;
   end;
Begin
 InitGraph(GraphicsDriver, GraphicsMode,'');

   Randomize;
   SetColor(Random(15) + 1); {Set text colour}
   {Output text at 20 pixels from the top of the screen,
    and 20 other from the left side of the screen.}
    a := 0;
        b := 30;
   c := 50;
   d := 25;
   f := 45;
      while a <> 20 do
   begin
     anime;
   end;
   readln;
 CloseGraph;
End.

Alguem me sabe dizer porque é que ele não se anima.

dicas3d · 26 de maio de 2009

Já resolvi o problema.

Daquia a bocado osto a solução. Já que não tenho tempo agora.

dicas3d · 26 de maio de 2009


Program Lesson8_Program1;
Uses Crt,Graph;

Var GraphicsDriver, GraphicsMode,
    ErrCode, a, b, c, d, f : Integer;
  {two var's are needed for initialisation}

Begin
 InitGraph(GraphicsDriver, GraphicsMode,'');

   Randomize;
   SetColor(Random(15) + 1); {Set text colour}
   {Output text at 20 pixels from the top of the screen,
    and 20 other from the left side of the screen.}
    a := 0;
        b := 30;
   c := 50;
   d := 25;
   f := 45;
      while a <> 1000 do
   begin
   cleardevice;
      OutTextXY(25,80,'functions, later in this lesson :-)');
   Rectangle(b,c,d,f);
     a := a + 1;
     b := b + 4;
   c := c + 4;
   d := d + 4;
   f := f + 4;
   end;
   readln;
 CloseGraph;
End.

A explicação é a segunite:

Para que uma imagem fique animada é preciso fazer-se várias imagens com poucas variações a cada segundo dependendo do tipo de movimento(filme, jogo, tv etc).

Ora ai é que está o problema. A varição era muito pequena para o tempo.