Tab Additional I (Program Penentuan Kelulusan UN)

I.         Deskripsi Program

Program ini merupakan program perhitungan kelulusan Ujian Nasional. Dalam proses yang dilakukan program ini terdapat dua macam output yaitu Lulus dan Tidak Lulus. Komponen tab additional yang digunakan pada program ini adalah image.

II.      Interface Program

III.         Coding Program

Nama Komponen	Event	Perintah
Button1	OnClick	procedure TForm1.Button1Click(Sender: TObject); var tot:real; begin tot:=strtofloat(labelededit1.Text)*0.4+strtofloat (labelededit2.Text)*0.4; if tot<60 then form3.showmodal else form2.showmodal; end;

IV.         Output

                                   

 

 

Program dapat di download di sini