Ujian Final

unit Unit1;

interface

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;

type

  TForm1 = class(TForm)

    Label1: TLabel;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Label5: TLabel;

    Label6: TLabel;

    Label7: TLabel;

    EdNim: TEdit;

    EdNama: TEdit;

    EdTugas: TEdit;

    EdMid: TEdit;

    EdUas: TEdit;

    EdAkhir: TEdit;

    EdHuruf: TEdit;

    Button1: TButton;

    Button2: TButton;

    Button3: TButton;

    Label8: TLabel;

    EdAbsen: TEdit;

    procedure FormCreate(Sender: TObject);

    procedure Button2Click(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure EdTugasChange(Sender: TObject);

    procedure EdMidChange(Sender: TObject);

    procedure EdUasChange(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure EdAbsenChange(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;

var

  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin

EdNim.Enabled:=false;

EdNama.Enabled:=false;

EdAbsen.Enabled:=false;

EdTugas.Enabled:=false;

EdMid.Enabled:=false;

EdUas.Enabled:=false;

EdAkhir.Enabled:=false;

EdHuruf.Enabled:=false;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

EdNim.Enabled:=true;

EdNama.Enabled:=true;

EdAbsen.Enabled:=true;

EdTugas.Enabled:=true;

EdMid.Enabled:=true;

EdUas.Enabled:=true;

EdNim.Text:='';

EdNama.Text:='';

EdTugas.Text:='';

EdMid.Text:='';

EdUas.Text:='';

EdNim.Setfocus;

end;

procedure TForm1.EdAbsenChange(Sender: TObject);

var uas:real;

begin

uas:=strtofloat(EdAbsen.Text)*10/100;

EdAkhir.Text:=floattostr(uas);

end;

procedure TForm1.EdTugasChange(Sender: TObject);

var tugas:real;

begin

tugas:=strtofloat(EdTugas.Text)*20/100 + strtofloat(EdAbsen.Text)*10/100;

EdAkhir.Text:=floattostr(tugas);

end;

procedure TForm1.EdMidChange(Sender: TObject);

var mid:real;

begin

mid:=strtofloat(EdTugas.Text)*20/100 + strtofloat(EdMid.Text)*30/100 + strtofloat(EdAbsen.Text)*10/100;

EdAkhir.Text:=floattostr(mid);

end;

procedure TForm1.EdUasChange(Sender: TObject);

var uas:real;

begin

uas:=strtofloat(EdTugas.Text)*20/100 + strtofloat(EdMid.Text)*30/100 + strtofloat(EdUas.Text)*50/100 + strtofloat(EdAbsen.Text)*10/100;

EdAkhir.Text:=floattostr(uas);

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

if (strtofloat(EdAkhir.Text)>80) then

EdHuruf.Text:='A'

else if (strtofloat(EdAkhir.Text)<=80) and (strtofloat(EdAkhir.Text)>69) then

EdHuruf.Text:='B'

else if (strtofloat(EdAkhir.Text)<=69) and (strtofloat(EdAkhir.Text)>55) then

EdHuruf.Text:='C'

else if (strtofloat(EdAkhir.Text)<=55) and (strtofloat(EdAkhir.Text)>44) then

EdHuruf.Text:='D'

else

EdHuruf.Text:='E';

end;

end.