Contoh program Percabangan Pada Delphi

Pada program kali ini menentukan kondisi yang lebih dari satu statemen , dalam pembuatan code program nya hampir sama dengan program sebelum nyaa . Hanya saja kali ini menggunakan banyak statemen untuk mencetak nilai atau hasil dari yang di inginkan. Maka untuk itu menggunakan IF (….) THEN (….) ELSE .Perintah “IF (….) THEN (….) ELSE”  umumnya digunakan untuk melakukan pencabangan sederhana (antara 2 atau 3 cabang). Atau untuk pencabangan yang banyak, dimana kondisi yang menjadi prasyaratnya melibatkan lebih dari satu parameter. Bentuk sintaks  , perintah nya Langsung saja

If then

Begin

...{Statement-1}

End

Else

Begin

...{statemen-2}

End

langsung saja ke tujuan :

buat lah Label, edit, dan button

seperti gambar di atas!

kemudian Klik Form1 2x à Code program Label dan Edit

dan masukan code nya:

Label1.Caption:='Inputan Nilai Sederhana';

label2.Caption:='Nilai';

Label3.Caption:='Predikat';

Label4.Caption:='Keterangan';

Edit1.Text:='';

Edit2.Text:='';

Edit3.Text:='';

Button1.caption:='Proses';

Button2.Caption:='Ganti warna';

setelah itu kembali ke form 1 dan save
lanjutkan Klik 2x pada Button1 di form 1 à tuliskan code berikut di bawah begin dan di atas end 

dan masukan code nya 

var

A:Integer;

begin

A := StrToInt (Edit1.Text);

  if (A>=0) and (A < 30) then

    begin

    edit2.Text:='E';

    edit3.Text:='Gagal';

    end

  else if (A>=30) and (A<50) then

    begin

    edit2.text:='D';

    edit3.Text:='Gagal';

    end

  else if (A>=50) and (A<70) then

    begin

    edit2.text:='C';

    edit3.Text:='Lulus';

    end

  else if (A>=70) and (A<85) then

    begin

    edit2.Text:='B';

    edit3.Text:='Lulus';

    end

  else if (A>=85) and (A<=100) then

    begin

    edit2.Text:='A';

    edit3.Text:='Lulus';

    end

  else

    begin

    edit2.Text:='Salah Input';

    edit3.Text:='Ulangi Lagi';

  end;

Kemudian save ….

Langkah Selanjut nya :

Klik 2x pada Button 2  à tuliskan code berikut di bawah begin dan di atas end :

dan masukan code nya untuk memberi warna

Edit1.Font.Color:=clred;

Edit2.Font.Color:=clyellow;

Edit3.Font.Color:=clgreen;

 Kemudian Save dan Run program
maka hasil nya 

 

                          

Baca selengkapnya »