PEMROGRAMAN II By : Sri Rezeki Candra Nursari
Penilaian : Genap TA 2010/2011 teori UAS - Lisan = 35 % UTS = 30 % ABSEN =5% Tugas = 15% QUIZ = 15 % __________________________________ Jumlah = 100%
email : 1. 2. 3. 4. 5. 6. 7. 8. 9. 10.
Radityo R.P - 4508210063 :
[email protected] Bayu A.P –4508210086:
[email protected] Suhendra E – 4508210052 :
[email protected] Alvi Andirachman – 4508210050 :
[email protected] Chandra nugeraha -4508210071:
[email protected] Saiful bahri – 4508210029 :
[email protected] Fify yulianty-4508210043:
[email protected] Perdana Hadi Sanjaya – 4508210053:
[email protected] Nina febriana 4508210028
[email protected] Agung riyadinata – 4508210004
[email protected] 11. Een yurnaida – 4508210002
[email protected] 12. Lucky febri – 4508210013
[email protected]
FORM, TEXTBOX, DAN COMMAND BUTTON
FORM
Properti Form
Form merupakan container karena digunakan untuk menampung obyek lain kedalamnya Properti yang sering digunakan: - Appearance Mengatur bentuk dasar tampilan form - BackColor Menentukan warna latar dari form - BorderStyle Menentukan jenis border form - Caption Teks yang akan menjadi judul form
Properti Form - Enabled Menentukan apakah sebuah form aktif atau tidak - ForeColor Warna yang digunakan untuk mencetak teks ke form - Height Menentukan tinggi form - Icon Gambar pada form yang akan terlihat apabila form diminimize - Left Menentukan posisi mendatar form pada layar - MaxButton Menentukan ada tidaknya maximize button pada form
Properti Form - MDIChild Menentukan apakah suatu form merupakan bagian dari MDI form - MinButton Menentukan ada tidaknya minimize button pada form - Name Nama dari form - Picture Gambar yang akan menjadi latar belakang dari form - Top Menentukan posisi vertikal dari form
Properti Form - Visible Menentukan apakah form tampak dilayar atau tidak - Width Menentukan lebar dari form - WindowState Mengatur ukuran form saat ditampilkan dilayar
Siklus Hidup Form
Terdapat 9 tahap pada siklus hidup sebuah form:
Initialize Load Resize Activate Paint Deactivate Query Unload Unload Terminate
Siklus Hidup Form
Initialize Event
Initialize event Event ini akan menginisialisasi variabel-variabel yang terdapat pada sebuah form Contoh: Private Sub Form_Initialize() x=1 nama = “” End Sub
Load Event
Load event tidak dijalankan kalau yang direference hanya variabel publik (public variabel) yang ada pada form tersebut Load event akan dijalankan kalau control pada sebuah form dipanggil dari form lain Pada saat load event dijalankan, form belum terlihat Untuk memunculkan form dapat dilakukan dengan menggunakan method show Contoh: load form1 form1.show Pada saat form belum muncul, kita tidak bisa melakukan operasi yang hanya bisa dilakukan saat form tampak. Contoh: method setfocus tidak bisa dilakukan saat form belum nampak. Kalau dilakukan akan muncul error “invalid procedure call or arguments”
Resize Event
Digunakan untuk mengatur control pada suatu form supaya tampilan lebih rapi Dijalankan ketika pengguna merubah ukuran form baik secara manual maupun melalui kode program
Activate Event
Dipanggil ketika sebuah form menjadi aktif Sebuah form menjadi aktif ketika: - form pertama kali dipanggil - fokus berpindah ke form lain dan kembali lagi ke form semula Berguna ketika harus mengupdate data yang sudah diupdate di form lain
Paint Event
Dijalankan kalau property autoredraw di set ke true Dijalankan ketika form di refresh: - Ketika menggeser sebuah form sehingga menutupi form dan menggeser kembali sehingga form itu nampak kembali seluruhnya - Ketika merubah ukuran form - Ketika memanggil method refresh dari form form1.refresh Digunakan untuk menggambar ulang isi form dengan menggunakan metoda-metoda grafik seperti print, line, circle, point, cls, dsb.
Deactivate Event
Event deactivate akan dijalankan: - Ketika kita memindah fokus dari sebuah form ke form lain, maka form yang kehilangan fokus akan menerima event deactivate dan form yang menerima fokus akan menerima event activate - Ketika property visible diset ke false - Ketika menjalankan method hide kepada sebuah form
Query Unload
Form yang diunload akan menerima method query unload Terdapat dua parameter pada query unload 1. Cancel Digunakan untuk membatalkan unload. Caranya dengan memberi nilai parameter cancel dengan true 2. UnloadMode Digunakan untuk mengetahui sebab-sebab suatu form diunload Macamnya: - vbFormControlMenu ditutup oleh user - vbFormCode ditutup melalui kode program - vbAppWindows Windowsnya ditutup
Query Unload
- vbAppTaskManager ditutup oleh task manager - vbFormMDIForm ditutup oleh MDI Parent - vbFormOwner ditutup oleh pemilik form Contoh penggunaan parameter cancel: Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode as Integer) Cancel = True End Sub pengguna tidak bisa menutup form dengan cara mengklik tombol x (close) pada form
Unload Event
Jika unload tidak dibatalkan, maka event unload akan dijalankan Pada event unload, pengguna masih diberi kesempatan untuk membatalkan proses unload melalui parameter cancel Pada unload event, VB akan menghancurkan semua control yang ada pada form, mengunload form, dan membersihkan semua resource yang dialokasikan ke memori saat loading form
Terminate Event
Digunakan untuk membersihkan obyek yang digunakan dalam program, menutup file jika aplikasi melakukan operasi input/output ke suatu file, dsb.
Contoh Program -
Event pada form: a. MouseDown b. MouseUp c. MouseMove
-
Event MouseDown terjadi bila kita mengklik mouse Event MouseUp terjadi bila kita melepaskan tombol mouse Event MouseMove terjadi bila kita menggerakkan mouse
-
-
Macam button pada mouse : a. vbleftbutton (atau 1) b. vbmiddlebutton (atau 4) c. vbrightbutton (atau 2)
Contoh Program Dim tekan as Boolean Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbLeftButton Then CurrentX = X CurrentY = Y Print "A" tekan = True End If End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Text1.Text = X Text2.Text = Y If tekan = True Then CurrentX = X CurrentY = Y Print "A" End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) tekan = False End Sub
TEXTBOX
Property Textbox
Textbox merupakan komponen yang digunakan untuk meminta input dari user Property yang umum digunakan: - Alignment Digunakan untuk menampilkan posisi teks pada textbox - Appearance Digunakan untuk menentukan mode tampilan textbox - Backcolor Digunakan untuk menentukan warna background dari textbox - Enabled Apabila bernilai true maka textbox aktif, sebaliknya bila bernilai false maka textbox tidak aktif
Property Textbox - Maxlength Digunakan untuk menentukan banyaknya karakter yang dapat diinput ke dalam suatu textbox - Mulitiline Bila di set ke true maka textbox bisa berisi lebih dari satu baris - Scrollbar Digunakan untuk menampilkan penggulung jika properti multiline diset ke true - Text Berisi teks yang akan dimasukkan ke dalam textbox - Passwordchar Digunakan untuk mengganti karakter yang dimasukkan menjadi karakter lain, biasanya karakter *
Property Textbox
Runtime Properties: - selstart Digunakan untuk mengambil posisi awal dari text yang dipilih oleh user - sellength Digunakan untuk mengambil jumlah karakter yang dipilih oleh user. Properti ini akan berisi 0 jika tidak ada text yang dipilih - seltext Digunakan untuk mengambil text yang sedang dipilih (diblok) oleh user. Properti ini mengembalikan nilai “” (string kosong) jika tidak ada text yang dipilih oleh user
Macam Aplikasi Pada Textbox alvi, perdana
Validasi Input Misal kita akan meminta hanya input yang berupa angka saja: Private Sub txtnim_KeyPress(KeyAscii As Integer) If InStr(“0123456789”, Chr(KeyAscii)) = 0 And KeyAscii <> 8 Then KeyAscii = 0 End If End Sub
Validasi Input (hanya input berupa karakter saja) Private Sub Text1_KeyPress(KeyAscii As Integer) For no = 48 To 57 If KeyAscii = no Then KeyAscii = 0 End If Next no End Sub
Macam Aplikasi Pada Textbox
Memindahkan kursor ke textbox selanjutnya Kalau enter ditekan, kursor akan pindah Private Sub txtnama_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then txtalamat.setfocus End If End Sub Memindahkan kursor ke textbox selanjutnya Kalau jumlah karakter maksimum pada textbox sudah tercapai, maka kursor akan pindah. Biasa dipakai kalau mengisi nomer. Property maxlength harus diisi (misal: 4) Private Sub Text1_Change() If Len(Text1.Text) = 4 Then Text2.SetFocus End Sub
COMMAND BUTTON
Properti Command Button
Command button merupakan komponen yang dipakai untuk mengeksekusi suatu proses Properti yang umum digunakan: - Backcolor: Untuk merubah warna latar dari command button. Untuk melihat perubahannya, properti style harus di set ke 1 (graphical) - Cancel Digunakan sebagai alternatif untuk mengakhiri suatu proses. Kalau diset ke true, maka proses bisa berakhir kalau tombol Esc ditekan - Default Digunakan sebagai alternatif untuk melanjutkan proses. Kalau diset ke true, maka proses akan dilanjutkan ketika tombol Enter ditekan - Downpicture Digunakan untuk menampilkan gambar pada saat tombol ditekan
Properti Command Button - Enabled Digunakan untuk mengaktifkan atau menonaktifkan command button - MouseIcon Digunakan untuk menentukan bentuk pointer mouse ke icon tertentu apabila mouse terletak diatas command button. Untuk melihat hasilnya, property mousepointer harus diset ke 99-custom - MousePointer Digunakan untuk menentukan tipe pointer mouse - Picture Untuk menampilkan gambar pada command button - Style Untuk menentukan jenis tombol: standard atau grafik - Visible Digunakan untuk memunculkan atau menghilangkan command button