unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Buttons, XPMan, ExtCtrls;

type
  TForm1 = class(TForm)
    PMenu: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    XPManifest1: TXPManifest;
    POss1: TPanel;
    POss2: TPanel;
    PKatsayi: TPanel;
    Label3: TLabel;
    PDesktop: TPanel;
    BitBtn4: TBitBtn;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Edit9: TEdit;
    Edit10: TEdit;
    Edit11: TEdit;
    Edit12: TEdit;
    Edit13: TEdit;
    Edit14: TEdit;
    Edit15: TEdit;
    Edit16: TEdit;
    Edit17: TEdit;
    Edit18: TEdit;
    Edit19: TEdit;
    Edit20: TEdit;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
     BitBtn5: TBitBtn;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Edit57: TEdit;
    Edit58: TEdit;
    Edit59: TEdit;
    Label17: TLabel;
    Edit60: TEdit;
    Label18: TLabel;
    Label19: TLabel;
    Label20: TLabel;
    Edit61: TEdit;
    Edit62: TEdit;
    Edit63: TEdit;
    BitBtn6: TBitBtn;
    Label1: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Edit64: TEdit;
    Edit65: TEdit;
    Edit66: TEdit;
    Edit67: TEdit;
    Edit68: TEdit;
    Edit69: TEdit;
    Edit70: TEdit;
    Edit71: TEdit;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Edit72: TEdit;
    Edit73: TEdit;
    Edit74: TEdit;
    BitBtn7: TBitBtn;
    BitBtn8: TBitBtn;
    Label4: TLabel;
    Label32: TLabel;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
 CloseFile(Dosya);
end;

 
  CloseFile(Dosya);
end;

procedure TForm1.BitBtn5Click(Sender: TObject);
begin
  Rewrite(Dosya);
  Writeln(Dosya,Edit1.Text);
  Writeln(Dosya,Edit2.Text);
  Writeln(Dosya,Edit3.Text);
  Writeln(Dosya,Edit4.Text);
  Writeln(Dosya,Edit5.Text);
  Writeln(Dosya,Edit6.Text);
  Writeln(Dosya,Edit7.Text);
  Writeln(Dosya,Edit8.Text);
  Writeln(Dosya,Edit9.Text);
  Writeln(Dosya,Edit10.Text);
  Writeln(Dosya,Edit11.Text);
  Writeln(Dosya,Edit12.Text);
  Writeln(Dosya,Edit13.Text);
  Writeln(Dosya,Edit14.Text);
  Writeln(Dosya,Edit15.Text);
  Writeln(Dosya,Edit16.Text);
  Writeln(Dosya,Edit17.Text);
  Writeln(Dosya,Edit18.Text);
  Writeln(Dosya,Edit19.Text);
  Writeln(Dosya,Edit20.Text);
  Writeln(Dosya,Edit21.Text);
  Writeln(Dosya,Edit22.Text);
  Writeln(Dosya,Edit23.Text);
  Writeln(Dosya,Edit24.Text);
  Writeln(Dosya,Edit25.Text);
  Writeln(Dosya,Edit26.Text);
  Writeln(Dosya,Edit27.Text);
  Writeln(Dosya,Edit28.Text);
  Writeln(Dosya,Edit29.Text);
  Writeln(Dosya,Edit30.Text);
  Writeln(Dosya,Edit31.Text);
  Writeln(Dosya,Edit32.Text);
  Writeln(Dosya,Edit33.Text);
  Writeln(Dosya,Edit34.Text);
  Writeln(Dosya,Edit35.Text);
  Writeln(Dosya,Edit36.Text);
  Writeln(Dosya,Edit37.Text);
  Writeln(Dosya,Edit38.Text);
  Writeln(Dosya,Edit39.Text);
  Writeln(Dosya,Edit40.Text);


  CloseFile(Dosya);
  Application.MessageBox('Değişiklikler Kaydedildi','Öss Hesapla',64);
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
  Halt;
end;


procedure TForm1.BitBtn6Click(Sender: TObject);
begin
  If Edit57.Text=" Then Edit57.Text:='0';
  If Edit58.Text=" Then Edit58.Text:='0';
  If Edit59.Text=" Then Edit59.Text:='0';
  If Edit60.Text=" Then Edit60.Text:='0';
  Edit61.Text := FloatToStr(StrToFloat(Edit2.Text) +
                            StrToFloat(Edit57.Text)*StrToFloat(Edit6.Text)  +
                            StrToFloat(Edit58.Text)*StrToFloat(Edit10.Text) +
                            StrToFloat(Edit59.Text)*StrToFloat(Edit14.Text) +
                            StrToFloat(Edit60.Text)*StrToFloat(Edit18.Text));

  Edit62.Text := FloatToStr(StrToFloat(Edit3.Text) +
                            StrToFloat(Edit57.Text)*StrToFloat(Edit7.Text)  +
                            StrToFloat(Edit58.Text)*StrToFloat(Edit11.Text) +
                            StrToFloat(Edit59.Text)*StrToFloat(Edit15.Text) +
                            StrToFloat(Edit60.Text)*StrToFloat(Edit19.Text));

  Edit63.Text := FloatToStr(StrToFloat(Edit4.Text) +
                            StrToFloat(Edit57.Text)*StrToFloat(Edit8.Text)  +
                            StrToFloat(Edit58.Text)*StrToFloat(Edit12.Text) +
                            StrToFloat(Edit59.Text)*StrToFloat(Edit16.Text) +
                            StrToFloat(Edit60.Text)*StrToFloat(Edit20.Text));
