Delphi : Menggunakan Fungsi IF

a. Hasil Program

b. Desain Form

c. Desain Properties

Object	Name	Caption
Label1	Label1	LAPORAN PENDIDIKAN
Label2	Label2	SD SUSAH LULUS
Label3	Label3	TAHUN AJARAN 2018/2019
Label4	Label4	NAMA
Label5	Label5	KELAS
Label6	Label6	MATA PELAJARAN
Label7	Label7	NILAI
Label8	Label8	BAHASA INDONESIA
Label9	Label9	BAHASA INGGRIS
Label10	Label10	MATEMATIKA
Label11	Label11	ILMU PENGETAHUAN ALAM
Label12	Label12	ILMU PENGETAHUAN SOSIAL
Label13	Label13	NILAI RATA-RATA
Label14	Label14	---
Label15	Label15	NAIK KELAS / TINGGAL KELAS
Label16	Label16	---
Edit1	Edit1	-
Edit2	Edit2	-
Edit3	Edit3	-
Edit4	Edit4	-
Edit5	Edit5	-
Edit6	Edit6	-
Edit7	Edit7	-
Button1	Button1	PROSES

d. Listing Program

Form

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

end;

listing ini dimaksudkan agar pada saat program berjalan, semua Edit Box akan berubah sesuai dengan yang telah di atur. seperti misalnya edit1.Text:= ' '; , ini berarti pada saat program berjalan, edit1 akan dikosongkan. Demikian halnya dengan edit3.Text:= '0'; ini berarti pada saat program berjalan, edit3 akan berisi angka 0.


Tombol Proses
Ketika tombol proses di klik maka yang terjadi adalah, sistem akan menghitung rata-rata nilai dengan cara menjumlahkan nilai dari ke 5 mata pelajaran kemudian dibagi dengan 5. Kemudian sistem akan menjalankan fungsi logika untuk memutuskan Naik atau Tinggal Kelas dengan algoritma, jika nilai rata-rata dibawah 60 maka siswa Tinggal Kelas, namun jika sebaliknya maka siswa akan Naik Kelas.

procedure TForm1.Button1Click(Sender: TObject);
var
bindo, bing, mat, ipa, ips, rata : real;

begin
bindo:= strtofloat(edit3.Text);
bing:= strtofloat(edit4.Text);
mat:= strtofloat(edit5.Text);
ipa:= strtofloat(edit6.Text);
ips:= strtofloat(edit7.Text);
rata:= (bindo+bing+mat+ipa+ips)/5;
label13.Caption:= floattostr(rata);

if rata < 60 then
label16.Caption:= 'TINGGAL KELAS'
else
label16.Caption:= 'NAIK KELAS';
end;