pengenalan class module dengan menggunakan VB 6

Module adalah berisi kode program atau prosedur yang dapat digunakan oleh program aplikasi. Hampir sama denga form, tetapi module tidak berisi objek dan bentuk standar. Untuk menambahkan suatu module ke dalam program aplikasi dengan menggunakan perintah : pilih menu Project dan pilih Add Module.

Module juga berarti tempat dimana kita akan menulis kode sumber didalamnya yang bersifat global (dapat dikenal oleh semua form didalam sebuah project VB). Kode – kode ini disimpan dalam file ASCII yang berekstensi .BAS 

Class Module 
memperbolehkan kita membuat object sendiri. Class module ini adalah prototype dari object yang akan kita buat tersebut (property dan methodnya), class module disimpan dalam sebuah file yang berekstensi .CLS.

CARA MEMBUAT CLASS MODULE

1. Buatlah form seperti dibawah ini dengan 4 label, 4 text box, 3 command button dan 1 image

2. Klik kanan pada project , kemudian pilih add class module

3. Ganti nama class1 dengan nama rumus

4. Masukkan source code berikut ini pada class module

Public Function Balok(ByVal p As Integer, ByVal l As Integer, ByVal t As Integer) As Integer
Balok = p * l * t
End Function

5. Save dengan nama cls
6. Masukkan source berikut ini pada form diatas
   

   Dim are As New rumus

   Private Sub hapus_Click()
   p = Clear
   l = Clear
   t = Clear
   hasil = Clear
   End Sub

   Private Sub hitung_Click()
   hasil = are.Balok(Val(p), Val(l), Val(t))
   End Sub

   Private Sub menu_Click()
   form8.Show
   form1.Visible = False
   End Sub

   
   

    
   

7. Output dari program diatas