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
     set Kijang = new Mobil 
4. Untuk menghancurkan object dari memory gunakan peritah:
     set NamaObyek = nothing 
     Contoh
     set Kijang = nothing
 
  

Post a Comment

:)) ;)) ;;) :D ;) :p :(( :) :( :X =(( :-o :-/ :-* :| 8-} :)] ~x( :-t b-( :-L x( :-q =))

Silahkan dishare dan tinggalkan komentar untuk kemajuan blog ini.
Terima kasih atas komentarnya brada.....!

Bagus Swara

Blog ini ane buat dengan tujuan sabagai E-Book electronic jadi siapa saja yang membutuhan artikel yang ada di blog ini silakan di digunkan, semoga apa yang ane sajikan dapat bermanfaat bagi ente semua....Read More

Langganan

Masukan Email Ente:

Postingan terbaru

Koment Terbaru

Followers