• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

CarlosLousada

Código do efeito Matrix

3 mensagens neste tópico

Aqui está mais um codigo feito por mim:

Program MATRIX;
Uses Crt;
Var
col,lin,ql,cont,aux:integer;
letra:char;
Begin
Clrscr;
Repeat
col:=1+Random(79);
lin:=1+Random(23);
ql:= Random(10);
for cont:= lin to lin+ql do
Begin
if cont<24 then
Begin
letra:= chr(Random(255));
for aux:=1 to 2 do
Begin
if aux= 1 Then
Textcolor(10)
else
Textcolor(2);
gotoxy(col,cont);
write(letra);
delay(50);
end;
end;
end;
until keypressed;
end.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

ta muito fixe o efeito....

ja experimentei no Free Pascal e funciona 100%....

fiquem bem

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora