Percabangan IF pada Delphi

Perintah percabangan IF ialah suatu perintah yang berfungsi untuk mengambil keputusan dari beberapa kondisi. Biasanya bentuk percabangan ini digunakan untuk kondisi yang jumlahnya tidak terlalu banyak. Adapun bentuk umum penulisan logika IF adalah :

Logika Percabangan IF

IF {ekspresi} then

Begin

{Statement 1}

{Statement 2}

End

Else

Begin

{Statement 1}

{Statement 2}

End;

Oke, disini kita akan memulai memahami bagaimana percabangan IF di Delphi. Check it out!

Untuk praktek kali ini, kita akan membuat sebuah program yang berfungsi untuk mencari keterangan Lulus atau Tidak Lulus dari suatu hasil ujian.

Seorang siswa akan dinyatakan “Lulus” apabila nilai yang didapat diatas 85, dan dinyatakan “Tidak Lulus” apabila mendapat nilai dibawah 85.

Buatlah sebuah form baru seperti gambar dibawah ini :

Atur nilai properties dari setiap komponen pada form diatas seperti yang ditunjukkan tabel berikut :

Komponen	Properties	Pengaturan
Label1	Caption	Nama
Label2	Caption	Nilai
Label3	Caption	Keterangan
Edit1	Text	(dikosongkan)
Edit2	Text	(dikosongkan)
Edit3	Text	(dikosongkan)
	Read Only	TRUE
Button1	Caption	&New
Button2	Caption	&Proses
Button3	Caption	&Exit

Selanjutnya kita akan mengarah ke kode program. Dobel klik pada tombol “New”, lalu isi dengan kode berikut :

procedure TForm1.Button1Click(Sender: TObject);
begin
  Edit1.Text := ‘ ‘;
  Edit2.Text := ‘ ‘;
  Edit3.Text := ‘ ‘;
  Edit1.SetFocus;
end;

Kemudian dobel klik pada tombol "Proses", dan ketikkan kode berikut :

procedure TForm1.Button2Click(Sender: TObject);
var
  Nilai : Integer;
  Keterangan : String;
begin
  Nilai := StrToInt(Edit2.Text);
  If Nilai > 85 Then
    Begin
      Keterangan := ‘Lulus’
    End
  Else
    Begin
      Keterangan := ‘Tidak Lulus’
    End;
  Edit3.Text := Keterangan;
end;

Terakhir, dobel klik pada tombol “Exit” dan ketikkan kode berikut :

procedure TForm1.Button3Click(Sender: TObject);
begin
  Application.Terminate;
end;

Setelah yakin tidak ada error didalam kode-kode diatas, silahkan jalankan programnya menggunakan shortcut F9. Dan jangan lupa untuk menyimpan hasil latihannya ya!

Bagaimana sampai sini, ada kesulitan? Pertanyaan, semoga penulis bisa menjawab 🙂