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

Latihan PowerBuilder 8.0 : ARRAY

Latihan PowerBuilder :ARRAY
Array adalah sekumpulan variabel yang mempunyai nama yang sama namun dibedakan oleh indeks. Indeks array harus bertipe data yang menyatakan keterurutan. Indeks dapat berupa angka atau string. Jika indeks array berbentuk angka array akan disebut indexed array (vektor). Sedangkan jika indeksnya berupa string array tersebut disebut associative array.
Array dengan nama X dengan lima buah elemen dapat dibayangkan sebagai sekumpulan kotak yang terurut. Tiap kotak berisi indeks integer 1, 2, 3, 4, 5. tiap elemen array dapat ditulis :
X[1], X[2], X[3], X[4], X[5]
Angka yang terdapat didalam kurung siku disebut indeks array.
Setiap elemen array menyimpan sebuah nilai. Karena semua elemen array bertipe sama maka nilai yang disimpan oleh tiap elemen juga harus bertipe sama.

Ok. Untuk memperjelas kita coba dengan membuat sebuah aplikasi dengan menggunakan array .
Pertama pastikan kita sudah berada pada form kerja. Setelah itu kita buat sebuah listbox dengan nama defautl lb_1 untuk menampilkan elemen /nilai array. lalu kita buat single line edit untuk menginput nilai / elemen array. setelah itu kita buat sebuah command button untuk menampilkan nilai array kita beri nama cmd_tampil.
Setelah desain form yang selesai lalu kita coba untuk menuliskan powerscript nya.
Klik dua kali pada command button tampil lalu kita ketikan script berikut:

int i
int x[6]

for i=1 to 6
x[i] = i
lb_1.additem(string(x[i]))
next

maka ketika kita jalankan dan kita ketik tampil, list box akan menampilkan angka 1 2 3 4 5 6. int X[6] adalah variabel untuk membatasi jumlah array yang diinputkan, jadi jika kita tentukan misal X[6] maka array tersebut hanya akan memuat 6 buah elemen / nilai.

ok sekian dulu pengenalan tentang array. nanti kita akan sambung lagi ...

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.

bingung

