Saturday, 21 January 2017T1/21/2017 08:38:00 pm

MEMBUAT PROGRAM NILAI AKHIR MAHASISWA DENGAN DELPHI

Salam blogger……pada postingan kali ini saya akan share cara sederhana membuat program hitung nilai akhir mahasiswa menggunakan Delphi, program yang dibuat dengan Delphi ini sangat lah simple dan sederhana, program ini dapat dibuat pada Delphi versi apa saja dan hanya menggunakan komponen sederhana bawaan dari Delphi, sehingga dapat dipastikan sangat mudah untuk dibuat. Cara kerja program nya pun sangat sederhana, program ini akan menjalankan rumus perhitungan yang sudah dibuat, dengan cara menjumlahkan masing – masing nilai yang sudah kita input sebelumnya, dengan catatan nilai yang diinputkan tidak boleh kosong. Kemudian klik tombol hitung, maka program akan memproses nilai akhir dari jumlah nilai yang di inputkan, maka akan diperoleh nilai akhir dan kode grade nilai tersebut.

Untuk lebih jelasnya saya akan jelaskan cara pembuatan programnya, pertama tama buat sebuah project baru pada Delphi sobat. Lalu design form nya seperti pada gambar di bawah ini.
 Adapun komponen yang diperlukan pada gambar diatas adalah sebagai berikut :
 - 7 buah label
 - 7 buah edit text
 - 3 buah button
Jika form sudah di design seperti pada gambar di atas, sekarang kita akan atur properties pada object inspectornya, pada edit text 2 s/d edit text 5 pada text di object inspector isi dengan nilai 0 , lalu pada max length nya isi dengan nilai 3. Dan pada edit text 6 dan 7 ubah enable nya menjadi false. Jika sudah maka masukan source kode dibawah ini pada komponen form tersebut.
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    BitBtn1: TBitBtn;
    Label6: TLabel;
    Edit6: TEdit;
    Edit7: TEdit;
    Label7: TLabel;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var nAbsen, nTugas, nMID, nUAS, nAKHIR : Real;
Grade : String;
begin
if not(edit2.Text <>'') or not(edit3.Text <>'') or not(edit4.Text <>'')or not (edit5.Text <>'')  then
begin
Application.MessageBox('Masih Ada Data Yang Kosong, Cek Kembali !','Peringatan',
mb_Ok + Mb_IconExclamation);
edit2.SetFocus;
exit;
end;
  nAbsen := StrToFloat(Edit2.Text) * 0.1;
  nTugas := StrToFloat(Edit3.Text) * 0.2;
  nMID := StrToFloat(Edit4.Text) * 0.3;
  nUAS := StrToFloat(Edit5.Text) * 0.4;
  nAKHIR := nAbsen + nTugas + nMID + nUAS;
  Edit6.Text := FloatToStr(nAKHIR);

  if nAKHIR > 80 then
  Edit7.Text := 'A'
  else if nAKHIR > 69 then
  Edit7.Text := 'B'
  Else if nAKHIR > 59 then
  Edit7.Text := 'C'
  else if nAKHIR > 49 then
  Edit7.Text := 'D'
  else
  Edit7.Text := 'E';

end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
edit2.Text:='0';
edit3.Text:='0';
edit4.Text:='0';
edit5.Text:='0';
edit6.Text:='';
edit7.Text:='';
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
if Application.MessageBox('Anda Yakin Ingin Keluar Form??','Informasi',MB_ICONINFORMATION+MB_YESNO)=IDYES
then
application.Terminate;
end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if not  (key in['0'..'9', #8]) then
begin
key :=#0;
MessageDlg('Nilai yang dimasukan harus angka !!!',mtError,[mbOK],0);
edit2.SelectAll;
end;
end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
if not  (key in['0'..'9', #8]) then
begin
key :=#0;
MessageDlg('Nilai yang dimasukan harus angka !!!',mtError,[mbOK],0);
edit3.SelectAll;
end;
end;

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
if not  (key in['0'..'9', #8]) then
begin
key :=#0;
MessageDlg('Nilai yang dimasukan harus angka !!!',mtError,[mbOK],0);
edit4.SelectAll;
end;
end;

procedure TForm1.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
if not  (key in['0'..'9', #8]) then
begin
key :=#0;
MessageDlg('Nilai yang dimasukan harus angka !!!',mtError,[mbOK],0);
edit5.SelectAll;
end;
end;
end.


Jika sudah selanjunya jalankan programnya dengan cara menekan F9/RUN. lalu masukan inputan nilai pada edit text nya, lalu tekan button hitung, jika tidak ada error maka tampilan programnya saat dijalankan akan terlihat seperti pada gambar dibawah ini.
 Demikian postingan yang dapat saya share kali ini tentang bagaimana cara membuat program sederhana mengitung nilai akhir mahasiswa dengan menggunakan Delphi. Semoga dapat bermanfaat dan dapat menamabah wawasan bagi sobat semua dan selamat mencoba.
Previous
Next Post »
0 Komentar untuk "MEMBUAT PROGRAM NILAI AKHIR MAHASISWA DENGAN DELPHI"

Silahkan tinggalkan komentar dibawah ini,
Terima kasih sudah :
1. Berkomentar dengan sopan
2. Tidak meninggalkan link aktif dalam form komentar
3. Berkomentar sesuai postingan / artikel
4. Tidak membuat komentar yang mengandung SARA / SPAM
5. Memberikan informasi link / script yang tidak berfungsi

Terima Kasih Sudah Berkomentar

PENDAPAT ANDA TENTANG BLOG INI ?

Follow by Email

 
Copyright © 2014 uduy macal blog's - All Rights Reserved
Template By Kuncidunia
DMCA.com Protection Status