PERCABANGAN PADA DELPHI

            Percabangan

Percabangan di Delphi ada 2  yaitu If dan Case….Of. Keduanya  ini merupakan percabangan. Yang membedakan hanya penulisan syntaxnya.

Percabangan If

Penulisan Syntax If bentuk umum

If (kondisi) then (pernyataan);

Contoh :

If tgol.text = ‘A’ Then tunjang :=’20000’;

Penulisan Syntax If ….. Else

If (kondisi) then (pernyataan) Else (pernyataan);

Contoh :

If nilai >=70 then ket.caption := ‘Lulus’ Else ket.caption := “Tidak Lulus”;

Penulisan syntax If  dengan beberapa pernyataan

If (kondisi) Then

Begin

(pernyataan);

(pernyataan);

(pernyataan);

End

Else

If (kondisi) Then

Begin

(pernyataan);

(pernyataan);

(pernyataan);

End

Contoh :

If tgol.text = ‘A’ then

Begin

tket.text := ‘Kontrak’;

gaji := 1800000;

tunjang := 50000;

tgaji.text := inttostr(gaji);

ttunj.text:=inttostr(tunjang);

End;

Percabangan Case…. Of

Penulisan syntax Case….. Of 

Case (nama variable) Of

(nilai awal..nilai akhir) : (pernyataan);

(nilai awal..nilai akhir) : (pernyataan);

(nilai awal..nilai akhir) : (pernyataan);

Else

(Pernyataan);

Contoh :

Case nilai Of

0..25 : tgrade.text :=’E’;

26..55 : tgrade.text :=’D’;

56..75 : tgrade.text :=’C’;

76..85: tgrade.text :=’B’;

85..100 : tgrade.text :=’A’;

Else

tgrade.text:=’Tidak Ada’;

Nah sekarang mari kita praktekkan :

Pastikan computer agan-agan semua sudah terinstall Borland Delphi 7. Kalau belum ada cari di google aja deh. hehehe.

Buka Borland Delphi 7. Klik File – New - Application

Buat desain form seperti gambar dibawah ini :

Component Penting :
Edit : tnilai
Label : Label1, Label 2
Button : btnproses, btnbaru, btnkeluar

Klik 2x tombol PROSES. masukkan script dibawah ini :

procedure TForm1.btnprosesClick(Sender: TObject);
var
nilai:integer;
begin
nilai := strtoint(tnilai.Text);
If nilai > 85 then
begin
label1.Caption := 'A';
label2.Caption := 'SANGAT MEMUASKAN';
end
else
If nilai > 80 then
begin
label1.Caption := 'AB';
label2.Caption := 'MEMUASKAN';
end
else
If nilai > 75 then
begin
label1.Caption := 'B';
label2.Caption := 'Baik';
end
else
If nilai > 65 then
begin
label1.Caption := 'BC';
label2.Caption := 'Cukup Baik';
end
else
If nilai > 55 then
begin
label1.Caption := 'C';
label2.Caption := 'Cukup';
end
else
If nilai > 25 then
begin
label1.Caption := 'D';
label2.Caption := 'Kurang';
end
else
begin
label1.Caption := 'E';
label2.Caption := 'Gagal';
end;
end;


Klik 2x tombol BARU. masukkan script dibawah ini :

procedure TForm1.btnbaruClick(Sender: TObject);
begin
tnilai.Text := '';
Label1.Caption := '';
Label2.Caption := '';
tnilai.SetFocus;
end;


Klik 2x tombol KELUAR. masukkan script dibawah ini :

procedure TForm1.btnkeluarClick(Sender: TObject);
begin
Halt;
end;

Selesai deh....  tinggal tekan F9.
Nih tampilannnya jika di running :

Untuk percabangan Case...Of agan coba sendiri deh. Kan udah ada contohnya diatas. 

Semoga bermanfaat. Dan sampai jumpa di postingan ane berikutnya gan..... 

Hehehehe