lagi bingung harus ngapain ...
jadinya yaa ... ga ngapa ngapain :(

Save Palestine

SAVE PALESTINE ... !!!

STOP WAR !!!

Perulangan Pada PowerBuilder

Pada tutorial kali ini kita akan mencoba membahas tentang perulangan. Perulangan yang akan dibahas pada kesempatan ini adalah perulangan dengan menggunakan do – until dan do – loop – until.

1. do – until
pada perulangan do – until akan melakukan eksekusi sampai kondisi bernilai benar. Jika kondisi telah bernilai benar maka eksekusi akan berhenti atau keluar.

sintak

do until (kondisi)
(statement)
Loop


Contoh

integer a
a=1
do until (a>5)
lb_1.additem("hai")
a=a+1
loop

script diatas akan menghasilkan kata “hai” sebanyak 5 kali

hai
hai
hai
hai
hai

2. do – loop – until
pada perulangan do – loop - until akan melakukan eksekusi sampai kondisi bernilai benar. Jika kondisi telah bernilai benar maka eksekusi akan berhenti atau keluar.

Perbedaan dengan do – until adalah pada do – until pengecekan kondisi dilakukan diawal atau dengan kata lain program akan melakukan perngecekan kondisi terlebih dahuli baru melakukan eksekusi terhadap statement. Sedangkan pada do – loop – until pengecekan kondisi dilakukan di akhir jadi program akan melakukan eksekusi terhadap statement baru melakukan perngecekan kondisi.

sintak

do
(statement)
Loop until (kondisi)
Contoh

integer a
a=1
do
lb_1.additem("hai dian")
a=a+1
loop until (a>5)

script diatas akan menghasilkan kata “hai dian” sebanyak 5 kali

hai dian
hai dian
hai dian
hai dian
hai dian

ok, sekarang kita akan mencoba berlatih membuat sebuah program sederhana yaitu membuat sebuah program untuk memunculkan sejumlah bilangan genap dan bilangan ganjil berdasarkan inputan. Misal kita menginput angka 10 dan kita klik tombol genap maka akan muncul 10 buah bilangan genap, sebaliknya jika kita menginput angka 10 dan kita klik tombol ganjil maka akan muncul 10 buah bilangan ganjil.

Mencari Bilangan Genap
Ok kita mulai
Pertama kita buat sebuah statik text untuk judul dan kita beri judul perulangan. Lalu kita buat sebuah statik text lagi kita beri nama input. Untuk mengisikan nilai atau batas deret kita buat buat lagi sebuah single line edit beri nilai txt_b. Lalu kita buat sebuah list box untuk menampilkan deret / hasil. Setelah itu kita buat sebuah command buttom beri nama GENAP untuk mencari nilai genap.
Setelah desain form selesai di desain kita tuliskan script pada command button genap. Caranya klick dua kali command button genap lalu tulis script berikut:

int a,b,c

b=integer(txt_b.text)
a=1
c=2
do until (a>b)
lb_1.additem(string(c))
a=a+1
c=c+2
loop

jika kita jalankan script diatas maka ketika kita inputkan sebuah nilai pada single line edit dan kita klick tombol genap maka pada list box akan muncul deret angka genap sebanyak nilai yang kita inputkan. Misal kita inputkan angka 5 pada single line edit lalu kita klick genap maka pada list box akan muncul angka 2 4 6 8 10.

Mencari Bilangan GANJIL

Setelah kita berhasil membuat program untuk memunculkan / mencari deret angka genap sekarang kita coba untuk membuat program untuk memunculkan deret angka ganjil. Yaitu dengan cara kita buat sebuah command button dan kita beri nama GANJIL. Setelah itu kita klick dua kali command button tersebut lalu kita ketikan script berikut

int a,b,c

b=integer(txt_b.text)
a=1
c=1
do until (a>b)
lb_1.additem(string(c))
a=a+1
c=c+2
loop

jika kita jalankan script diatas maka ketika kita inputkan sebuah nilai pada single line edit dan kita klick tombol GANJIL maka pada list box akan muncul deret angka ganjil sebanyak nilai yang kita inputkan. Misal kita inputkan angka 5 pada single

line edit lalu kita klick GANJIL maka pada list box akan muncul angka 1 3 5 7 9.

Campuran

Nah ... sekarang kita telah berhasil membuat sebuah program untuk mencari nilai genap dan ganjil. Lalu bagaimana caranya jika kita ingin membuat sebuah program yang jika kita inputkan angka genap maka akan memunculkan deret angka genap sebanyak nilai yang kita inputkan, dan jika kita inputkan sebuah angka ganjil maka yang dimunculkan adalah sejumlah angka ganjil sebanyak nilai angka yang kita inputkan? Misal kita inpukan angka tiga maka akan muncul deret ganjil sebanyak 3 buah 1 3 5. dan jika kita input angka genap misal 4 maka akan muncul deret angka genap sebanyak 4 buah 2 4 6 8.

Untuk membuat program tersebut kita tinggal mengunakan metode pemilihan yaitu dengan menggunakan if – then dan kita kombinasikan dengan perulangan tadi.

Baiklah sekarang kita tambahkan lagi sebuah command button kita beri nama CAMPURAN. Setelah itu kita klick dua kali command button tersebuat lalu kita ketik sctipt sebagai berikiut :

int a,b,c

//GENAP
b=integer(txt_b.text)
a=1
c=2
if (mod(b,2)=0) then
do until (a>b)
lb_1.additem(string(c))
a=a+1
c=c+2
loop
else

//Ganjil

a=1
c=1
do until (a>b)
lb_1.additem(string(c))
a=a+1
c=c+2
loop
end if


coba jalankan program. Lalu kita inputkan angka 4 lalu klick campuran. Lihat apa yang muncul. Lalu kita coba kita inputkan angka 5 lalu klick campuran lihat apa yang muncul.

Selamat mencoba ....

Created by Dian Heryana

Presented to Mr Deny Martha, S.T.