end;

procedure TForm1.BitBtn7Click(Sender: TObject);
begin
  If Edit64.Text=" Then Edit64.Text:='0';
  If Edit65.Text=" Then Edit65.Text:='0';
  If Edit66.Text=" Then Edit66.Text:='0';
  If Edit67.Text=" Then Edit67.Text:='0';
  If Edit68.Text=" Then Edit68.Text:='0';
  If Edit69.Text=" Then Edit69.Text:='0';
  If Edit70.Text=" Then Edit70.Text:='0';
  If Edit71.Text=" Then Edit71.Text:='0';

  Edit73.Text := FloatToStr(StrToFloat(Edit23.Text) +
                            StrToFloat(Edit27.Text)*StrToFloat(Edit64.Text) +
                            StrToFloat(Edit31.Text)*StrToFloat(Edit65.Text) +
                            StrToFloat(Edit35.Text)*StrToFloat(Edit66.Text) +
                            StrToFloat(Edit39.Text)*StrToFloat(Edit67.Text) +
                            StrToFloat(Edit43.Text)*StrToFloat(Edit68.Text) +
                            StrToFloat(Edit47.Text)*StrToFloat(Edit69.Text) +
                            StrToFloat(Edit51.Text)*StrToFloat(Edit70.Text) +
                            StrToFloat(Edit55.Text)*StrToFloat(Edit71.Text));

  Edit74.Text := FloatToStr(StrToFloat(Edit24.Text) +
                            StrToFloat(Edit28.Text)*StrToFloat(Edit64.Text)  +
                            StrToFloat(Edit32.Text)*StrToFloat(Edit65.Text) +
                            StrToFloat(Edit36.Text)*StrToFloat(Edit66.Text) +
                            StrToFloat(Edit40.Text)*StrToFloat(Edit67.Text) +
                            StrToFloat(Edit44.Text)*StrToFloat(Edit68.Text) +
                            StrToFloat(Edit48.Text)*StrToFloat(Edit69.Text) +
                            StrToFloat(Edit52.Text)*StrToFloat(Edit70.Text) +
                            StrToFloat(Edit56.Text)*StrToFloat(Edit71.Text));
end;

procedure TForm1.BitBtn8Click(Sender: TObject);
begin
    Edit1.Text:='Taban';
    Edit2.Text:='120,1244';
    Edit3.Text:='127,4312';
    Edit4.Text:='122,4567';
    Edit5.Text:='Türkçe';
    Edit6.Text:='2,7253';
    Edit7.Text:='0,7843';
    Edit8.Text:='2,1520';
    Edit9.Text:='Sosyal';
    Edit10.Text:='1,9077';
    Edit11.Text:='0,5230';
    Edit12.Text:='0,8070';
    Edit13.Text:='Matematik';
    Edit14.Text:='0,8177';
    Edit15.Text:='2,6147';
    Edit16.Text:='2,4210';
    Edit17.Text:='Fen';
    Edit18.Text:='0,540';
    Edit19.Text:='1,8303';
    Edit20.Text:='0,5380';

    Edit21.Text:='Taban';
    Edit22.Text:='120,1244';
    Edit23.Text:='127,4332';
    Edit24.Text:='122,4567';
    Edit25.Text:='Türkçe1';
    Edit26.Text:='1,3627';
    Edit27.Text:='0,7843';
    Edit28.Text:='1,0760';
    Edit29.Text:='Sosyal1';
    Edit30.Text:='0,9540';
    Edit31.Text:='0,5230';
    Edit32.Text:='0,8070';
    Edit33.Text:='Matematik';
    Edit34.Text:='0,8177';
    Edit35.Text:='1,3078';
    Edit36.Text:='1,2107';
    Edit37.Text:='Fen1';
    Edit38.Text:='0,5450';
    Edit39.Text:='0,9150';
    Edit40.Text:='0,5380';
    Edit41.Text:='Ede-Sos2';
    Edit42.Text:='1,3627';
    Edit43.Text:='0';
    Edit44.Text:='1,0760';
    Edit45.Text:='Sözel2';
    Edit46.Text:='0,9940';
    Edit47.Text:='0';
    Edit48.Text:='0';
    Edit49.Text:='Matematik2';
    Edit50.Text:='0';
    Edit51.Text:='1,3073';
    Edit52.Text:='0';
    Edit53.Text:='Fen2';
    Edit54.Text:='0';
    Edit55.Text:='0,9150';
    Edit56.Text:='0';

end;

end.

//Bu Bölümü (Taban ile başlayan) Programı kaydettiğiniz klasöre Oss.txt adıyla kaydedin.
/////////////////////////////////////
Taban
120,1244
127,4312
122,4567
Türkçe
2,7253
0,7843
2,1520
Sosyal
1,9077
0,5230
0,8070
Matematik
0,8177
2,6147
2,4210
Fen
0,540
1,8303
0,5380
Taban
120,1244
127,4332
122,4567
Türkçe1
1,3627
0,7843
1,0760
Sosyal1
0,9540
0,5230
0,8070
Matematik
0,8177
1,3078
1,2107
Fen1
0,5450
0,9150
0,5380
Ede-Sos2
1,3627
0
1,0760
Sözel2
0,9940
0
0
Matematik2
0
1,3073
0
Fen2
0
0,9150
0
///////////////////////////////////