Perulangan dengan PowerBuilder 8.0 bagian 2

Perulangan dengan powerbuilder 8.0 bagian 2

(Deret 2)

Baiklah untuk pertemuan kali ini kita akan mencoba untuk berlatih membuat suatu deret (masih tentang perulangan). Kali ini kita akan membuat sebuah aplikasi yang akan menampilkan deret sebagai berikut 2 3 5 8 13 21 … n. mari kita perhatikan, deret tersebut memiliki pola : deret pertama (2) merupakan nilai awal, deret kedua (3) merupakan hasil pertambahan dari nilai awal (2) dengan nilai sebelum 2 yaitu 1. deret ketiga merupakan hasil pertambahan dari deret pertama (2) dengan deret kedua (3). Deret keempat (8) merupakan hasil pertambahan dari deret kedua (3) dengan deret ketiga (5). Begitu seterusnya ….
2 = nilai awal
3 = 2 + 1
5 = 2 + 3
8 = 3 + 5
Nah sekarang kita tinggal menentukan formula dari pola tersebut (ini yang agak memusingkan J). Baik kita coba.
Kita umpamakan deret tersebut dengan a,b,c
a = deret hasil
b = deret 1
c = deret 2
jadi
a = b + c
selanjutnya kita perlu menukar nilai dari variabel variabel tersebut
langkah selanjutnya kita perlu menukar nilai dari variabel b dengan nilai dari variabel c,
b = c
kemudian kita juga perlu meukar nilai dari variabel b dengan nilai dari variabel a,
c = a
(bingung …??? .. iya saya juga bingung menjelaskanya tapi begitulah logikanya menurut saya ... he he he ...).
Ok lah dari pada bingung bingung kita lanjut saja pada contoh aplikasi nya.
Kita jalankan powerbuilder sampai muncul form kerja. Kita beri nama w_deret
Setelah form kerja tampil kita buat sebuah list box dengan nama default lb_1. lalu kita buat sebuah single line edit untuk memasukan jumlah deret yang akan kita tampilkan disini saya berinama txt_batas. lalu kita buat sebuah command button untuk perintah menampilkan deret, kita berinama cmd_tampil dan kita beri nilai DERET atau apalah sesuai selera. Setelah itu kita tuliskan power script berikut ini:

int a,b,c,d,k
d=integer(txt_batas.text)
b=1
c=1
do until (k>=d)
k=k+1
a=b+c
lb_1.additem(string(a))
b=c
c=a
loop

coba kita jalankan jangan lupa kita beri perintah.
open(w_deret)
Lalu kita lihat hasilnya …
setelah berhasil kita bisa tambahkan pada aplikasi kita dengan command button – command button lain misal command button untuk reset, hapus dan jumlah dari deret
untuk mencari nilai jumlah kita hanya perlu menambahkan sebauh single line edit untuk menapung nilai jumlah tersebut misal kita buat sebuah single line edit dengan nama txt_jumlah. Lalu kita buat command button jumlah dan kita tuliskan power sript berikut.

//jumlah

int a,b,c,batas,jumlah,k
batas=integer(txt_batas.text)
b=1
c=1
jumlah = 0
do until (k>=batas)
k=k+1
a=b+c
lb_1.additem(string(a))
b=c
c=a
jumlah=jumlah + a
loop
txt_jumlah.text=string(jumlah)

power sript untuk reset

//reset
lb_1.reset()
txt_batas.text=""
txt_jumlah.text=""

power script untuk close

//close
close(w_deret)

itu saja latihan kita kali ini nanti kita sambung dengan latihan – latihan yang lainya. Mohon maaf dan koreksi jika ada kesalahan – kesalahan baik dalam logika berpikir, script maupun cara penyampaian. Terima kasih atas perhatian.

Bantu palestina dengan doa.
Save palestine …!!!

Dipersembahkan oleh Dian Heryana

Dipersembahkan kepada Bapak Deny Martha, S.T.