Öss Puanı Hesaplama Programı

+ Yorum Gönder
Webmaster ve Diğer Kodlama Dilleri Bölümünden Öss Puanı Hesaplama Programı ile ilgili Kısaca Bilgi
  1. 1
    aslan-67
    Üye
    Reklam

    Öss Puanı Hesaplama Programı

    Reklam



    Öss Puanı Hesaplama Programı

    Forum Alev
    Öss Puanı Hesaplama Programı
    Yeni Sınav Sistemine Göre



    Kod:
    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;
        Edit21: TEdit;
        Edit22: TEdit;
        Edit23: TEdit;
        Edit24: TEdit;
        Edit25: TEdit;
        Edit26: TEdit;
        Edit27: TEdit;
        Edit28: TEdit;
        Edit29: TEdit;
        Edit30: TEdit;
        Edit31: TEdit;
        Edit32: TEdit;
        Edit33: TEdit;
        Edit34: TEdit;
        Edit35: TEdit;
        Edit36: TEdit;
        Edit37: TEdit;
        Edit38: TEdit;
        Edit39: TEdit;
        Edit40: TEdit;
        Edit41: TEdit;
        Edit42: TEdit;
        Edit43: TEdit;
        Edit44: TEdit;
        Edit45: TEdit;
        Edit46: TEdit;
        Edit47: TEdit;
        Edit48: TEdit;
        Edit49: TEdit;
        Edit50: TEdit;
        Edit51: TEdit;
        Edit52: TEdit;
        Edit53: TEdit;
        Edit54: TEdit;
        Edit55: TEdit;
        Edit56: TEdit;
        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);
        procedure BitBtn8Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
      Dosya : TextFile;
      St    : String;
    implementation
    
    uses Math;
    
    {$R *.dfm}
    
    procedure TForm1.BitBtn1Click(Sender: TObject);
    begin
      Label14.Caption := Edit5.Text;
      Label15.Caption := Edit9.Text;
      Label16.Caption := Edit13.Text;
      Label17.Caption := Edit17.Text;
    
      PDesktop.Visible  := False;
      POss1.Visible     := True;
      POss2.Visible     := False;
      PKatsayi.Visible  := False;
    
      Edit57.SetFocus;
    end;
    
    procedure TForm1.BitBtn2Click(Sender: TObject);
    begin
      Label21.Caption   := Edit25.Text;
      Label22.Caption   := Edit29.Text;
      Label23.Caption   := Edit33.Text;
      Label24.Caption   := Edit37.Text;
      Label25.Caption   := Edit41.Text;
      Label26.Caption   := Edit45.Text;
      Label27.Caption   := Edit49.Text;
      Label28.Caption   := Edit53.Text;
    
      PDesktop.Visible  := False;
      POss1.Visible     := False;
      POss2.Visible     := True;
      PKatsayi.Visible  := False;
    
      Edit64.SetFocus;
    end;
    
    procedure TForm1.BitBtn3Click(Sender: TObject);
    begin
      PDesktop.Visible  := False;
      POss1.Visible     := False;
      POss2.Visible     := False;
      PKatsayi.Visible  := True;
    end;
    
    procedure TForm1.FormCreate(Sender: TObject);
    begin
      AssignFile(Dosya,'Oss.Txt');
      If FileExists('Oss.Txt')=False Then
      Begin
        Rewrite(Dosya);
        Writeln(Dosya,'Taban');
        Writeln(Dosya,'120,1244');
        Writeln(Dosya,'127,4312');
        Writeln(Dosya,'122,4567');
        Writeln(Dosya,'Türkçe');
        Writeln(Dosya,'2,7253');
        Writeln(Dosya,'0,7843');
        Writeln(Dosya,'2,1520');
        Writeln(Dosya,'Sosyal');
        Writeln(Dosya,'1,9077');
        Writeln(Dosya,'0,5230');
        Writeln(Dosya,'0,8070');
        Writeln(Dosya,'Matematik');
        Writeln(Dosya,'0,8177');
        Writeln(Dosya,'2,6147');
        Writeln(Dosya,'2,4210');
        Writeln(Dosya,'Fen');
        Writeln(Dosya,'0,540');
        Writeln(Dosya,'1,8303');
        Writeln(Dosya,'0,5380');
    
        Writeln(Dosya,'Taban');
        Writeln(Dosya,'120,1244');
        Writeln(Dosya,'127,4332');
        Writeln(Dosya,'122,4567');
        Writeln(Dosya,'Türkçe1');
        Writeln(Dosya,'1,3627');
        Writeln(Dosya,'0,7843');
        Writeln(Dosya,'1,0760');
        Writeln(Dosya,'Sosyal1');
        Writeln(Dosya,'0,9540');
        Writeln(Dosya,'0,5230');
        Writeln(Dosya,'0,8070');
        Writeln(Dosya,'Matematik');
        Writeln(Dosya,'0,8177');
        Writeln(Dosya,'1,3078');
        Writeln(Dosya,'1,2107');
        Writeln(Dosya,'Fen1');
        Writeln(Dosya,'0,5450');
        Writeln(Dosya,'0,9150');
        Writeln(Dosya,'0,5380');
        Writeln(Dosya,'Ede-Sos2');
        Writeln(Dosya,'1,3627');
        Writeln(Dosya,'0');
        Writeln(Dosya,'1,0760');
        Writeln(Dosya,'Sözel2');
        Writeln(Dosya,'0,9940');
        Writeln(Dosya,'0');
        Writeln(Dosya,'0');
        Writeln(Dosya,'Matematik2');
        Writeln(Dosya,'0');
        Writeln(Dosya,'1,3073');
        Writeln(Dosya,'0');
        Writeln(Dosya,'Fen2');
        Writeln(Dosya,'0');
        Writeln(Dosya,'0,9150');
        Writeln(Dosya,'0');
        CloseFile(Dosya);
      End;
      Reset(Dosya);
      Readln(Dosya,St);   Edit1.Text := St;
      Readln(Dosya,St);   Edit2.Text := St;
      Readln(Dosya,St);   Edit3.Text := St;
      Readln(Dosya,St);   Edit4.Text := St;
      Readln(Dosya,St);   Edit5.Text := St;
      Readln(Dosya,St);   Edit6.Text := St;
      Readln(Dosya,St);   Edit7.Text := St;
      Readln(Dosya,St);   Edit8.Text := St;
      Readln(Dosya,St);   Edit9.Text := St;
      Readln(Dosya,St);   Edit10.Text := St;
      Readln(Dosya,St);   Edit11.Text := St;
      Readln(Dosya,St);   Edit12.Text := St;
      Readln(Dosya,St);   Edit13.Text := St;
      Readln(Dosya,St);   Edit14.Text := St;
      Readln(Dosya,St);   Edit15.Text := St;
      Readln(Dosya,St);   Edit16.Text := St;
      Readln(Dosya,St);   Edit17.Text := St;
      Readln(Dosya,St);   Edit18.Text := St;
      Readln(Dosya,St);   Edit19.Text := St;
      Readln(Dosya,St);   Edit20.Text := St;
      Readln(Dosya,St);   Edit21.Text := St;
      Readln(Dosya,St);   Edit22.Text := St;
      Readln(Dosya,St);   Edit23.Text := St;
      Readln(Dosya,St);   Edit24.Text := St;
      Readln(Dosya,St);   Edit25.Text := St;
      Readln(Dosya,St);   Edit26.Text := St;
      Readln(Dosya,St);   Edit27.Text := St;
      Readln(Dosya,St);   Edit28.Text := St;
      Readln(Dosya,St);   Edit29.Text := St;
      Readln(Dosya,St);   Edit30.Text := St;
      Readln(Dosya,St);   Edit31.Text := St;
      Readln(Dosya,St);   Edit32.Text := St;
      Readln(Dosya,St);   Edit33.Text := St;
      Readln(Dosya,St);   Edit34.Text := St;
      Readln(Dosya,St);   Edit35.Text := St;
      Readln(Dosya,St);   Edit36.Text := St;
      Readln(Dosya,St);   Edit37.Text := St;
      Readln(Dosya,St);   Edit38.Text := St;
      Readln(Dosya,St);   Edit39.Text := St;
      Readln(Dosya,St);   Edit40.Text := St;
      Readln(Dosya,St);   Edit41.Text := St;
      Readln(Dosya,St);   Edit42.Text := St;
      Readln(Dosya,St);   Edit43.Text := St;
      Readln(Dosya,St);   Edit44.Text := St;
      Readln(Dosya,St);   Edit45.Text := St;
      Readln(Dosya,St);   Edit46.Text := St;
      Readln(Dosya,St);   Edit47.Text := St;
      Readln(Dosya,St);   Edit48.Text := St;
      Readln(Dosya,St);   Edit49.Text := St;
      Readln(Dosya,St);   Edit50.Text := St;
      Readln(Dosya,St);   Edit51.Text := St;
      Readln(Dosya,St);   Edit52.Text := St;
      Readln(Dosya,St);   Edit53.Text := St;
      Readln(Dosya,St);   Edit54.Text := St;
      Readln(Dosya,St);   Edit55.Text := St;
      Readln(Dosya,St);   Edit56.Text := St;
    
      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);
      Writeln(Dosya,Edit41.Text);
      Writeln(Dosya,Edit42.Text);
      Writeln(Dosya,Edit43.Text);
      Writeln(Dosya,Edit44.Text);
      Writeln(Dosya,Edit45.Text);
      Writeln(Dosya,Edit46.Text);
      Writeln(Dosya,Edit47.Text);
      Writeln(Dosya,Edit48.Text);
      Writeln(Dosya,Edit49.Text);
      Writeln(Dosya,Edit50.Text);
      Writeln(Dosya,Edit51.Text);
      Writeln(Dosya,Edit52.Text);
      Writeln(Dosya,Edit53.Text);
      Writeln(Dosya,Edit54.Text);
      Writeln(Dosya,Edit55.Text);
      Writeln(Dosya,Edit56.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';
    
      Edit72.Text := FloatToStr(StrToFloat(Edit22.Text) +
                                StrToFloat(Edit26.Text)*StrToFloat(Edit64.Text) +
                                StrToFloat(Edit30.Text)*StrToFloat(Edit65.Text) +
                                StrToFloat(Edit34.Text)*StrToFloat(Edit66.Text) +
                                StrToFloat(Edit38.Text)*StrToFloat(Edit67.Text) +
                                StrToFloat(Edit42.Text)*StrToFloat(Edit68.Text) +
                                StrToFloat(Edit46.Text)*StrToFloat(Edit69.Text) +
                                StrToFloat(Edit50.Text)*StrToFloat(Edit70.Text) +
                                StrToFloat(Edit54.Text)*StrToFloat(Edit71.Text));
    
      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
    ///////////////////////////////////




  2. 2
    Selim
    Üye

    --->: Öss Puanı Hesaplama Programı

    Reklam



    Arkadaşım konuya biraz açıklık getirirmisin,bu şekilde bişey anlaşılmaz.







  3. 3
    kader_yolcusu
    Yeni Üye
    ellerine sağlık güzel olmuş...







  4. 4
    asddsa_91
    Yeni Üye
    arkadaşım herşeye eline sağlık güzel olmuş demek insanlara zevk mi veriyor anlamadım.bir kontrol edin isterseniz.kodlar yanlış.bir kere hiçbirşey txt olarak kaydedilmez.ya htm yada html olarak ;)

  5. 5
    20apali20
    Yeni Üye
    güzel olmuş eline sağlik

+ Yorum Gönder
5 üzerinden | Toplam : 0 kişi