Wednesday, April 4, 2012

Materi: Aplikasi Nilai Rapor



Aplikasi Perhitungan Nilai Rapor, kali ini kita akan belajar membuat aplikasi untuk menghitung nilai akhir dari beberapa nilai yang mempunyai kriteria tertentu.
Pada kasus ini ditentukan bahwa ada 3 Nilai Tugas dengan persentase 10%, 2 Nilai Quiz dengan persentase 10%, Nilai Kehadiran dengan kehadiran maksimal 14 kali dan persentase 10%, Nilai UTS dengan persentase 30% dan Nilai UAS dengan persentase 40%
Oke, marilah kita membuat aplikasinya dengan langkah sebagai berikut:


Buka Borland Delphi 7 dan buatlah form dengan desain seperti di bawah ini:



Kemudian atur nama objek seperti yang tertera pada tabel

Object
Properties
Edit1
Name: edTu1
Edit2
Name: edTu2
Edit3
Name: edTu3
Edit4
Name: edQu1
Edit5
Name: edQu2
ComboBox1
Name: cboHdr
Edit6
Name: edUTS
Edit7
Name: edUAS
Button1 (Proses)
Name: btnProses
Button2 (Ulang)
Name: btnUlang
Button3 (Keluar)
Name: btnKeluar

Kemudian atur properties objek sehingga menjadi seperti berikut ini


Masukkan Data Untuk cboHdr dengan masuk ke jendela String List Editor dari Object Inspector



Tekan OK, setelah itu kita buat Coding untuk btnProses dengan cara dobel klik pada btnProses kemudian ketikkan coding berikut:
procedure TForm1.btnProsesClick(Sender: TObject);

var

tugas, quiz, hadir, uts, uas : real;
hasil : real;
nilai : string;

begin

tugas:=(((strtofloat(edTu1.Text)+strtofloat(edTu2.Text)+strtofloat(edTu3.Text))/3)*0.1);
quiz:=(((strtofloat(edQu1.Text)+strtofloat(edQu2.Text))/2)*0.1);
hadir:=(((strtofloat(cboHdr.Text))/14)*10);
uts:=((strtofloat(edUTS.Text))*0.3);
uas:=((strtofloat(edUAS.Text))*0.4);
hasil:=(tugas+quiz+hadir+uts+uas);
str(hasil:0:2,nilai);
label12.caption:=(nilai);

end;



Kemudian Kita buat lagi coding untuk btnUlang dengan code sbb:
procedure TForm1.btnUlangClick(Sender: TObject);

begin

edTu1.Clear;
edTu2.Clear;
edTu3.Clear;
edQu1.Clear;
edQu2.Clear;
cboHdr.Clear;
edUTS.Clear;
edUAS.Clear;
Label12.Caption:='______';

end;


Untuk btnKeluar codenya sangat simple yaitu sbb:
procedure TForm1.btnKeluarClick(Sender: TObject);
begin
Close;
end;


Selesai untuk proses codingnya, sekarang kita coba jalankan project kita
Tampilan saat program dieksekusi


Masukkan Nilai


Klik Proses


Apabila Tombol Ulang di klik


Akhirnya selesai juga program kita untuk menghitung nilai rapor ini. Aplikasi ini dapat dikembangkan dengan menerapkan validasi angka yang ada pada posting terdahulu.
Apabila ada yang kurang jelas/pertanyaan silahkan dituliskan di bagian Comments, saya akan membantu dengan senang hati.

Untuk yang ingin mendownload materi dapat menuju ke link di bawah ini.


Bertemu lagi di post berikutnya.
Salam!

               

0 comments:

Post a Comment

Advertisement