Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
dicas3d

[Resolvido] animações

Recommended Posts

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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Já resolvi o problema.

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

Compartilhar este post


Link para o post
Compartilhar em outros sites


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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.

Compartilhar este post


Link para o post
Compartilhar em outros sites
Visitante
Este tópico está impedido de receber novos posts.
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×