Código Delphi
[-]CASE Combobox1.ItemIndex OF
0,5: Begin
Qeq1:=500;
end;
1: Begin
Qeq1:=23;
end;
.
.
.
26: Begin
Qeq1:=1000;
end;
CASE Combobox2.ItemIndex OF
0,5: Begin
Qeq2:=500;
1: Begin
Qeq2:=23;
.
.
.
26: Begin
Qeq1:=1000;
end;
.
.
.
CASE Combobox13.ItemIndex OF
0,5: Begin
Qeq13:=500;
1: Begin
Qeq13:=23;
.
.
.
26: Begin
Qeq13:=1000;
end;
Qte:= Qe1*ne1+Qe2*ne2+...+Qe3*ne3;
(supongase q todas las variables están declaradas)
nex: numero de equipos "X"
Ven que sería demasiado largo!!