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.