Destaque

Como devemos encarar nossa vida profissional Algumas pessoas me perguntam que tipo de trabalho elas poderiam fazer pra ganhar dinheiro, para estas pessoas sempre mostro este texto: "Não paute sua vida, nem sua carreira, pelo dinheiro. Ame seu ofício com todo o coração. Persiga fazer o melhor. Seja fascinado pelo realizar, que o dinheiro...

Read more

Como a realidade aumentada poderá mudar sua vida no... GPS mais desenvolvido, redes sociais revolucionárias e novas maneiras de fazer compras. Faça um passeio pela realidade aumentada e veja como esta tecnologia pode mudar a nossa vida nos próximos anos. Quando assistimos aos filmes de ficção com ambientação no futuro é comum vermos carros voadores,...

Read more

Delphi: Redimesionar form child em MDI Esta rotina redimensiona o formulário Child de uma aplicação MDI para preencher todo a área do form pai. procedure TForm1.SetBounds(ALeft, ATop, AWidth, AHeight: Integer); var MainForm: TForm; Rect: TRect; //OurWidth: Integer; //OurHeight: Integer; begin if Showing then begin MainForm :=...

Read more

ASP e SQL Server: Pegar o retorno do campo ID da tabela... Bom Pessoal, vamos idealizar Uma Rotina Muito Usada, tipo Uma Vendas de Produtos, existem Onde a Tabela de Vendas da EA tabela de itens das Vendas, EO Grande Problema É Como gravar nd tabela itens de Vendas Vendas o ID da tabela, tem aqui uma Solução sem gambiarras código Tabajara Nem. Rotina ESSA...

Read more

TurboPascal: Efeito Matrix

0

Postado em : 19-07-2009 | By : Paulo H Oliveira | In : TurboPascal
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.

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.

Leia completo