Memahami Fungsi Logika IF Bertingkat di Delphi dengan If ..then Else Studi Kasus Menghitung Nilai Ujian Mahasiswa

Pada tutorial yang lalu telah dibahas logika IF tunggal di Delphi kali ini akan membahas IF Bertingkat atau IF Bercabang. Percabangan dalam bahasa pemrograman disebut juga pengkondisian dalam menentukan keputusan(seleksi), sehingga bila kondisi tertentu memenuhi maka akan diambil keputusan berdasarkan kondisi yang terpenuhi tersebut. Dalam bahasa pemrograman delphi dikenal dua percabangan yaitu pernyataan if  (if statement) dan pernyataan case of (case of statement), tutorial ini akan membahs if then else dimana studi kasusnya adalah menghitung nilai mahasiswa.

Langkahnya adalah sebagai berikut:

1.       Desain Form Sebagai Berikut

2.       Selanjutnya Buat Program dengan Logika Program

Program akan menghitung nilai uts, nilai uas dan nilai tugas dimana hasil akhirnya memunculkan total nilai dan grade serta keterangan

-          Total Nilai didapat dari (nilai uts + nilai uas + nilai tugas) / 3

-          Kriteria Grade adalah sebagai berikut

Grade A jika (Nilai >= 85), Grade B jika Nilai >= 75 < 85, Grade C Jika Nilai >= 65 < 75, Grade D jika (Nilai >=50 < 65), dan Grade E Nilai < 50

-          Keterangan                       

Grade A Lulus Memuaskan, Grade B Lulus, Grade C Lulus Cukup, Grade D Mengulang,  Grade E Tidak Lulus.

3.       Codingnya Seperti berikut

procedure Ttugas5.bt_hitungClick(Sender: TObject);

var

 uts,uas,tugas : integer;

 total_nilai : real;

begin

  uts := strtoint(ed_uts.Text);

  uas := strtoint(ed_uas.Text);

  tugas := strtoint(ed_tugas.text);

  total_nilai := (uts + uas +tugas) / 3 ;

  ed_total.Text := floattostr(total_nilai);

  if (total_nilai < 50) then

   Begin

      ed_grade.Text := 'E';

      lbl_ket.Visible := true;

      lbl_ket.Caption := 'Tidak Lulus';

    end

  else if (total_nilai >=50) and (total_nilai < 65) then

    Begin

      ed_grade.Text := 'D';

      lbl_ket.Visible := true;

      lbl_ket.Caption := 'Mengulang'

     end

  else if (total_nilai >= 65) and (total_nilai < 75) then

    Begin

      ed_grade.Text := 'C';

      lbl_ket.Visible := true;

      lbl_ket.Caption := 'Lulus'

    end

   else if (total_nilai >= 75) and (total_nilai < 85) then

    Begin

      ed_grade.Text := 'B';

      lbl_ket.Visible := true;

      lbl_ket.Caption := 'Lulus'

     end

   else

     Begin

      ed_grade.Text := 'A';

      lbl_ket.Visible := true;

      lbl_ket.Caption := 'Lulus Memuaskan'

     end

end;

 

Output Aplikasi

PADEPOKAN IT COURSES
IT Tutorial, Training Center & IT Solution
www.padepokanit.com