MEMBUAT APLIKASI DATABASE DI VB 6.0 DENGAN MENGGUNAKAN ADODC & DATAGRID

langkah - langkah untuk pembuatan aplikasi tersebut.

pertama buat gambar seperti ini:

 

Object-object yang di gunakan:

-Label

-TextBox

-CommandBotton

-DataGrid

-ADODC

Untuk pengaturan propertisnya bisa anda ikuti petunjuk di bawah ini:

Object	Propertis	Nama
Label1	Name Caption	Label1 Kode_jurusan
Label2	Name Caption	Label2 Nama_jurusan
Text1	Name Caption	Txt_kd_jur Kd_jur
Command1	Name Caption	Cmd_tambah &tambah
Command2	Name Caption	Cmd_ubah &ubah
Command3	Name Caption	Cmd_hapus &hapus
Command4	Name Caption	Cmd_keluar &keluar

untuk object ADODC berbeda dengan di atas, ikuti gambar berikut:

 

lalu klik build akan muncul seperti di bawah ini:

pada connection kita masukkan file database yang pernah kita buat sebelumnya, jika belum melihat artikel sebelumnya klik disini ,.

lalu pada provider kita pilih microsoft jet 3.51OLE DB Provider, lalu klik ok.

selanjutnya klik kanan pada area datagrid dan klik retrieve fields...

lalu masukkan codinganya:
Private Sub normal()

cmd_tambah.Caption = "&tambah"
cmd_ubah.Caption = "&ubah"
cmd_hapus.Caption = "&hapus"
cmd_keluar.Caption = "&keluar"
cmd_tambah.Enabled = True
cmd_ubah.Enabled = True
cmd_hapus.Enabled = True

End Sub
Private Sub bersih()

txt_kd_jur = ""
txt_nm_jur = ""
txt_kd_jur.SetFocus

End Sub


Private Sub cmd_hapus_Click()
If cmd_hapus.Caption = "&hapus" Then
Call bersih
cmd_hapus.Caption = "&oke"
cmd_tambah.Enabled = False
cmd_ubah.Enabled = False
cmd_keluar.Caption = "&batal"
   Else
Adodc2.RecordSource = "select* from jurusan where kdjur ='" & Trim(txt_kd_jur) & "'"
   Adodc2.Refresh
   Adodc1.Recordset.Delete
  'Adodc1.Refresh
   DataGrid1.Refresh
   End If


End Sub

Private Sub cmd_keluar_Click()
If cmd_keluar.Caption = "&keluar" Then
Unload Me
Else
Call bersih
Call normal

End If
End Sub

Private Sub cmd_tambah_Click()
If cmd_tambah.Caption = "&tambah" Then
Call bersih
cmd_tambah.Caption = "&simpan"
cmd_ubah.Enabled = False
cmd_hapus.Enabled = False
cmd_keluar.Caption = "&batal"
   Else
   Adodc1.Recordset.AddNew
   Adodc1.Recordset("kdjur") = Trim(txt_kd_jur.Text)
   Adodc1.Recordset("nmjur") = Trim(txt_nm_jur.Text)
   Adodc1.Recordset.Update
   Adodc1.Refresh
   DataGrid1.Refresh
   Adodc1.Refresh
   DataGrid1.Refresh
End If

Call bersih
End Sub

Private Sub cmd_ubah_Click()
If cmd_ubah.Caption = "&ubah" Then
Call bersih
cmd_ubah.Caption = "&simpan"
cmd_tambah.Enabled = False
cmd_hapus.Enabled = False
cmd_keluar.Caption = "&batal"
   Else
   Adodc2.RecordSource = "select* from jurusan where kode_jurusan ='" & Trim(txt_kdjur) & "'"
   'Adodc2.Refresh
  Adodc1.Recordset("nmjur") = Trim(txt_nm_jur)
  Adodc1.Recordset.Update
  Adodc1.Refresh
  Adodc1.Refresh
  DataGrid1.Refresh
  End If
End Sub

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;User ID=admin;Data Source=D:\ROJAK_VB\akademik.mdb"
Adodc1.RecordSource = "select * from jurusan"
Adodc1.Refresh
DataGrid1.Refresh
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;User ID=admin;Data Source=D:\ROJAK_VB\akademik.mdb"
Adodc2.RecordSource = "Select *from Jurusan"
Adodc2.Refresh

