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
terça-feira, 9 de março de 2010
domingo, 7 de março de 2010
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:
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:
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
Assinar:
Postagens (Atom)