Tutorial Belajar PowerBuilder Untuk Pemula 1 Part 2 (Pemrograman Tanpa Data Window)

Akhirnya kita bertemu kembali di Tutorial yang ke 2, :D :D

Disini saya akan membahas tentang Window yang ada pada PowerBuilder, dimana kita akan menggunakan Window tersebut tanpa menggunakan DataWindow,

Pertama-tama kalian harus tahu bahwa Datawindow adalah ruh yang menjadi kekuatan PowerBuilder. Karena fasilitas datawindow yang powerful, yang membuat mampu membangun aplikasi secara cepat dan efisien, PowerBuilder disebut sebagai contoh terbaik RAD (Rapid Application Development). Namun, sebenarnya anda bisa juga menggunakan PowerBuilder dengan tanpa menggunakan datawindow, seperti ketika anda sedang menggunakan Visual Basic, Borland Delphi, atau development tools yang lain.

Melanjutkan dari tutorial yang Part 1, inilah langkah selanjutnya
Langkah pertama Klik File => New => pada Tab PBObject Klik Window, " maka akan muncul Window Baru dan saya memberi nama Title Window "No DW, Lihat Gambar 1 dibawah

Gambar 1

Selanjutnya mari kita buat tampilan seperti gambar 2 dibawah:

Gambar 2

Lihat yang saya lingkari merah, kita bisa buat object itu dari toolbar tersebut atau kita bisa membuat dari Insert => Control, tergnatung bagaimana bagusnya atau cara mudahnya, dan berikut Objectnya

Tulisan Panjang, Lebar, Luas, dan Keliling adalah StaticText. Objek di sebelah kanannya untuk pengisian data, menggunakan SingleLineEdit. Nama Variabel untuk SingleLineEdit dari atas ke bawah adalah sle_pjg, sle_lbr, sle_luas, sle_kel.

Klik pada SingleLineEdit dan lihat Properties sebelah kanan, lebih jelas lihat gambar 3 yang saya lingkari merah dibawah:

Gambar 3

Kemudian Double Klik pada Tombol Hitung

Script untuk tombol Hitung adalah:

INTEGER li_pjg, li_lbr, li_luas, li_kel

li_pjg = Integer(sle_pjg.Text)

li_lbr = Integer(sle_lbr.Text)

li_luas = li_pjg * li_lbr

li_kel = 2 * (li_pjg + li_lbr)

sle_luas.Text = String(li_luas)

sle_kel.Text = String(li_kel)

Script untuk tombol Tutup adalah:

Close(Parent)

Kemudian Save Window yang baru saja anda buat tadi dan berinama w_no_datawindow

Lihat Gambar 4 dibawah:

Gambar 4

Kemudian Klik OK.....!!

Langkah selanjutnya agar tampilan window yang baru saja kita buat tadi bisa di jalankan, berikut langkah-langkahnya,,,

Double Klik pada Application Perkenalan, kemudian masukkan Script dibawah:

Open(w_no_datawindow) //ini adalah script window yang kita buat tadi

Kemudian Klik Save...

Lebih jelas lihat Gambar 5 dibawah:

Gambar 5

Kemudian Klik Run => Run Perkenalan atau CTRL+R

Maka akan tampil Window yang kita buat dan bisa buat menghitung Luas & Keliling Persegi Panjang, dengan hanya memasukkan angka pada Panjang dan lebar,, Mudah & Simple kan :D :D :D