End Sub

Private Sub Text1_Change()

End Sub

Private Sub txt_kd_jur_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;User ID=admin;Data Source=D:\ROJAK_VB\akademik.mdb"
Adodc2.RecordSource = "Select *from Jurusan where Kode_Jurusan = '" & Trim(txt_kdjur.Text) & "'"
Adodc2.Refresh

If Not Adodc2.Recordset.EOF Then
    If Command1.Caption = "&Simpan" Then
        MsgBox "Data sudah ada"
        Text1.SetFocus
Else
        Text2.Text = Adodc2.Recordset("Nama_Jurusan")
        Text2.SetFocus
    End If
Else
    If Command1.Caption = "&Simpan" Then
        Text2.SetFocus
    Else
        MsgBox "Data sudah ada"
        Text1.SetFocus
        End If
End If
End If

End Sub


selanjutnta kita run:

 

kita klik tambah akan muncul , tombol tambah jadi simpan, tombol keluar jadi batal, tombol ubah dan hapus menjdai tidak aktiv, dan kita input datanya kemudian klik simpan

kita klik ubah tombol ubah berubah jadi simpan , tombol keluar jadi batal dan tombol tambah dan hapus menjadi tidak aktiv

kita ubah datanya

 kita klik hapus maka yang terjadi tombol hapus berubah jadi oke tombol keluar menjadi batal n tombol tambah dan ubah menjadi tidak aktif.

lulu klik kode yang akan kita hapus

lalu klik ok, maka akan terhapus kode jurusan dan nama jurusannya,,

Selanjutnya kita klik keluar , maka akan keluar dari aplikasi dan kembali ke windows.

Okeehh..
selamat mencoba…

MEMBUAT APLIKASI DATABASE DENGAN MENGGUNAKAN VB 6.0

langkah - langkah untuk pembuatan aplikasi tersebut.

pertama buat gambar seperti ini:

untuk DBGRID kita mesti menambahkannya..
caranya:
a.klik kannan pada area object,
b.kllik components..
c.pilih microsoft data bound grid 5.0(SP3)
setelah itu klik ok.

selanjutnya kita membuat databasenya.

klik add_ins atau bisa dengan menekan alt+a lalu pilih visual data manager , selanjutnta kllik file, new, microsoft acces dan version 7MDB
lihat gambar di bawah ini:









kita save pada data kita selain d C..
klik kanan pada properties, lalu klik new table..

                                                                            


kita isikan data base nya..
table name : jurusan

klik add field
name= kode jurusan
klik ok
name = nama_jurusan
klik ok
klik close
klik build the table

selanjut nya kita rubah pada

 

sekarang kita masukin coding nya :

Private Sub cmd_hapus_Click()
If cmd_hapus.Caption = "hapus" Then
bersih
cmd_hapus.Caption = "simpan"
cmd_tambah.Enabled = False
cmd_ubah.Enabled = False
cmd_keluar.Caption = "batal"
Else
Data2.RecordSource = "select*from jurusan where kode_jurusan='" & Trim(txt_kd_jur) & "'"
'data2.Refresh
Data1.Recordset.Delete
Data1.Refresh
DBGrid1.Refresh
bersih
normal
End If
End Sub

Private Sub cmd_keluar_Click()
If cmd_keluar.Caption = "keluar" Then
Unload Me
Else
bersih
normal
End If
End Sub

Private Sub cmd_tambah_Click()
If cmd_tambah.Caption = "tambah" Then
bersih
cmd_tambah.Caption = "simpan"
cmd_ubah.Enabled = False
cmd_hapus.Enabled = False
cmd_keluar.Caption = "batal"
Else
Data1.Recordset.AddNew
Data1.Recordset("kode_jurusan") = Trim(txt_kd_jur.Text)
Data1.Recordset("nama_jurusan") = Trim(txt_nm_jur.Text)
Data1.Recordset.Update
Data1.Refresh
DBGrid1.Refresh
bersih
normal
End If
End Sub

