Pada sesi kali ini, saya akan coba menambahkan fungsi logikanya ya :-). Oke, kita akan mencoba menghitung Nilai dari Mata kuliah tertentu. Logikanya ketika nanti program dijalankan, Anda bisa mengisikan Nilai Absensi, Nilai Latihan, dan Nilai Ujian pada Textbox yang disediakan. Setelah itu dilanjutkan dengan mengklik tombol Proses , sederhana bukan ?

Oke langsung saja kita mulai, segera siapkan Project dan komponen-komponen yang dibutuhkan ya.Sediakan Label1-Label10 (Sesuaikan Caption dengan tampilan di bawah), Combo1 dan Combo2, Edit1 - Edit8, dan Button1 - Button2. Sebenarnya untuk name komponen dapat Anda kreasikan sendiri.

Untuk tampilan Desain Form dapat Anda lihat seperti di bawah ini :

Dan untuk listing Programnya adalah :

unit UNilai;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
  ExtCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)
    BtProses: TButton;
    BtBersih: TButton;
    CbNIM: TComboBox;
    CBMatkul: TComboBox;
    EdNama: TEdit;
    EdNAbsen: TEdit;
    EdNLatihan: TEdit;
    EdNUjian: TEdit;
    EdTNilai: TEdit;
    EdMutu: TEdit;
    EdAMutu: TEdit;
    EdKeterangan: TEdit;
    Label1: TLabel;
    Label10: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    procedure BtBersihClick(Sender: TObject);
    procedure BtProsesClick(Sender: TObject);
    procedure CbNIMChange(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  Form1: TForm1; 

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.FormCreate(Sender: TObject);
begin

end;

procedure TForm1.CbNIMChange(Sender: TObject);
begin
  If CbNIM.Text='MCDG-0001-2012' Then
    EdNama.Text:='Sugono Galih Aprianto'
  Else
  If CbNIM.Text='MCDG-0002-2012' Then
    EdNama.Text:='Sunaryo Rahman'
  Else
  If CbNIM.Text='MCDG-0003-2012' Then
    EdNama.Text:='Surati'
  Else
  If CbNIM.Text='MCDG-0004-2012' Then
    EdNama.Text:='Nanang Triasmosari'
  Else
    EdNama.Text:='Sri Wahyuni Dwisiamsari';
end;

procedure TForm1.BtProsesClick(Sender: TObject);
Var
  NAbsen,NLatihan,NUjian,TNilai : Real;
  Mutu,Keterangan : String;
  AMutu : Integer;
begin
  NAbsen := StrToFloat(EdNAbsen.Text);
  NLatihan := StrToFloat(EdNLatihan.Text);
  NUjian := StrToFloat(EdNUjian.Text);

  TNilai := (0.2*NAbsen)+(0.3*NLatihan)+(0.5*NUjian);
  If TNilai >= 86 Then
  Begin
       Mutu := 'A';
       AMutu := 4;
       Keterangan := 'Sangat Memuaskan';
  end
  Else
  If TNilai >= 76 Then
  Begin
       Mutu := 'B';
       AMutu := 3;
       Keterangan := 'Memuaskan';
  end
  Else
  If TNilai >= 66 Then
  Begin
       Mutu := 'C';
       AMutu := 2;
       Keterangan := 'Cukup';
  end
  Else
  If TNilai >= 56 Then
  Begin
       Mutu := 'D';
       AMutu := 1;
       Keterangan := 'Kurang';
  end
  Else
  Begin
       Mutu := 'E';
       AMutu := 0;
       Keterangan := 'Sangat Kurang';
  end;

  EdTNilai.Text:=FloatToStr(TNilai);
  EdMutu.Text:= Mutu;
  EdAMutu.Text:=IntToStr(AMutu);
  EdKeterangan.Text := Keterangan;
end;

procedure TForm1.BtBersihClick(Sender: TObject);
begin
  CbNIM.Text:='';
  EdNama.Text:='';
  CbMatkul.Text:='';
  EdNAbsen.Text:='0';
  EdNLatihan.Text:='0';
  EdNUjian.Text:='0';
  EdTNilai.Text:='0';
  EdMutu.Text:='';
  EdAMutu.Text:='0';
  EdKeterangan.Text:='';
  CbNIM.SetFocus;
end;

end.

Yups, tinggal Anda Run untuk menjalankan Form Nilai.

Semoga Bermanfaat... :-)

Comments (0)

Subscribe to this comment's feed

Write comment

Email Name Website		Title Comment smaller | bigger
		Subscribe via email (registered users only) Write the displayed characters Add Comment