Program Percabangan Dengan Delphi

 Program ini digunakan untuk menampilkan hasil perulangan dengan angka awal dan banyak perulangan yang ditentukan sebagai input program.langkah pertama yang dapat dilakukan adalah menyusun tampilan program dengan menggunakan fitur – fitur yang telah disediakan Delphi. Sehingga tampilan awal pembuatan akan menjadi:

Selanjutnya, untuk memudahkan penuliskan kode program, kita perlu mengedit nama – nama elemen diatas dan mengganti beberapa text.untuk mengatur elemen pada program kita dapat menggunakan object inspector.

Gambar diatas merupakan contoh tampilan object inspector yang digunakan untuk mengatur elemen button yang diganti dengan nama wihle-do.kita dapat mengedit elemen – elemen yang lain dengan cara yang sama. Dalam program ini menggunakan ketentuan – ketentuan sebagai berikut:

Elemen	Properties	Keterangan
Form	Caption	Program perulangan sederhana
	Name	TForm1
Group box	Caption	Looping box
	Name	Perulangan_box
Memo	Name	Memo1
Label1	Caption	Angka awal              :
Label2	Caption	Banyak perulangan   :
Edit1	Caption	(dikosongkan)
	Name	Input_1
Edit2	Text	(dikosongkan)
	Name	Input_2
Button1	Text	While – Do
	Name	Button1
Button2	Caption	Repeat – until
	Name	Button2
Button3	Caption	For – do
	Name	Button3
Button4	Caption	For – downto
	Name	Button4
Button5	Caption	Restart
	Name	Button5

Setelah kita mengedit semua elemen pada form, dan mengganti namanya, kita dapat mulai menuliskan kode program sebagai penanganan event saat button diklik.jadi, saat button while-do diklik memo akan menampilkan hasil program perulangan dengan menggunakan while do, saat button repeat-until diklik, memo akan menampilkan hasil dari perulangan dengan menggunakan repeat-until, saat button for – do diklik, memo akan menampilkan hasil dari perulangan menggunakan for-do, saat button for-downto diklik, memo akan menampilkan hasil dari perulangan menggunakan for-downto dan saat button restart diklik, semua elemen program akan dikosongkan kembali dan program dapat diulang. untuk membuat event pada button while do, double klik pada elemen button while-do lalu tambahkan kode program seperti dibawah ini:

Kode diatas akan menampilkan hasil dari perulangan menggunakan while – do.logikanya adalah sebagai berikut:

• a := StrToInt (input_1.text) ;

kode diatas berarti akan mengkonversikan apa yang ada pada variable atau elemen input_2 menjadi integer.hal ini dilakukan supaya nilai yang ada pada variable input_2 dapat diproses dan dijadikan sebagai angka awal hasil perulangan.

• b := 1 ;

berarti memberikan harga awal b sama dengan 0.b akan digunakan sebagai variable pada prulangan.

• Memo1.Clear ;

Memo1.Lines.Add (‘perulangan while – do’) ;

Kode diatas berfungsi untuk mengosongkan memo agar tidak ada teks lainnya, dan mencetak judul hasil perulangan ‘perulangan while – do’.

• While b <= StrToInt (input_2.text) do

Begin

Memo1.Lines.Add (‘perulangan ke-’ , IntToStr(b).’ = ’,IntToStr(a)) ;

a = a + 1 ;

b = b + 1 ;

end ;

Perintah di atas merupakan perintah perulangan while-do. Perulangan akan dilakukan apabila nilai dari variabel “b” kurang dari atau sama dengan isi dari field “input_2” yang telah dikonversi menjadi data integer dengan kode StrToInt() program akan mencetak kalimat perulangan ke-‘b’ = (angka awal) lalu nilai a dan b akan ditambah 1 dan program akan diulang kembali sampai kondisi pada perulangan bernilai salah.

Setelah penanganan event pada button while – do selesai dibuat, selanjutnya double klik pada button repeat- until untuk menangani event jika button tersebut diklik.lalu tambahkan kode berikut:

Kode diatas akan menampilkan hasil dari perulangan menggunakan repeat - until.logikanya adalah sebagai berikut:

• a := StrToInt (input_1.text) ;

kode diatas berarti akan mengkonversikan apa yang ada pada variable atau elemen input_2 menjadi integer.hal ini dilakukan supaya nilai yang ada pada variable input_2 dapat diproses dan dijadikan sebagai angka awal hasil perulangan.

• b := 1 ;

berarti memberikan harga awal b sama dengan 0.b akan digunakan sebagai variable pada prulangan.

• Memo1.Clear ;

Memo1.Lines.Add (‘perulangan repeat-until’) ;

Kode diatas berfungsi untuk mengosongkan memo agar tidak ada teks lainnya, dan mencetak judul hasil perulangan ‘perulangan repeat-until.

• repeat

Begin

Memo1.Lines.Add (‘perulangan ke-’ , IntToStr(b).’ = ’,IntToStr(a)) ;

a = a + 1 ;

b = b + 1 ;

end ;

until b > StrToInt (input_2.text) ;

Perintah di atas merupakan perintah perulangan repeat - until. Perulangan akan dilakukan sampai nilai dari variabel “b” lebih dari field “input_2” yang telah dikonversi menjadi data integer dengan kode StrToInt() program akan mencetak kalimat perulangan ke-‘b’ = (angka awal) lalu nilai a dan b akan ditambah 1 dan program akan diulang kembali sampai kondisi pada perulangan repat - until bernilai benar.

Setelah penanganan event pada button repeat-until selesai dibuat, selanjutnya double klik pada button for-to untuk menangani event jika button tersebut diklik.lalu tambahkan kode berikut:

Kode diatas akan menampilkan hasil dari perulangan menggunakan for-to-do.logikanya adalah sebagai berikut:

• a := StrToInt (input_1.text) ;

kode diatas berarti akan mengkonversikan apa yang ada pada variable atau elemen input_2 menjadi integer.hal ini dilakukan supaya nilai yang ada pada variable input_2 dapat diproses dan dijadikan sebagai angka awal hasil perulangan.

• Memo1.Clear ;

Memo1.Lines.Add (‘perulangan for-to-do’) ;

Kode diatas berfungsi untuk mengosongkan memo agar tidak ada teks lainnya, dan mencetak judul hasil perulangan ‘perulangan for-to-do’.

• For b :=1 to StrToInt (input_2.text) do

Begin

Memo1.Lines.Add (‘perulangan ke-’ , IntToStr(b).’ = ’,IntToStr(a)) ;

a = a + 1 ;

end ;

Perintah di atas merupakan perintah perulangan for-to-do. Perulangan akan dilakukan sampai nilai dari variabel “b” sama dengan field “input_2” yang telah dikonversi menjadi data integer dengan kode StrToInt() dimana b telah diberi nilai awal sama dengan 1. program akan mencetak kalimat perulangan ke-‘b’ = (angka awal) lalu nilai a akan ditambah 1 dan program akan diulang kembali sampai kondisi pada perulangan for-to-do terpenuhi.

Setelah penanganan event pada button for –to-do selesai dibuat, selanjutnya double klik pada button for-downto untuk menangani event jika button tersebut diklik.lalu tambahkan kode berikut:

Kode diatas akan menampilkan hasil dari perulangan menggunakan for-downto.logikanya adalah sebagai berikut:

• a := StrToInt (input_1.text) ;

kode diatas berarti akan mengkonversikan apa yang ada pada variable atau elemen input_2 menjadi integer.hal ini dilakukan supaya nilai yang ada pada variable input_2 dapat diproses dan dijadikan sebagai angka awal hasil perulangan.

• c := 1 ;

berarti memberikan harga awal c sama dengan 1.c akan digunakan sebagai variable untuk mencetak banyaknya perulangan yang sedang berlangsung.

• Memo1.Clear ;

Memo1.Lines.Add (‘perulangan for-downto’) ;

Kode diatas berfungsi untuk mengosongkan memo agar tidak ada teks lainnya, dan mencetak judul hasil perulangan ‘perulangan for-downto’.

• For b := StrToInt (input_2.text) downto 1 do

Begin

Memo1.Lines.Add (‘perulangan ke-’ , IntToStr(c)’ = ’,IntToStr(a)) ;

a = a - 1 ;

c = c + 1 ;

end ;

Perintah di atas merupakan perintah perulangan for-downto-do. Perulangan akan dilakukan sampai nilai dari variabel “b” sama dengan 1, dimana b diberikan nilai awal sebesar nilai yang ada pada variable “input_2” yang telah dikonversi menjadi data integer dengan kode StrToInt() program akan mencetak kalimat perulangan ke-‘c’ = (angka awal) lalu nilai a akan dikurang 1, sehingga hasil dari perulngan for – downto – do ini akan semakin kecil nilainya. dan program akan diulang kembali sampai kondisi pada perulangan for-downto-do terpenuhi.

Setelah penanganan event pada button for – downto - do selesai dibuat, selanjutnya double klik pada button restart untuk menangani event jika button tersebut diklik.lalu tambahkan kode berikut:

Kode diatas akan mengosongkan kembali elemen – elemen pada proram, yang sama fungsinya untku mengulang program.jadi, saat button restart diklik, maka program akan kembali lagi ke tampilan awal.

Output program: