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

TUGAS 2 ALGORITMA PEMROGRAMAN (PROGRAM PENENTU GRADE NILAI MENGGUNAKAN PERCABANGAN CASE__OF)

Kali ini ane akan share program command prompt sederhana menggunakan bahasa pascal dengan compiler Borland Delphi 7.
Berikut Flowchart dari program ini :

Langkah -langkah :
1. Buka software Borland Delphi 7
2. Klik File - New - Other - Console Application
3. Ketikkan Coding dibawah ini tanpa « br »  dan « p »  :
program case_of; <br /> <br /> {$APPTYPE CONSOLE} <br /> <br /> uses <br /> SysUtils; <br /> <br /> var <br /> n:integer; <br /> grade,ket:string; <br /> <br /> begin <br /> write (' * Program Penentu Grade Nilai * '); <br /> writeln; <br /> writeln; <br /> writeln; <br /> writeln; <br /> write (' Masukkan nilai anda = '); readln(n);<br /> case n of <br /> 0..25 : <br /> begin <br /> grade:='E'; ket:='Gagal'; <br /> writeln(' grade anda = ', grade);<br /> writeln(' keterangan = ', ket); <br /> end; <br /> 26..55 : <br /> begin <br /> grade:='D'; ket:='Kurang';<br /> writeln(' grade anda = ', grade);<br /> writeln(' keterangan = ', ket); <br /> end; <br /> 56..75 : <br /> begin grade:='C'; ket:='Cukup'; <br /> writeln(' grade anda = ', grade);<br /> writeln(' keterangan = ', ket);<br /> end; <br /> 76..85 : <br /> begin grade:='B'; ket:='Baik'; <br /> writeln(' grade anda = ', grade);<br /> writeln(' keterangan = ', ket); <br /> end; <br /> 86..100 : <br /> begin <br /> grade:='A'; ket:='Istimewa';<br /> writeln(' grade anda = ', grade);<br /> writeln(' keterangan = ', ket);<br /> end; <br /> else writeln(' Nilai yang anda masukkan melebihi batas'); <br /> end; <br /> readln; <br /> end. <br />
4. tekan F9 untuk menjalankan program.
Jreng...... Jreng...... ini dia tampilan programnya :

Okey...... Selamat mencoba dan semoga berhasil.
Mohon maaf jika masih terjadi error. hehehehehe 

TUGAS 1 ALGORITMA PEMROGRAMAN (PROGRAM PENENTU GRADE NILAI)

Kali ini ane akan share program command prompt sederhana menggunakan bahasa pascal.
Dengan compiler Borland Delphi 7.

Cara 1
Algoritma :

1. Start
2. Masukkan nilai anda (n)
3. If n>=0 and n<=25 then grade ='E' If n>=26 and n<=55 then grade ='D' If n>=56 and n<=75 then grade ='C' If n>=70 and n<=85 then grade ='B' If n>85 then grade ='A'
4. Print grade
5. End

Coding :
copy dan paste kan script dibawah ini pada program console di Borland delphi 7. :
<br /> program cara1;<br /> <br /> {$APPTYPE CONSOLE}<br /> <br /> uses<br /> SysUtils;<br /> <br /> var<br /> n:integer;<br /> grade:char;<br /> begin<br /> <br /> writeln(' * (PROGRAM PENENTU GRADE NILAI) *');<br /> writeln;<br /> writeln;<br /> write(' masukkan nilai anda : '); readln(n);<br /> if (n>=0) and (n<=25) then grade:='E'; if (n>=26) and (n<=55) then grade:='D'; if (n>=56) and (n<=70) then grade:='C'; if (n>=71) and (n<=85) then grade:='B'; if (n>85) then grade:='A';<br /> writeln(' Grade anda adalah : ',grade);<br /> readln;<br /> end<br /> .end<br />
Hapus semua "« br /»" karena itu adalah tag html "break" untuk pindah baris atau enter.

berikut tampilan programnya :

Cara 2
Algoritma :

1. Start
2. Masukkan nilai anda (n)
3. If n>85 then grade = 'A' Else
If n>70 then grade = 'B' Else
If n>55 then grade = 'C' Else
If n>25 then grade = 'D' Else
grade = 'E';
4. Print grade
5. End

Coding :
copy dan paste kan script dibawah ini pada program console di Borland delphi 7 :
<br /> program cara2;<br /> <br /> {$APPTYPE CONSOLE}<br /> <br /> uses<br /> SysUtils;<br /> <br /> var<br /> n:integer;<br /> grade:char;<br /> begin<br /> <br /> writeln(' * (PROGRAM PENENTU GRADE NILAI) *');<br /> writeln;<br /> writeln;<br /> write(' masukkan nilai anda : '); readln(n);<br /> if (n>85)then grade:='A' Else<br /> if (n>70)then grade:='B' Else<br /> if (n>55)then grade:='C' Else<br /> if (n>25)then grade:='D' Else<br /> grade:='E';<br /> write(' Grade anda adalah : ',grade);<br /> readln;<br /> end<br /> <br /> .end<br />
Hapus semua "« br /»" karena itu adalah tag html "break" untuk pindah baris atau enter.

berikut Tampilan Programnya :

Okey Gan, Sekian dulu dari ane. Mohon maaf jika ada kekurangan.
Selamat mencoba n semoga berhasil. Hehehehehehe