Tutorial Program Keterangan Nilai

Baiklah, sekarang kita akan membuat sebuah program pencari keterangan nilai. Di sini kita akan menggunakan bahasa pemrograman Borland Delphi 7.

Ilustrasinya adalah sebagai berikut :

1. Nilai 0-15 keterangannya adalah Nilai E

2. Nilai 16-40 keterangannya adalah Nilai D

3. Nilai 41-60 keterangannya adalah Nilai C

4. Nilai 60-80 keterangannya adalah Nilai B

5. Nilai 81-100 keterangannya adalah Nilai A

Ikuti langkah-langkah berikut :

1. Buka aplikasi Borland Delphi 7, dan otomatis kita diarahkan pada New Application.

2. Sekarang masukkan sebuah Panel, 2 buah Label, 2 buah Edit, dan 3 buah Button.

Klik Panel, pada tab properties Object Inspector di sebelah kiri lembar kerja Delphi, cari Caption dan ubah menjadi Program Cek Keterangan Nilai. Label1 captionnya ubah menjadi Nilai. Label2 captionnya ubah menjadi Keterangan. Edit1 cari Text pada tab proerties tadi, lalu hapus n kosongkan. Begitu juga Edit2. Button1 ubah captionnya jadi CEK KETERANGAN. Button2 jadi GANTI. Dan Button3 jadi EXIT PROGRAM.

3. a. Syntax (script) program utama pake seleksi IF THEN

Klik 2 kali button CEK KETERANGAN dan isikan syntax (script) berikut :

begin

nilai:=StrToInt(Edit1.Text);

if (nilai>=0) and (nilai<=15) then ket:='Nilai E'

else if (nilai>=16) and (nilai<=40) then ket:='Nilai D'

else if (nilai>=41) and (nilai<=60) then ket:='Nilai C'

else if (nilai>=61) and (nilai<=80) then ket:='Nilai B'

else ket:='Nilai A';

Edit2.Text:=ket;

end;

b. Syntax program utama pake seleksi CASE OF

Klik 2 kali button CEK KETERANGAN dan isikan syntax (script) berikut :

begin

nilai:=StrToInt(Edit1.Text);

case nilai of

0..15 : ket:='Nilai E';

16..40 : ket:='Nilai D';

41..60 : ket:='Nilai C';

61..80 : ket:='Nilai B';

81..100 : ket:='Nilai A';

end;

Edit2.Text:=ket;

end;

4. Kemudian klik 2 kali button GANTI dan isikan syntax berikut :

begin

Edit1.Text:=EmptyStr;

Edit2.Text:=EmptyStr;

end;

5. Kemudian klik 2 kali button EXIT PROGRAM dan isikan syntax berikut :

begin

Application.Terminate;

end;

6. Pada saat mengisi salah syntax salah satu button di atas, gulung layar untuk syntax tersebut ke atas, cari var, kemudian tambahkan untuk variabelnya menjadi sebagai berikut :

var

Form1: TForm1;

nilai:integer;

ket:string;

7. Programnya uda jadi. Untuk merubah warna atau variasi, cari di tab properties yah. Coba2 sendiri.

8. Terus yang terakhir, coba di Run programnya pake tombol F9. Tombol CEK KETERANGAN untuk nyari keterangannya nilainya jika uda ngisi angka di kolom nilai. Tombol GANTI untuk menghapus kolom NILAI dan KETERANGAN untuk ngisi dengan nilai lain. EXIT PROGRAM untuk nutup aplikasinya. Semoga berhasil!