Aplikasi Delphi Menghitung nilai akhir Mahasiswa

Ini adalah program yang sangat simple dan efektif untuk menghitung nilai akhir mahasiswa, aplikasi ini dibuat dengan menggunakan delphi 7 lite edition, berikut source code dari program ani :

unit quiz;

interface

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

type
  TForm1 = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    GroupBox3: TGroupBox;
    GroupBox4: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit7: TEdit;
    Edit8: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    StatusBar1: TStatusBar;
    ComboBox1: TComboBox;
    Label6: TLabel;
    Label7: TLabel;
    Button1: TButton;
    Edit9: TEdit;
    mmKeterangan: TMemo;
    Button2: TButton;
    Label8: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure GroupBox3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure GroupBox3MouseLeave(Sender: TObject);
    procedure GroupBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure GroupBox2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure GroupBox4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Edit7MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Edit8MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Edit4MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Edit5MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Edit2MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Edit3MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure mmKeteranganMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Edit1MouseLeave(Sender: TObject);
    procedure Edit2MouseLeave(Sender: TObject);
    procedure Edit3MouseLeave(Sender: TObject);
    procedure Edit4MouseLeave(Sender: TObject);
    procedure Edit5MouseLeave(Sender: TObject);
    procedure ComboBox1MouseLeave(Sender: TObject);
    procedure Edit7MouseLeave(Sender: TObject);
    procedure Edit8MouseLeave(Sender: TObject);
    procedure mmKeteranganMouseLeave(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var a1,a2,a3,b1,b2,c,d,e,nilai_akhir:real;
var s:string;
begin
//tugas
  a1:=StrToFloat(edit1.Text);
  a2:=StrToFloat(Edit2.Text);
  a3:=StrToFloat(edit3.Text);
  //quiz
  b1:=StrToFloat(Edit4.Text);
  b2:=StrToFloat(edit5.Text);
  //hadir
  c:=StrToFloat(ComboBox1.Text);
  //uts
  d:=StrToFloat(Edit7.Text);
  //uas
  e:=StrToFloat(edit8.Text);

  if a1>100 then
  begin
  ShowMessage('Nilai Maksimal adalah 100');
  edit1.Text:='0';

  end
  else
  edit1.Color:=clWindow;



  nilai_akhir:=((a1+a2+a3)/3)*0.15 + ((b1+b2)/2)*0.1 + ((c/14)*100)*0.15 + d*0.25 +e*0.35;
  edit9.Text:=FloatToStr(nilai_akhir);


  mmKeterangan.Show;
  mmKeterangan.Lines.Add('RINCIAN NILAI');
  mmKeterangan.Lines.Add(' TUGAS          :'+FloatToStr(((a1+a2+a3)/3)*0.15));
  mmKeterangan.Lines.Add(' QUIZ             :'+FloatToStr(((b1+b2)/2)*0.1));
  mmKeterangan.Lines.Add(' KEHADIRAN  :'+FloatToStr( (c/14)*15 ) );
  mmKeterangan.Lines.Add(' UTS               :' + FloatToStr(d*0.25));
  mmKeterangan.Lines.Add(' UAS               :' +  FloatToStr(e*0.35));
  mmKeterangan.Lines.Add('____________________________________');
  mmKeterangan.Lines.Add('JUMLAH NILAI AKHIR  : '+FloatToStr(nilai_akhir) );



  mmKeterangan.Lines.Add('PROGRAM INI DI BUAT OLEH:');
  mmKeterangan.Lines.Add('NAMA          :HARIYANTO');
  mmKeterangan.Lines.Add('NIM             :311 5311 012');
  mmKeterangan.Lines.Add('JURUSAN    :SISTEM INFORMASI');
  mmKeterangan.Lines.Add('UNIVERSITAS TEKHNOLOGI YOGYAKARTA');
  mmKeterangan.Enabled:=false;


end;



procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Text:=' ';
Edit2.Text:=' ';
Edit3.Text:=' ';
Edit4.Text:=' ';
Edit5.Text:=' ';
Edit7.Text:=' ';
Edit8.Text:=' ';
Edit9.Text:=' ';
ComboBox1.Text:=' ';
mmKeterangan.hide;
mmKeterangan.clear;
end;

procedure TForm1.ComboBox1MouseLeave(Sender: TObject);
begin
StatusBar1.SetTextBuf(' ');

end;

procedure TForm1.Edit1MouseLeave(Sender: TObject);
begin
StatusBar1.SetTextBuf(' ');
end;

procedure TForm1.Edit1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin

    StatusBar1.SetTextBuf('Masukkan Nilai Tugas 1')


end;

procedure TForm1.Edit2MouseLeave(Sender: TObject);
begin
StatusBar1.SetTextBuf(' ');

end;

procedure TForm1.Edit2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    StatusBar1.SetTextBuf('Masukkan Nilai Tugas 2');

end;

procedure TForm1.Edit3MouseLeave(Sender: TObject);
begin
StatusBar1.SetTextBuf(' ');

end;

procedure TForm1.Edit3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
    StatusBar1.SetTextBuf('Masukkan Nilai Tugas 3');

end;

procedure TForm1.Edit4MouseLeave(Sender: TObject);
begin
StatusBar1.SetTextBuf(' ');

end;

procedure TForm1.Edit4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
StatusBar1.SetTextBuf('Masukkan Nilai Quiz 1');

end;

procedure TForm1.Edit5MouseLeave(Sender: TObject);
begin
StatusBar1.SetTextBuf(' ');

end;

procedure TForm1.Edit5MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
StatusBar1.SetTextBuf('Masukkan Nilai Quiz 2');

end;

procedure TForm1.Edit7MouseLeave(Sender: TObject);
begin
StatusBar1.SetTextBuf(' ');

end;

procedure TForm1.Edit7MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
StatusBar1.SetTextBuf('masukkan Nilai UTS ');
end;

procedure TForm1.Edit8MouseLeave(Sender: TObject);
begin
StatusBar1.SetTextBuf(' ');

end;

procedure TForm1.Edit8MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
StatusBar1.SetTextBuf('masukkan Nilai UAS ');

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
//Panel1.Hide;
mmKeterangan.Text:='';
mmKeterangan.Hide;
end;

procedure TForm1.GroupBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
         StatusBar1.SetTextBuf('Masukkan Nilai Tugas');
end;

procedure TForm1.GroupBox2MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
StatusBar1.SetTextBuf('Masukkan Nilai Quiz 1 dan Quiz 2');
end;

procedure TForm1.GroupBox3MouseLeave(Sender: TObject);
begin
      StatusBar1.SetTextBuf(' ');
end;

procedure TForm1.GroupBox3MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
     StatusBar1.SetTextBuf('masukkan 1 sampai 14 ');

end;

procedure TForm1.GroupBox4MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
StatusBar1.SetTextBuf('Masukkan Nilai UTS dan UAS  ');
end;

procedure TForm1.mmKeteranganMouseLeave(Sender: TObject);
begin
StatusBar1.SetTextBuf(' ');

end;

procedure TForm1.mmKeteranganMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
StatusBar1.SetTextBuf(' Nilai Akhir Yang Didapat');
end;

end.

Berikut tampilannya setelah dijalankan :