ActiveDelphi

[jhoebarbosa]

Olá, eu tenho uma tabela no excel que faz calculos de persiana para mim, e eu resolvi passar esses calculos para um programa em delphi7, eu criei ele etc, mas como eu sou novato não tenho certeza que a logica está certa, voces podem dar uma olhada para ver se eu posso melhorar o codigo em algo?

entao eu to axando que vai ficar muito pesado caso eu queira inserir mais linhas de codigo depois...

unit Unit_ph25;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask;

type
TFRMPH25 = class(TForm)
ComboBox1: TComboBox;
btcalcular: TButton;
lbcolecao: TLabel;
lbalt: TLabel;
lblarg: TLabel;
lbvalor: TLabel;
edaltura: TMaskEdit;
edlargura: TMaskEdit;
edvalor: TEdit;
lbduasx: TLabel;
edduasx: TEdit;
Label1: TLabel;
procedure btcalcularClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure ComboBox1Select(Sender: TObject);
procedure ComboBox1Change(Sender: TObject);

private
{ Private declarations }
public
{ Public declarations }
end;

var
FRMPH25: TFRMPH25;
duasvezes,duasx2,lisasoftflex,lisalineflex,decorada,duplaface,texturizada,perfurada,imitacaomadeira
,semfurosaparentes,texturizadasemfurosaparentes,imitacaomadeirasemfurosaparentes,altura,largura,calc1,calc2:real;
implementation

{$R *.dfm}
procedure TFRMPH25.FormCreate(Sender: TObject);
begin
lisasoftflex:=72.35; //0
lisalineflex:=77.00; //1
decorada:=121.80; //2
duplaface:=95.35; //3
texturizada:=90.00; //4
perfurada:=109.15; //5
imitacaomadeira:=134.40;//6
semfurosaparentes:=95.00; //7
texturizadasemfurosaparentes:=106.90;//8
imitacaomadeirasemfurosaparentes:=160.00; //9

end;


procedure TFRMPH25.btcalcularClick(Sender: TObject);
begin
If edaltura.Text <= '1,19' then
begin
showmessage('Altura Mínima é de 1,20!')
end
else
If edlargura.Text <= '1,24'then
begin
showmessage('Largura Mínima é de 1,25!')
end
else
If ComboBox1.ItemIndex=0 then
Begin
altura:=StrToFloat(edaltura.Text);
largura:=StrToFloat(edlargura.Text);
calc2:=(largura*altura*lisasoftflex);
edvalor.text:=FloatToStr(calc2);
end
else
If ComboBox1.ItemIndex=1 then
Begin
altura:=StrToFloat(edaltura.Text);
largura:=StrToFloat(edlargura.Text);
calc2:=(largura*altura*lisalineflex);
edvalor.text:=FloatToStr(calc2);
end
else
If ComboBox1.ItemIndex=2 then
Begin
altura:=StrToFloat(edaltura.Text);
largura:=StrToFloat(edlargura.Text);
calc2:=(largura*altura*decorada);
edvalor.text:=FloatToStr(calc2);
end
else
If ComboBox1.ItemIndex=3 then
Begin
altura:=StrToFloat(edaltura.Text);
largura:=StrToFloat(edlargura.Text);
calc2:=(largura*altura*duplaface);
edvalor.text:=FloatToStr(calc2);
end
else
If ComboBox1.ItemIndex=4 then
Begin
altura:=StrToFloat(edaltura.Text);
largura:=StrToFloat(edlargura.Text);
calc2:=(largura*altura*texturizada);
edvalor.text:=FloatToStr(calc2);
end
else
If ComboBox1.ItemIndex=5 then
Begin
altura:=StrToFloat(edaltura.Text);
largura:=StrToFloat(edlargura.Text);
calc2:=(largura*altura*perfurada);
edvalor.text:=FloatToStr(calc2);
end
else
If ComboBox1.ItemIndex=6 then
Begin
altura:=StrToFloat(edaltura.Text);
largura:=StrToFloat(edlargura.Text);
calc2:=(largura*altura*imitacaomadeira);
edvalor.text:=FloatToStr(calc2);
end
else
If ComboBox1.ItemIndex=7 then
Begin
altura:=StrToFloat(edaltura.Text);
largura:=StrToFloat(edlargura.Text);
calc2:=(largura*altura*semfurosaparentes);
edvalor.text:=FloatToStr(calc2);
end
else
If ComboBox1.ItemIndex=8 then
Begin
altura:=StrToFloat(edaltura.Text);
largura:=StrToFloat(edlargura.Text);
calc2:=(largura*altura*texturizadasemfurosaparentes);
edvalor.text:=FloatToStr(calc2);
end
else
If ComboBox1.ItemIndex=9 then
Begin
altura:=StrToFloat(edaltura.Text);
largura:=StrToFloat(edlargura.Text);
calc2:=(largura*altura*imitacaomadeirasemfurosaparentes);
edvalor.text:=FloatToStr(calc2);
end;
begin

duasvezes:=StrToFloat(edvalor.Text);
duasx2:=(duasvezes/2);
edduasx.text:=FloatToStr(duasx2);

end;
end;

[cyberdisk]

se voce quer simplificar o código, pode ser assim

[jhoebarbosa]

eita, que diferença, hehe muito obrigado meu amigo...até mais