NILAI MAHASISWA DENGAN DELPHI

unit Nilai_Mahasiswa;

interface

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

type
  TNilaiMahasiswa = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    edNama: TEdit;
    edNim: TEdit;
    edTugas: TEdit;
    edPresensi: TEdit;
    edKuis: TEdit;
    edMid: TEdit;
    edUas: TEdit;
    edRata: TEdit;
    edHuruf: TEdit;
    MULAI: TButton;
    HITUNG: TButton;
    SELESAI: TButton;
    Label11: TLabel;
    Image1: TImage;
    procedure FormCreate(Sender: TObject);
    procedure MULAIClick(Sender: TObject);
    procedure HITUNGClick(Sender: TObject);
    procedure SELESAIClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  NilaiMahasiswa: TNilaiMahasiswa;
t,p,k,m,u,rata :real;
implementation

{$R *.dfm}

procedure TNilaiMahasiswa.FormCreate(Sender: TObject);
begin
edNama.Enabled:=false;
edNim.Enabled:=false;
edTugas.Enabled:=false;
edPresensi.Enabled:=false;
edKuis.Enabled:=false;
edMid.Enabled:=false;
edUas.Enabled:=false;
edRata.Enabled:=false;
edHuruf.Enabled:=false;
end;

procedure TNilaiMahasiswa.MULAIClick(Sender: TObject);
begin
edNama.Enabled:=true;
edNim.Enabled:=true;
edTugas.Enabled:=true;
edPresensi.Enabled:=true;
edKuis.Enabled:=true;
edMid.Enabled:=true;
edUas.Enabled:=true;
edNama.SetFocus;
end;

procedure TNilaiMahasiswa.HITUNGClick(Sender: TObject);
begin
t:=strtofloat(edTugas.Text);
p:=strtofloat(edPresensi.Text);
k:=strtofloat(edKuis.Text);
m:=strtofloat(edMid.Text);
u:=strtofloat(edUas.Text);
rata:=((2*t)+(1*p)+(1*k)+(3*m)+(3*u))/10;
edRata.Text:=floattostr(rata);
if rata >= 90 then
edHuruf.Text:=('A') else
if rata >= 75 then
edHuruf.Text:=('B') else
if rata >= 60 then
edHuruf.Text:=('C') else
if rata >= 45 then
edHuruf.Text:=('D') else
if rata < 45 then
edHuruf.Text:=('E');

end;

procedure TNilaiMahasiswa.SELESAIClick(Sender: TObject);
begin
application.Terminate;
end;

end.



>>JANGAN DI COPAS YA GAN...DICOBA SENDIRI JA DENGAN MELIHAT INI...SEMOGA MEMBANTU<<
<<SELAMAT MENCOBA...SEMOGA SUKSES>>