Cara Membuat Perhitungan Nilai Mahasiswa dengan Menggunakan Delphi 7

kali ini saya akan membagi trik tentang cara membuat tabel perhitungan nilai mahasiswa dengan menggunakan delphi 7.

1.pertama tama kita akan membuka aplikasi delphi 7.

lalu kita akan membuat seperti berikut :

apabila ingin melihat cara membuat tabet,edit dan caption bisa klik disini

2.setelah itu double klik button proses dan masukkan skrip berikut;
var
total,akhir:integer;
begin
total := StrToInt(Edit2.Text)+StrToInt(Edit3.Text)+StrToInt(Edit4.Text);
Edit5.Text:=IntToStr(total);
akhir := total div 3;
Edit6.Text:=IntToStr(akhir);
if akhir >= 85 then
Edit7.Text:='A'
else if akhir >= 70 then
Edit7.Text:='B'
else if akhir >= 60 then
Edit7.Text:='C'
else if akhir >= 50 then
Edit7.Text:='D'
else
Edit7.Text:='E';
//Keterangan
if Edit7.Text='E' then
Label8.Caption:='Tidak Lulus'
else
Label8.Caption:='Lulus'

3.lalu double klick button 'baru' dan masukkan skrip berikut :
Edit1.Enabled:=True;
Edit2.Enabled:=True;
Edit3.Enabled:=True;
Edit4.Enabled:=True;
Edit5.Enabled:=True;
Edit6.Enabled:=True;
Edit7.Enabled:=True;
Button2.Enabled:=True;
Edit1.Text:='';
Edit2.Text:='0';
Edit3.Text:='0';
Edit4.Text:='0';
Edit5.Text:='';
Edit6.Text:='';
Edit7.Text:='';
Label8.Caption:='_';
Edit1.SetFocus;

4.lalu double klick button Keluar dan masukkan skrip berikut:
Application.Terminate;

5.masuk listing pada from aktivate,caranya klik pada bagian event yang ada di bagian kiri bawah delphi dan ubah sebagai berikut:

6.lalu doube klik pada form di bagian mana saja lalu masukkan skrip berikut 

Edit1.Enabled:=False;

Edit2.Enabled:=False;

Edit3.Enabled:=False;

Edit4.Enabled:=False;

Edit5.Enabled:=False;

Edit6.Enabled:=False;

Edit7.Enabled:=False;

button2.Enabled:=False;

7.lalu kita kit run dengan mempencet tombol f9 lalu klik button baru, lalu masukkan nama lengkap,nilai dll ,setelahitu kita klik proses jika berhasil akan seperti berikut:

Sekian dlu tutorial dari saya semoga bermanfaat..
jika ada yang gagal bisa di tanyakan ke kolom komentar