Private Sub cmd_ubah_Click()
If cmd_ubah.Caption = "ubah" Then
bersih
cmd_ubah.Caption = "simpan"
cmd_tambah.Enabled = False
cmd_hapus.Enabled = False
cmd_keluar.Caption = "batal"
Else
Data2.RecordSource = "select*from jurusan where kd_jur='" & Trim(txt_kd_jur.Text) & "'"
'Data2.Refresh
Data1.Recordset.Edit
Data1.Recordset("nama_jurusan") = Trim(txt_nm_jur.Text)
Data1.Recordset.Update
Data1.Refresh
DBGrid1.Refresh
bersih
normal
End If
End Sub

Private Sub form_load()
txt_kd_jur = ""
txt_nm_jur = ""
End Sub

Private Sub bersih()
txt_kd_jur.SetFocus
txt_kd_jur.Text = ""
txt_nm_jur.Text = ""

End Sub


Private Sub normal()
cmd_tambah.Caption = "tambah"
cmd_ubah.Caption = "ubah"
cmd_hapus.Caption = "hapus"
cmd_keluar.Caption = "keluar"
cmd_tambah.Enabled = True
cmd_ubah.Enabled = True
cmd_hapus.Enabled = True
End Sub

coba kita run

klik tambah , tambah berubah jadi simpan , ubah dan hapus berubah menjadi tidak aktiv, keluar berubah jadi batal

lalu lita input

setelah kita input dan simpan tombol kembali normal.

kita klik ubah, ubah berubah jadi simpan , keluar jadi batal, tambah dan hapus menjadi tidak aktiv.

kita klik batal tombol kembali normal..
kita klik hapus, hapus jadi simpan, keluar jadi batal dan tambah n ubah tidak aktiv..

jika kita klik keluar maka selesai aplikasinya..

selamat mencoba

LOOPING

Looping dengan menggunakan dengan "DO WHILE".....
Seperti biasa pertama kita masuk ke dalam  microsoft visual basic 6.0..
kemudian buat seperti gambar di bawah:

lalu edit captionnya, seperti :

terus edit jga back colornya jadinya kaya gini :

lalu masukin deh coding nya :
"Private Sub Command1_Click()
n = Val(Text1)
Do While i <= n
If i Mod 2 = 0 Then
List1.AddItem 1
Else
List1.AddItem -1
End If
i = i + 1

Private Sub Command2_Click()
Dim i, n As Integer
i = 1
a = 2
n = Val(Text2)
Do While i <= n
If i Mod 2 = 0 Then
List2.AddItem -a
Else
List2.AddItem a

End If
i = i + 1
a = a + 2
Loop
End Sub


Private Sub Command3_Click()
Dim a As Integer
a = 1
i = 1
n = Val(Text3)
Do While i <= n
List3.AddItem a
If a = 2 Then
a = 3
Else
a = a + 3
i = i + 1
End If

Loop

End Sub




Private Sub Command4_Click()
i = 1
a = 2
n = Val(Text4)
Do While i <= n
List4.AddItem a
a = a * a
i = i + 1
Loop
End Sub"





Terus play hasil nya kaya gini:

