Membuat class menggunakan VB6

Assalamualaikum wr.wb
Selamat pagi sobat blogger pada pagi hari ini kembali saya update blog kembali tapi untuk sekarang bukan mengenai internat gratis tetapi mengenai programing yaitu mengenai cara membuat class menggunakan VB6 

Dalam membuat class dalam VB6 pertama kita harus menentukan member di dalam class
Contoh :

            dim m_Kcpmax as integer
            dim m_Percepatan as integer
            dim m_KcpAktual as integer

Selanjutnya setelah membuat member kita akan menginisialisasi pada Variabel member
Contoh: 

          Public sub class_initialize()
                    m_Kcpmax as integer =120
                    m_Percepatan as integer=20
                    m_KcpAktual as integer=0
          end sub

Langkah selanjutnya kita membuat Property Akses data member dikendalikan melalui mekanisme Property dengan fungsi GET dan LET
Fungsi Get berfungsu untuk mengambil nilai dari property
Fungsi Let berfungsi untuk mengubah nilai property

Contoh.
Untuk membuat Property baru pilih menu Tools > Add Procedure

Public property get percepatan () as integer

                        Percepatan=m_Percepatan

End property

Public property let percepatan(byval Vnilaias integer)

                        m_Percepatan=Vnilai

End property
 
Penggunaan class: 
Class terdiri dari beberapa object agar class dapat digunakan maka harus dijadikan object dengan cara dideklarasikan, adapun cara mendeklarasikan adalah sebagai berikut  pilih salah satu aja mas bro.

1. Dim NamaObyek as New Object  

    Contoh 

    Dim Kijang as New Mobil

2. Dim NamaObyek as Object

     Set NamaObyek = New Object  

     Contoh 

     Dim Kijang as Mobil   

     set Kijang = new Mobil

3. Dim withevents NamaObyek as Object

     Set NamaObyek = New Object  

     Contoh  

     Dim withevents Kijang as mobil

     set Kijang = new Mobil 

4. Untuk menghancurkan object dari memory gunakan peritah:

     set NamaObyek = nothing 

     Contoh

     set Kijang = nothing