Perhitungan Nilai Mahasiswa

Kali ini kita mencoba memposting tugas UTS (Ujian Tengah Semester
Sebelumnya saya mohon maaf kepada para master Delphi, posting ini khusus buat pemula seperti saya. Kali ini saya akan mencoba menjelaskan bagaimana cara membuat program hitung nilai mahasiswa yang sederhana pada Delphi. OK langsung saja……
1. Jalankan aplikasi Delphi yang sudah kita instal di komputer kita terserah versi berapa, maka akan muncul tampilan seperti dibawah ini.

  2. Masukan komponen-komponen berikut pada form :

Komponen	Propertis
GroupBox1	Caption	Input
Label1	Caption	Nama Lengkap
Label2	Caption	Nilai Tugas
Label3	Caption	Nilai Mid
Label4	Caption	Nilai Semester
Edit1	Text	Kosongkan aja
Edit2	Text	0 (nol)
Edit3	Text	0
Edit4	Text	0
Bitbtn1	Caption	Proses
Bitbtn2	Caption	Baru
GroupBox2	Caption	Output
Label5	Caption	Total Nilai
Label6	Caption	Nilai Akhir
Label7	Caption	Nilai Huruf
Label8	Caption	_
Label9	Caption	Keterangan
Bitbtn3	Caption	Keluar

Silahkan liat gambar dibawah ini dan bisa di desain sendiri terserah anda bagaimana seninya.

 3. Masukan listing pada Bitbtn Proses sebagai 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';

4. Listing Baru sbb:

Edit1.Enabled:=True;

Edit2.Enabled:=True;

Edit3.Enabled:=True;

Edit4.Enabled:=True;

Edit5.Enabled:=True;

Edit6.Enabled:=True;

Edit7.Enabled:=True;

BitBtn1.Enabled:=True;

Edit1.Text:='';

Edit2.Text:='0';

Edit3.Text:='0';

Edit4.Text:='0';

Edit5.Text:='';

Edit6.Text:='';

Edit7.Text:='';

Label8.Caption:='_';

Edit1.SetFocus;

5. Listing Keluar sbb:

Application.Terminate;

6. Masukan listing pada Form Aktivate, caranya klik pada bagian Events kemudian klik 2x sebelah kanan pada OnAktivate.mlihat gambar dibawah ini.

 Masukan listing berikut :

Edit1.Enabled:=False;

Edit2.Enabled:=False;

Edit3.Enabled:=False;

Edit4.Enabled:=False;

Edit5.Enabled:=False;

Edit6.Enabled:=False;

Edit7.Enabled:=False;

BitBtn1.Enabled:=False;

Penjelasan Program : Ketika program dijalankan, pada bagian edit yaitu edit1 sampai edit 7 dan tombol Proses bersifat Enable (tidak berfungsi) dan setfocus pada tombol Baru. Dalam artian kita blum bisa mengimput data, Jadi ketika mau mengimput kita harus klik dulu tombol Baru, baru bisa mengimput data.
Silahkan lihat gambar-gambar dibawah ini.