quarta-feira, 31 de março de 2010

Conto de Fadas do Século 21



Era uma vez, numa terra muito distante, uma linda princesa, independente e cheia de auto-estima que, enquanto contemplava a natureza e pensava em como o maravilhoso lago do seu castelo estava de acordo com as conformidades ecológicas, se deparou com uma rã. 
Então, a rã pulou para o seu colo e disse: Linda princesa, eu já fui um príncipe muito bonito. Mas, uma bruxa má lançou-me um encanto e eu transformei-me nesta rã asquerosa. Um beijo teu, no entanto, há de me transformar de novo num belo príncipe e poderemos casar e constituir um lar feliz no teu lindo castelo. A minha mãe poderia vir morar conosco e tu poderias preparar o meu jantar, lavarias as minhas roupas, criarias os nossos filhos e viveríamos felizes para sempre... 
> E então, naquela noite, enquanto saboreava pernas de rã à sautée, acompanhadas de um cremoso molho acebolado e de um finíssimo vinho branco, a princesa sorria e pensava: 



> 'Nem fo..den..do!'. 

>  

> (Luís Fernando Veríssimo) 



fonte: http://blogs.abril.com.br/humanopossivel/2008/11/conto-fadas-sec-21.html

domingo, 28 de março de 2010

segunda-feira, 22 de março de 2010

Aquele que tem a resposta e não a compreende é como aquele que nunca teve a resposta.

terça-feira, 9 de março de 2010

domingo, 7 de março de 2010

Workstations

Just look:

 
  
  
  
 

sexta-feira, 5 de março de 2010

Cálculo de porcentagem

Estava bastante tempo sem programar nada e hoje a noite resolvi criar um programa simples para cálculo de porcentagem de um determinado valor.

Desenvolvi o primeiro teste em Delphi:

function Percent(ValorTotal, Porcentagem: single): Single;
begin

Result := (ValorTotal * Porcentagem) / 100;

end;

procedure TForm1.Button1Click(Sender: TObject);
var
  valortotal,
  porcentagem: Single;
  resultado: string;
begin
//------------------------------------------------------------------------------

valortotal := StrToFloat(edit1.Text);
porcentagem := StrToFloat(edit2.Text);  //70%

//direto sem usar funcao
//resultado := FloatToStr(((valortotal * porcentagem) / 100));

resultado := FloatToStr(Percent(valortotal, porcentagem));

ShowMessage('Total do valor recebido: ' + resultado + '%');

Edit3.Text := resultado;
  
//------------------------------------------------------------------------------  
end;

depois resolvi criar uma versão php:


OBS: O blogspot nao deixou postar o código PHP!!!

Link para o demo:

terça-feira, 2 de março de 2010

Celldweller - Switchback

Desde algum tempo eu queria postar sobre algo relacionado a música em meu blog, mas não tinha postado até então, até que tive a idéia de postar sobre Cellweller.

A Banda Celldweller mistura uma levada de música eletrônica, Drum and bass e techno, com nu metal e elementos orquestrais, que enredam o sintético e o orgânico, escuridão com beleza, em uma mistura aderente, combinando múltiplos gêneros de rock progressivo.

Video no Youtube:

segunda-feira, 1 de março de 2010

Teste em 3D

Olhem meu teste em 3D: