Program Percabangan Dengan Delphi
13/11/2010 15:35Program 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: 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: 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. berarti memberikan harga awal b sama dengan 0.b akan digunakan sebagai variable pada prulangan. 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’. 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: 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. berarti memberikan harga awal b sama dengan 0.b akan digunakan sebagai variable pada prulangan. 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. 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: 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.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’. 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: 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. berarti memberikan harga awal c sama dengan 1.c akan digunakan sebagai variable untuk mencetak banyaknya perulangan yang sedang berlangsung. 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’. 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:
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
Tags:
———
Back