PEMBUATAN EVENT DENGAN VB 6

Wednesday, 27 January 2016
Posted by Unknown


1.      Event
Event merupakan kejadian pada yang akan menjalankan kode program, misalnya Click (klik), Drag Drop, DoubleClick (klik ganda), KeyPress, dll. Fungsi ini dapat digunakan untuk mengontrol peristiwa yang akan digunakan, dengan fungsi ini Suatu peristiwa pada proses pembuatan program visual basic dapat terkontol.
Contoh, pengguna dapat mengklik pada tombol, mengubah kotak teks, atau mengubah ukuran formulir. Setiap komponen dapat beraksi melalui event, seperti event click pada command button yang tertulis dalam layar script Command1_Click, atau event Mouse Down pada picture yang tertulis dengan Picture1_MouseDown. Pengaturan event dalam setiap komponen yang akan menjalankan semua metode yang dibuat.
Beberapa contoh event pada visual basic.
a.   Event Click dan DblClick
Event click terjadi ketika pemakai melakukan klik pada tombol kiri mouse. Demikian juga Event DblClick terjadi karena pemakai melakukan klik dua kali.
b.   Event Change
Event Change dibangkitkan ketika isi dari suatu kontrol berubah. Tetapi pada CheckBox, dan OptionButton Event Click yang dibangkitkan.
c.   Event GotFocus dan LostFocus
GotFocus dibangkitkan ketika kontrol menerima fokus, dan LostFocus dibangkitkan ketika fokus meninggalkannya dan beralih ke kontrol lain. Pada awalnya event ini banyak digunakan untuk mekanisme validasi ketika kontrol kehilangan fokus. Pada Visual Basic 6 telah diperkenalkan suatu event Validate event, yang lebih sesuai untuk masalah yang sama.
d.   Event KeyPress, KeyDown, dan KeyUp
Event-event ini dibangkitkan ketika pemakai menekan tombol pada keyboard pada kontrol yang memiliki fokus. Urutan eventnya adalah : KeyDown (ketika pemakai menekan tombol), KeyPress (Visual Basic menterjemahkan tombol ke numerik ANSI code), dan KeyUp (ketika pemakai melepas tombol).
Misal, untuk melihat event yang ada pada komponen CommandButton, klik 2x Command1




Latihan :
Buka form baru. Tambahkan komponen CommandButton.
Cara kerjanya : Ketika mousenya diletakkan diatas Command1 tersebut maka ukuran hurufnya berubah menjadi 20.
                                      


Klik 2x pada Command1. Pada sebelah kanan, cari event yang bernama MouseMove.



Masukkan kode programnya :



Hasilnya setelah dijalankan (arahkan mouse ke Command1) :



Latihan 2 => Buat desain form sbb :



Ketika dijalankan hasilnya sbb :


Ketika di klik komponen Text1, maka teksnya hilang/bersih. Ketika diketikkan teks pada Tex1, maka pada Label1 muncul teks yang sama


1.      CHECKBOX, OPTIONBUTTON DAN COMBOBOX
Checkbox digunakan untuk memilih satu atau beberapa pilihan secara bersamaan.
OptionButton digunakan untuk memilih satu pilihan diantara beberapa pilihan.
Combobox digunakan untuk menampilkan beberapa pilihan secara Drop-Down-List

Buatlah Form sebagai berikut :



OBJECT
PROPERTIES
Label1
Caption : DATA MAHASISWA
Label2
Caption : AMIK “AKMI” BATURAJA
Label3
Caption : 2011/2012
Label4
Caption : NPM
Label5
Caption : Nama
Label6
Caption : Alamat
Label7
Caption : Jenis Kelamin
Label8
Caption : Agama
Label9
Caption : Hobby
Text1
Text :
Text2
Text :
Text3
Text :
Option1
Caption : Laki-laki
Option2
Caption : Perempuan
Combo1
Text :

List : Islam (tekan Ctrl+Enter)
         Protestan
         Katolik
         Hindu
         Budha
       
Check1
Caption : Melukis
Check2
Caption : Olahraga
Check3
Caption : Jalan-jalan

Jalankan dan isikan datanya.
Tambahkan pilihan untuk Jenjang (menggunakan OptionButton) dan Jurusan (menggunakan Combobox)



Beberapa properti yang sering digunakan :

Properties
Fungsinya
Name
Nama komponen
BackColor
Warna latar belakang
Caption / Text
Menampilkan Teks
Enabled
Berisi True atau False
True = aktif
False = tidak aktif
Font
Pengaturan huruf
ForeColor
Warna huruf
Height
Tinggi/panjang
Visible
Berisi True atau False
True : komponen ditampilkan
False : komponen disembunyikan
Width
Lebar



Tambahkan dua CommandButton pada form di atas :




Command1
            Caption : Tambah

Command2
            Caption : Simpan


Klik 2x pada Command1, masukkan rumus :
            Text1.Enabled = True

Klik 2x pada Command2, masukkan rumus :
            Text1.Enabled = False


Jalankan programnya…

Welcome to My Blog

Blog Archive

Popular Post

Followers

- Copyright © INFORMASI KITA SEMUA -Robotic Notes- Powered by Blogger - Designed by Johanes Djogan -