[Delphi]Criando um conversor de medidas

[mgbcrazy 0]

Bom galera, eu tive uma ideia aqui de como criar um simples conversor de medidas '-'

Sim, eu sei q eh noob, mas deve servir pra alguem...

 

Adicione:

2 Buttons

6 Edits

8 Labels

 

Organize o formulário da seguinte forma:

 

 

Adicione nas Variaveis Globais

cm,km,jd,inc,ft : real; // cm=centimetro,km=quilometro,jd=jarda,inc=polegadas,ft=pés

 

 

De 2 Clicks no Butao Converter e Adicione

 

cm := 100;

cm := 100;

km := 1000;

jd := 0.91;

inc := 0.0254;

ft := 0.304;

 

Edit2.Text := floattostr(strtofloat(edit1.Text)/jd);

Edit3.Text := floattostr(strtofloat(edit1.Text)/inc);

Edit4.Text := floattostr(strtofloat(edit1.Text)/ft);

Edit5.Text := floattostr(strtofloat(edit1.Text)*cm);

Edit6.Text := floattostr(strtofloat(edit1.Text)/km);

 

De 2 Clicks no Botao Limpar e Adicione

Edit1.Clear;

Edit2.Clear;

Edit3.Clear;

Edit4.Clear;

Edit5.Clear;

Edit6.Clear;

Edit1.SetFocus;

 

Eh como uma calculadora, transforma de float(precisão de 7 casas decimais.) para string oO

 

Galera Quem tiver problemas ta Aqui a Source http://www.webcheats.com.br/forum/delphi-vb/443772-source-conversor-de-medidas.html#post2083986

 

Creditos Originais: Henrrique

Creditos por Correção do Codigo : mgbcrazy

[DarkSj 0]

vlw mgbcrazy era isso mesmo qe eu tava precisando !

 

edit~

 

aqi apareceu mil metros 10 centimetros...

[mgbcrazy 0]

bom cara tem certeza que vc nao alterou nenhum codigo de posição ?

 

sei la aki ele ta certinho

 

se vc olha ali creditos por correção do cod eu eh pq o cod tava todo embaralhado ai eu deixei na ordem :x

[DarkSj 0]

juro por deus qe n mudei nada de códigos, só fiz como estava alii

mas deixa qeto, ja tirei minha duvida...

[JoaoZiicka~ 0]

Ja fiz aqui e ta salvo, valeu por compartilhar, abraços.

[bidoow 0]

aqi apareceu mil metros 10 centimetros...

 

aqui também :x , tá errado essas contas ai =s

[mgbcrazy 0]

aoheoahe vo postar a source pra vcs verem ta igualzin :X

( eu acho )

 

Bom galera ta ai foi adicionada o link da source pra quem teve problema :x