Tutorial PowerBuilder: Array (uas)

Tutorial PowerBuilder : array (UAS)
Pada kesempatan kali ini saya akan mencoba untuk memperbaiki kesalahan yang telah saya lakukan saat uas kemarin (jum’at 13/02/08) :).
Kita akan coba membuat sebuah aplikasi untuk menampilkan daftar mahasiswa dan menentukan nilai akhir yang diperoleh dari uts dan uas (lihat desain form pada gambar)
Baiklah mari kita coba ….
Pertama buat form seperti gambar, yaitu terdiri dari :
Buat Enam buah statictext yaitu untuk membuat judul form, nim mahasiswa, nama mahasiswa nilai uts, nilai uas dan nilai akhir.
Buat lima buah single line edit untuk menginput nim, nama, nilai uts, nilai uas, dan nilai akhir. Untuk nilai akhir merupakan penjumlahan dari nilai uts dan nilai uas dibagi 2.
Buat sebuah listbox untuk menampilkan daftar mahasiswa.
Nah kalau semua telah di buat sekarang kita akan coba untuk membuat command button dan perintahnya. Disini kita akan membuat lima buah command button, yaitu untuk perintah entry baru, simpan, tampil nilai tertinggi dan keluar. Untuk nilai tertinggi kita akan tampilkan pada messagebox.
Ok kita deklarasikan dulu variablenya kita gunakan variable global
int i=1,nuts,nuas,nakhir,max
int auts[5], auas[5],anilai[5]
string nim,nama
string anim[5], anama[5]
Setelah itu kita buat command button yang pertama yaitu command button untuk perintah entry baru. Kita beri nama cmd_baru dan text nya kita isi BARU. Untuk perintahnya kita ketikan
lb_1.reset()
jika perlu kita juga bisa tambahkan perintah berikut:
txt_nim.text=""
txt_nama.text=""
txt_uts.text=""
txt_uas.text=""
txt_nilai.text=""
lalu kita buat command button kedua yaitu untuk perintah simpan kita isi propertinya dan kita ketikan
nim=txt_nim.text
nama=txt_nama.text
nuts=integer(txt_uts.text)
nuas=integer(txt_uas.text)

nakhir= (nuts + nuas) / 2
txt_nilai.text=string(nakhir)

anim[i]=nim
anama[i]=nama
auts[i]=nuts
auas[i]=nuas
anilai[i]=nakhir

txt_nim.text=""
txt_nama.text=""
txt_uts.text=""
txt_uas.text=""
txt_nilai.text=""
i=i+1
setelah itu kita buat command button yang ketiga yaitu untuk perintah tampil, setelah propertinya diisi kita kerikan perintah:
for i=1 to 5
lb_1.additem((anim[i]) + " " + (anama[i]) + " " + (string(auts[i]))+" "+(string(auas[i]))+" "+(string(anilai[i])))
next
disini kita hanya batasi 5 buah saja.
Command button yang ke empat adalah untuk perintah nilai pertinggi dan perintahnya adalah
max=anilai[1]
for i=1 to 5
if ((anilai[i])>max) then
max=anilai[i]
else
max=max
end if
next
messagebox("Pesan","Nilai Tertinggi adalah"+" "+string(max))
dan yang terakhir adalah command button untuk keluar atau close perintahnya sebagai berikut:
close(w_d080)
selesai sudah … tapi saying pas kemarin ujian nggak kayak gini jawabannya jadi yaa… gitu deck. Maklum loadingnya suka agak lama…