1.
Buka program Delphi 7 nya. Pertama
dibuat Form 1, buat kotak Panel dan 4
Button. Untuk ke 4 Button, ubah Properties > Caption-nya dengan tulisan
(Biodata, Input Nilai, Keterangan, dan Tutup). Kegunaan Panel ini untuk
menampilkan Form dari beberapa Form telah dibuat. Berikut gambarnya.
2. Buatlah
Form baru dengan cara klik File > New > Form. Ubah keterangan caption
dengan nama “Biodata Mahasiswa”, sama seperti sebelumnya hanya saja menambahkan
3 Label, 3 kotak Edit, 1 kotak Memo, dan 2 tombol Button. Pada komponen Edit,
nama parameter text dihilangkan.
3. Ulangi
langkah 1 dan 2 dengan 2 Form, masing-masing 7 dan 5 komponen. Kedua Form
tersebut diberi caption “Input Nilai Mahasiswa” dan “Keterangan Lulus/Gagal”.
a. Form1
b. Biodata Mahasiswa
c. Pada Form3 Input Nilai Mahasiswa, kotak Button1
“Proses” diberi kodingannya sebagai berikut.
d. Pada Form4 Keterangan Lulus/Gagal, kotak Button1
“Proses” diberi kodingannya sebagai berikut.
5. Jalankan program yang sudah dibuat dengan
meng-klik Run atau menekan tombol F9.
LOGIKA
Pada
dasarnya, program ini digunakan untuk menampilkan dari beberapa Form yang telah
dibuat dan menampilkannya kedalam sebuah Panel, menghitung Nilai Mahasiswa, dan
menentukan Kelulusan mahasiswa. Semuanya akan ditampilkan kedalam Form
berkomponen Panel. Saat meng-klik “Biodata”, maka akan muncul tampilan dari
Form2 “Biodata Mahasiswa” pada Panel di Form1. Di dalam Biodata terdapat Nama,
Kelas, NPM, dan sebuah kotak kosong (Memo). Jika kotak Edit masing-masing diisi
dan di proses “OK”, maka kotak Edit yang telah terisi akan muncul menjadi satu
kedalam Memo.
Selanjutnya,
ketika meng-klik Input Nilai akan muncul Form3 “Input Nilai Mahasiswa” yang
berisikan input nilai UTS, UAS, dan Total Nilai. Pada nilai UTS dikalikan 70%,
dan nilai UAS dikalikan 30%. Kedua nilai tersebut kemudian dijumlahkan dan
disimpan kembali menjadi string. Hasil dari perhitungannya akan ditampikan di
kotak Edit3.
Untuk
melihat Kelulusan Nilai yang diperhitungkan dapat meng-klik Keterangan. Jika
Total Nilai lebih dari 60, maka dinyatakan LULUS dan sebaliknya, jika Total
Nilai kurang dari 60, maka dinyatakan GAGAL. Untuk mengetahuinya dapat
meng-klik kotak “Proses”.
