Estimado djhairoflow, leo su post y quisiera si me lo permite indicarle algunos pequeños cambios que creo le serán de utilidad.
Código Delphi
[-]
procedure TForm1.Button2Click(Sender: TObject);
var
psuma, ssuma,tsuma,pmedia,smedia,tmedia,media1,media2,media3,media4,media5,media6,pp4,pp5,pp6,num1,num2,num 3,num4,num5,num6,num7
,num8,num9,num10,num11,num12,num13,num14,num15: integer;
function GetEvaluacion(value:Integer):string;
begin
if value < 3 then
Result := 'Muy deficiente'
else if( value <5) then
Result := 'Insuficiente'
else if value = 5 then
Result := 'Suficiente'
else if value = 6 then
Result := 'Bien'
else if (value < 9) then
Result := 'Notable'
else if value > 8 then
Result := 'Sobresaliente'
end;
begin
if(edit1.Text='') or (edit2.Text ='') or (edit3.Text='') or (edit4.Text ='') or (edit5.Text ='') or (edit6.Text ='') or (edit7.Text ='') or (edit8.Text ='') or (edit9.Text ='') or (edit10.Text='') or (edit11.Text ='') or (edit12.Text='') or (edit13.Text='') or (edit14.Text ='') or (edit15.Text ='') then
begin
showmessage ('Los datos no están completos o son incorrectos');
Exit; end
else
begin
num1 :=strtoint (edit1.Text);
num2 :=strtoint (edit2.Text);
num3 :=strtoint (edit3.Text);
num4 :=strtoint (edit4.Text);
num5 :=strtoint (edit5.Text);
num6 :=strtoint (edit6.Text);
num7 :=strtoint (edit7.Text);
num8 :=strtoint (edit8.Text);
num9 :=strtoint (edit9.Text);
num10 :=strtoint (edit10.Text);
num11 :=strtoint (edit11.Text);
num12 :=strtoint (edit12.Text);
num13 :=strtoint (edit13.Text);
num14 :=strtoint (edit14.Text);
num15 :=strtoint (edit15.Text);
psuma := num1 + num2 + num3 + num4 + num5;
Panel1.Caption := inttostr(psuma);
ssuma := num6 + num7 + num8 + num9 + num10;
panel2.Caption := inttostr (ssuma);
tsuma := num11 + num12 + num13 + num14 + num15;
panel3.Caption := inttostr(tsuma);
pmedia := (num1 + num2 + num3 + num4 + num5) div 5;
panel4.Caption := inttostr(pmedia);
smedia := (num6 + num7 + num8 + num9 + num10) div 5;
panel5.Caption := inttostr(smedia);
tmedia := (num11 + num12 + num13 + num14 + num15) div 5;
panel6.Caption := inttostr(tmedia);
media1 := (num1 + num6 + num11)div 3 ;
media2 := (num2 + num7 + num12)div 3 ;
media3 := (num3 + num8 + num13)div 3 ;
media4 := (num4 + num9 + num14)div 3 ;
media5 := (num5 + num10 + num15)div 3 ;
media6 := (pmedia + smedia + tmedia) div 3 ;
panel7.Caption :=GetEvaluacion(media1);
panel8.Caption :=GetEvaluacion(media2);
panel9.Caption :=GetEvaluacion(media3);
panel10.Caption:=GetEvaluacion(media4);
panel11.Caption:=GetEvaluacion(media5);
panel12.Caption:=GetEvaluacion(media6);
pb1.Position := media1 ;
pb2.Position := media2 ;
pb3.Position := media3 ;
pb4.Position := media4 ;
pb5.Position := media5 ;
pb6.Position := media6 ;
end;
end;
Saludos cordiales