Program Percabangan Dengan Delphi

Posted on Updated on


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:



Web development jakarta

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:

2 thoughts on “Program Percabangan Dengan Delphi

    Del Prio said:
    Oktober 18, 2010 pukul 5:08 pm

    lam kenal boz🙂

      outtaste responded:
      Oktober 18, 2010 pukul 5:12 pm

      salam kenal jg ..=)

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s