okey...
selamat mencoba..
(",)..

MEMBUAT APLIKASI KALKULATOR PALING SEDERHANA MENGGUNAKAN VB 6.0

 

 buat seperti di atas ato terserah lah mau buat model kaya mna asal comond buttonya ada 15, text boxnya ada 3 dan 1 label..

di bawah ini codingnya..

Dim stt, stt2 As String

Private Sub Command1_Click()

If stt = "T" Then

Text1.Text = 7

Else

If stt2 = "T" Then

Text2.Text = 7

End If

End If

End Sub

Private Sub Command10_Click()

If stt = "T" Then

Text1.Text = 0

Else

If stt2 = "T" Then

Text2.Text = 0

End If

End If

End Sub

Private Sub Command11_Click()

Label1.Caption = "+"

End Sub

Private Sub Command12_Click()

Label1.Caption = "/"

End Sub

Private Sub Command13_Click()

Label1.Caption = "*"

End Sub

Private Sub Command14_Click()

Label1.Caption = "-"

End Sub

Private Sub Command15_Click()

If Label1.Caption = "+" Then

Text3.Text = Val(Text1.Text) + Val(Text2.Text)

Else

If Label1.Caption = "-" Then

Text3.Text = Val(Text1.Text) - Val(Text2.Text)

Else

If Label1.Caption = "*" Then

Text3.Text = Val(Text1.Text) * Val(Text2.Text)

Else

Text3.Text = Val(Text1.Text) / Val(Text2.Text)

End If

End If

End If

End Sub

Private Sub Command2_Click()

If stt = "T" Then

Text1.Text = 8

Else

If stt2 = "T" Then

Text2.Text = 8

End If

End If

End Sub

Private Sub Command3_Click()

If stt = "T" Then

Text1.Text = 9

Else

If stt2 = "T" Then

Text2.Text = 9

End If

End If

End Sub

Private Sub Command4_Click()

If stt = "T" Then

Text1.Text = 4

Else

If stt2 = "T" Then

Text2.Text = 4

End If

End If

End Sub

Private Sub Command5_Click()

If stt = "T" Then

Text1.Text = 5

Else

If stt2 = "T" Then

Text2.Text = 5

End If

End If

End Sub

Private Sub Command6_Click()

If stt = "T" Then

Text1.Text = 6

Else

If stt2 = "T" Then

Text2.Text = 6

End If

End If

End Sub

Private Sub Command7_Click()

If stt = "T" Then

Text1.Text = 1

Else

If stt2 = "T" Then

Text2.Text = 1

End If

End If

End Sub

Private Sub Command8_Click()

If stt = "T" Then

Text1.Text = 2

Else

If stt2 = "T" Then

Text2.Text = 2

End If

End If

End Sub

Private Sub Command9_Click()

If stt = "T" Then

Text1.Text = 3

Else

If stt2 = "T" Then

Text2.Text = 3

End If

End If

End Sub

Private Sub Text1_click()

stt = "T"

stt2 = "F"

End Sub

Private Sub Text2_Click()

stt = "F"

stt2 = "T"

End Sub

ini lah hasil jadinya...

  

 

 selamat mencoba..(*_*)

FUNGSI DARI MASING-MASING OBJECT PADA VISUAL BASIC(VB)

Memahami Objek pada Visual Basic

Apa yang dimaksud dengan Objek

Objek merupakan suatu kombinasi dari kode dan data yang dapat diperlakukan sebagai satu kesatuan. Suatu Objek dapat merupakan bagian dari aplikasi seperti suatu kontrol atau suatu form. Secara keseluruhan dari aplikasi dapat juga berupa suatu objek.

LABEL

Label lebih sering digunakan untuk menampilkan judul, teks, penjelasan disebelah kotak teks, keterangan dsb.

Untuk menggunakan label ini digunakan kontrol Label (), pada umumnya yang harus diset pada kontrol label hanyalah propertinya saja, seperti ukuran, warna, dsb.

Command Button

Objek ini hampir selalu hadir pada setiap aplikasi, fungsi dari kontrol ini biasanya untuk mengeksekusi perintah tertentu. Seperti Tombol OK, Cancel, Exit, Apply, Open dll. Contoh seperti gambar berikut :

1) Event pada Command

Umumnya event yang sering digunakan adalah event click, biasanya event ini digunakan untuk menjalankan atau mengeksekusi suatu perintah tertentu. Seperti membuka jendela baru, keluar dari form, menerima input dari aplikasi dsb.

2) Metode pada Command Button

Metode yang ada pada command antara lain Move, Refresh, SetFocus dan Zorder (fungsi sama dengan di atas).

Option Button

Yaitu suatu kontrol dimana user dapat memilih salah satu dari banyak pilihan. Pilihan ini sifatnya tunggal.

1) Event pada option Button

Umumnya event yang sering digunakan adalah event Click()

2) Membuat kelompok option Button

Umumnya option yang dijadikan berkelopok dengan menggunakan kontrol “frame”, yaitu kontrol pada VB yang berupa bingkai segi empat berfungsi menjadi bingkai atau tempat kontrol-kontrol yang lain.

CheckBox

Sebuah kontrol pemilihan yang berfungsi hampir sama dengan option button. Hanya saja bedanya pada checkbox ini pilihan bisa dipilih lebih dari satu pilihan.

Properti Checkbox

Propertinya hampir sama dengan yang ada pada option button, namau yang terpenting adalah :

Combo Box

