Projeto que transforma mm p/ polegada e vice-versa

Delphi

27/06/2003

Alguem tem um Projeto que transforma milimetro em polegada e vice-versa.

Grato
Juarezber@terra.com.br


Juarezber

Juarezber

Curtidas 0

Melhor post

Fred

Fred

27/06/2003

porque voce mesmo nao faz um. basta saber quantos milimetros equivale a uma polegada e dividir, mais simples que isto nao existe. 8)


GOSTEI 1

Mais Respostas

Juarezber

Juarezber

27/06/2003

Fred, pela tua resposta, não entendes nada de
medidas. Mas obrigado por responder.

Juarezber@terra.com.br


GOSTEI 0
Cgi_net

Cgi_net

27/06/2003

Bom pra facilitar o que ele falou...

Ja q 1 polegada tem 2.54 centimentros

quero saber quantos centimetros tem 50 polegadas...
50 x 2,54 = 127cm

ex.
function convPol(pol : real): string;
begin
result := FloatToStr(pol * 2.54);
end;

Bom,... abraços :)


GOSTEI 1
Cgi_net

Cgi_net

27/06/2003

Ops era mm não cm bom ai eh so converter centimetro em mm...

Desculpe a gafe :wink:


GOSTEI 0
4_olho

4_olho

27/06/2003

Caro Juarez,

Com a sua resposta você DESANIMA qualquer um a responder às suas perguntas.

Uma dica - se você não sabe resolver algo no papel, nem adianta usar um computador de mais de mil dólares para fazer por você.

O COMPUTADOR FAZ O QUE VOCÊ MANDA, NÃO O QUE VOCÊ QUER.


GOSTEI 0
Juarezber

Juarezber

27/06/2003

cgi_net, no papel eu sei. ex:
1´ = 25.4
1/2´= 12,7
3,175=1/8´

Se eu digitar 1/128´ de polegada em um edit, tera que retornar 0,1984375 mm.
Se eu digitar 0,1984375 de mm, tera que retornar 1/128´ de polegada.
Sem contar com polegada inteira e/ou fracionada. Dei aquela resposta
por causa da resposta que recebi. Eu deveria dizer, fica melhor quem entende de metrologia, me ajudar. (Não quis ofender).

Abraços
Juarezber@terra.com.br


GOSTEI 0
Aroldo Zanela

Aroldo Zanela

27/06/2003

Juarez,

Aqui (http://www.sportnautica.com.br/unidades.htm) diz que 1´ (Uma polegada ) é igual a 25.401 mm

Meio caminho:

procedure TForm1.Button1Click(Sender: TObject);
Const nPolegada = 25.401;
varnBarra, nInt, nAvos: Integer;
begin
nBarra := pos(´/´,Edit1.Text);
  if nBarra > 0 then
begin
nInt := StrToInt(Copy(Edit1.Text,1,nBarra-1));
    nAvos := StrToInt(Copy(Edit1.Text,nBarra+1,Length(Edit1.Text)-nBarra));
    ShowMessage(FloatToStr((nInt*nPolegada)/nAvos));
end else
  begin
nInt := StrToInt(Edit1.Text);
    ShowMessage(FloatToStr(nInt*nPolegada));
  end;
end;



GOSTEI 0
Juarezber

Juarezber

27/06/2003

Aroldo Zanela, 0brigado e parabens, ficou bom polegada para mm.
Tens mm para polegada?

Abraços
juarezber@terra.com.br


GOSTEI 0
4_olho

4_olho

27/06/2003

Juarez

Quem lhe deve desculpas sou eu.

:oops: Fui precipitado ! :oops:

Vamos ver se posso ajudá-lo a a fazer a transformação inversa. A solução não está aqui, mas somente um meio de tentar resolvê-la.

Parece que as polegadas ´fracionárias´ são divididas em potência de 2, certo ? É algo como 1/2´, 1/4´, 1/8´. 1/16´, 1/32´, etc.. então podemos criar uma tabelinha que faça a correspondência entre o fracionário e o decimal.

1/2´ = 0,5´
1/4´ = 0,25´
1/8´ = 0,125´
etc ...

então para transformar mm para polegadas em forma fracionária é preciso 2 passos : um é calcular o valor inteiro da divisão de mm para pol

exemplo : 3,17 cm = 2,54 cm + alguma coisa = 1 pol mais alguma coisa certo ?

o outro passo é transformar o resto decimal em fracionário, que é o que vou tentar fazer.

Escreva para 4_olho@terra.com.br que lhe dou uma resposta mais concreta. Como disse, eu preciso primeiro acertar no papel, para depois colocar como código....


GOSTEI 0
Juarezber

Juarezber

27/06/2003

Aroldo Zanela, tentei no teu programa fazer, mesclar
polegada x mm inteira + fracionada nao consegui.
tentei mudar o programa mas !!!
ex: 1 1/2´ = uma polegada e meia = 38,101.

Abraços
juarezber@terra.com.br


GOSTEI 0
Q

Q

27/06/2003

Não se divide, se multiplica!
Estou na sala agora, segui seus conselhos e deu errado, vou te denunciar por respostas erradas
GOSTEI 0
POSTAR