BAB PERCABANGAN [Tugas UTS Semester 2]

Raden Syaifudin 08.56 Delphi 7 , Semester 2 , Tutorial , UTS Semester 2 Tidak ada komentar

Percabangan di dalam bahasa pemrogaman 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);

End

Else

If (kondisi) Then

Begin

(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);

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’;

Okay saya kira sudah cukup penjelasannya. Mari kita coding programnya

1. Buka aplikasi Delphi 7

2. Kemudian klik menu file, pilih New, dan pilih Application

3. Buatlah desain program seperti gambar dibawah ini.

4. Kemudian masukkan script dibawah ini pada Code Explorer, pastikan sesuai dengan objek masing-masing

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;

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

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

procedure TForm1.tnilaiChange(Sender: TObject);
begin

end;

end.

5. Coba Jalankan program dengan klik menu run, kemudian pilih run, dan hasilnya sepert ini.