Yaitu kontrol yang sama kegunaanya dengan listbox, perbedaanya adalah user dapat mengisikan nilai baru pada kotak kombo tersebut.

Macam-Macam Combo Box

1. Drop-Down : yang ditampilkan satu baris saja. Kotak ini akan terbuka jika user menekan tanda panah pada pojok kanan kotak kombo. Dan user dapat diinput nilai kedalam kotak kombo tersebut.

2. Simpel Combo : kotak ini mirip seperti daftar list box, user hanya bisa mengetik dibagian atas kotak kombo saja.

3. Drop Down List : ditampilkan satu baris saja, sama seperti Drop-Down, namun kotak tidak bisa diinput

List Box (Kotak Daftar)

Pada kotak daftar ini user hanya bisa memilih pilihan dan tidak bisa mengisikan pilihan kedalam kotak daftar.

Macam-macam List Box

1. Standart List Box

2. Check List Box

Properti yang umum dipakai objek List Box

Event yang umum dipakai objek List Box

Event yang sering digunakan oleh objek listbox ini adalah event Click() atau DblClick()

A. Image

Kontrol ini berfungsi menampilkan file gambar pada aplikasi, seperti untuk tujuan hiasan, logo, perlengkapan data dsb.

Menampilkan gambar dengan Image :

1. tambahkan image dari toolbox

2. temtukan gambar yang akan ditampilkan pada kontrol image, dengan mengatur propeti Pinture.

3. Klik tombol elipsis, yang terdapat disebelah kanan properti tersebut.

4. Kotak pada dialog picture yang muncul, carilah file gambar yang terdapat pada komputer. Atau bukalah folder berukut:

C:\Program Files\Microsoft Visual Studio\Commond\Graphics.

Menampilkan gambar dengan Program:

1. tambahkan image dari toolbox

2. Format Programnya sbb:

namaKontrol.Picture = LoadPicture(“namafile”)

B. Picture Box

Kontrol ini tidak jauh berbeda dengan kontrol Image, yang berfungsi untuk menampilkan gambar pada aplikasi. Hanya saja bedanya, lebih banyak properti dan metode yang bisa diterapkan.

Properti yang umum dipakai objek List Box

Line (Garis)

Biasanya digunakan untuk membuata garis, agar tampilan aplikasi lebih menarik, bermacam-macam bentuk garis bisa dibuat begitu juga ketebalan dari garis tersebut.

Properti yang umum digunakan sbb :

Shape (Bangun)

Selain garis, kita juga bisa menambahkan bangunan-bangunan geometris sederhana, seperti kotak, elips dll.

Secara default bentuk ukuran dari kontrol ini adalah segi empat (o-rectangle) bentuk bisa diubah bila kita memilih properti Shape dan mengubahnya seuai dengan pilihan kita.

Sedangkan untuk merubah pola yang terdapat didalam kontrol, kita bisa merubah properti FillStyle.

Properti yang umum digunakan sbb :

Ø  PicturBox adalah kontrol yang digunakan untuk menampilkan image dengan format: BMP, DIB (bitmap), ICO (icon), CUR (cursor), WMF (metafile), GIF, dan JPEG.

Ø   Label adalah kontrol yang digunakan untuk menampilkan teks yang tidak dapat diperbaiki oleh pemakai.

Ø  TextBox adalah kontrol yang mengandung string yang dapat diperbaiki oleh pemakai, dapat berupa satu baris tungggal, atau banyak baris.

Ø  Frame adalah kontorl yang digunakan sebagai kontainer bagi kontrol lainnya.

Ø  CommandButton merupakan kontrol hampir ditemukan pada setiap form, dan digunakan untuk membangkitkan event proses tertentu ketika pemakai melakukan klik padanya.

Ø  ChekBox di gunakan untuk pilihan yang isinya bernilai yes/no, true/false.

Ø  OptionButton sering digunakan lebih dari satu sebagai pilihan terhadap beberapa option yang hanya dapat di pilih satu.

Ø  ListBox mengandung sejumlah item, dan user dapat memilih dari satu (bergantung pada property MultiSelect).

Ø  ComboBox merupakan kombinasi dari TextBox dan suatu ListBox dimana pemasukan data dapat dilakukan dengan pengetikan maupun pemilihan.

