Membuat class menggunakan VB6

Posted by Bagus Swara On 1:31 PM

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 Vnilai as 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