Latihan PowerBuilder 8.0 : ARRAY 2

Latihan Powerbuilder 8.0: ARRAY

Setelah kita berkenalan tentang apa itu array, selanjutnya kita akan coba berlatih dengan menggunakan array. Disini kita akan coba membuat sebuah program dengan array dimana nilai arraynya kita inputkan. Lalu kita juga akan mencoba bagaimana agar jumlah inputanya kita batasi. Dan disini juga kita akan coba mencari nilai terbesar dan nilai terkecil dari array tersebut. Bingung? Ok jangan bingung bingung we can do it…
Pertama kita buka powerbuilder dan pastikan kita berada di form windows. Lalu kita buat sebuah listbox untuk menampilkan nilai dari array. Setelah itu kita buat sebuah single line edit yang berguna untuk input kita berinama txt_input. Lalu kita buat enam buah command button, command button pertama kita gunakan untuk input dan kita berinama cmd_input. Command button kedua kita gunakan untuk menampilkan data kita berinama cmd_tampil. Command button ketiga kita gunakan untuk mencari nilai maksimal kita beri nama cmd_max. command button keempat kita gunakan untuk mencari nilai minimum kita berinama cmd_min. command button yang kelima kita gunakan untuk reset kita berinama cmd_reset dan command button yang terakhir kita gunakan untuk close program kita berinama cmd_close. ( banyak sekali ngetiknya jadi pegel jari hehe …)
Sebelum kita ketik powerscript kita ketikan deklarasikan variabelnya terlebih dahulu. Variabel sebaiknya dibuat pada variabel global, kita ketik

int i=1
int x[10]
int max,min

Setelah itu … kita coba ketikan powerscriptnya. Powerscript untuk command button input kita ketik:

x[i]=integer(txt_input.text)
i=i+1
txt_input.text=""

namun jika kita ingin membatasi jumlah nilai yang diinputkan maka script nya adalah:

//input
if (i>5) then
messagebox("Pesan","tidak boleh input lebih dari 5")
else
x[i]=integer(txt_input.text)
i=i + 1
txt_input.text=""
end if

dengan script diatas, jika kita jalankan program maka inputnya tidak akan bisa lebih dari 5 jika kita inputkan lebih dari lima maka akan muncul pesan “tidak boleh input lebih dari 5”.

Powerscript untuk menampilkan nilai array adalah:
for i=1 to 5
lb_1.additem(string(x[i]))
next

dengan powercript tersebut maka kita akan menampilkan 5 buah elemen array

powerscript berikutnya adalah untuk mencari nilai maksimum / terbesar dari elemen array yang kita miliki, berikut scriptnya:
max=x[1]
for i=1 to 5
if ((x[i])>max) then
max=x[i]
else
max=max
end if
next

lb_1.additem(string(max))

sedangkan powerscript berikutnya adalah untuk mencari nilai terkecil dari elemen array yang kita miliki, adalah
min=x[1]
for i=1 to 5
if ((x[i])

min=x[i]
else

min=min

end if

next

lb_1.additem(string(min))
untuk reset kita ketikan
lb_1.reset()

sedangkan untuk close kita ketik
close(w_array)

selesai sudah ……. Sekarang kita coba jalankan. Kita coba inputkan angka 10, 15, 26, 5, 25 kita coba tampilkan satu – satu. Bagaimana hasilnya …..
selamat mencoba ….( maaf buru buru ada kuliah lagi ….)

presented to mr Deny Martha S.T.

presented by Dian Heryana