Ø  Timer digunakan untuk proses background yang di aktivkan berdasarkan interval waktu tertentu.  Merupakan kontrol non visual.

Ø  Image berfungsi menyerupsi image box, tetapi tidak dapat digunakan sebagai kontainer bagi kontrol lainnya. Sesuatu yang perlu diketahui bahwa kontrol image menggunakan resource yang lebih kecil dibandingkan dengan PictureBox.

Ø  OLE  dapat digunakan sebagai tempat bagi program eksternal seperti Microsoft Excel, Word, dll.

Ø  HscrollBar dan VscrollBar digunakan untuk membentuk scrollbar berdiri sendiri.

Ø  Shape dan Line digunakan untuk menampilkan bentuk seperti garis, persegi, bulatan, oval.

Ø  Data digunakan untuk data binding.

PROPERTI

PROPERTI  merupakan identitas dari suatu object dan yang akan mmbedakan antar satu object dengan object lainnya.

Beberapa property yang sering digunakan,diantaranya:

• Name, untuk memberikan nama suatu object.
• Caption, untuk menampilkan teks yang biasanya digunakan untuk judul dan tidak dapat diubah secara langsung.
• Text, untuk menampilkan teks dan dapat di ubah secara langsung.
• List, untuk menuliskan daftar pilihan pada ComboBox dan ListBox.
• Font, untuk menentukan jenis  dan ukuran huruf yang digunakan.
• BackColor, untuk mengatur warna latar belakang.
• ForeColor, untuk mengatur warna teks atau grafik.
• Enabled,  pengaturan agar suatu object tidak dapat diakses.
• Visible, untuk menyembunyikan atau menampilkan suatu object.
• Height, untuk mengatur ukuran tinggi suatu object.
• Width, untuk mengatur ukuran lebar suatu object.
• MousePointer, untuk mengubah pointer mouse berubah apabila melewati object tersebut
• StartUpPosition, untuk mengatur posisi form pada saat di jalankan

    

EVENT

Event merupakan suatu tindakan yang dilakukuan untuk mengerjakan suatu proses . Seperti suatu proses akan dilakukan apabila dilakukan apabila dilakukan tekan tombol enter,klik satu kali atau klik dua kali.

Macam-macam event yang sering digunakan:

Event  Untuk Mouse

•   Click, tombol kiri mouse ditekan dan proses akan dilakukan pada saat melepas tombol kiri mouse dengan posisi tepat pada object tersebut.
• DbClik, tombol kiri mouse dengan posisi sebanyak 2 kali dengan  cepat  dan proses akan dilakukan padasaat  penekanan yang kedua.
• MouseDown, proses akan dilakukan pada saat menekan tombol kanan/kiri mouse
• MouseUp, tombol kiri/kanan mouse ditekan dan proses akan dilakukan pada saat melepas tombol kiri/kanan mouse dengan posisi tanpa harus pada object tersebut.
• MouseMove, proses akan dilakukan apabila mouse digerakan dan mengenai object tersebut tanpa menekan tombolnya.

Event Untuk Keyboard

• KeyPress, proses akan dilakukan apabila sebuah tombol keyboard ditekan. Untuk menyatakan sebuah tombol keyboardyang di tekan dengan menggunakan  kode ASCII.
• KeyDown, proses akan dilakukan apabila sebuah tombol keyboard ditekan.
• KeyUp, proses akan dilakukan apabila dilakukan sebuah tombol keyboard dilepaskan.

Event Untuk Perubahan

• Active, proses akan dilakukan apabila sebuah form menjadi jendela yang aktif.
• Deactive, proses akan dilakukan apabila dilakukan perpindahan dari satu form ke form yang lain.
• GotFocus, proses akan dilakukan apabila object  tersebut menjadi focus.
• LostFocus, proses dilakukan apabila objok tersebut kehilangan / sudah tidak menjadi focus dikarenakan focus telah berpindah ke objek lain.
• Load, proses akan dilakukan apabila sebuah form dibuka/dijalankan.
• UnLoad, proses akan dilakukan apabila sebuah form diubah.
• Resize, proses akan dilakukan apabila ukuran form diubah.
• Change, proses akan dilakukan apabila isi / nilai sebuah object diubah