Membuat Class Module [balok]

SOURCE CODE: Class, Form dan Project
1. Buka VB6 pilih Standard EXE
2. Buat class module segitiga dengan nama class_balok. Caranya: klik kanan project pada jendela project, kemudian pilih add - class module. Codingnya sbb:

Private var_panjang As Double
Private var_lebar As Double
Private var_tinggi As Double

Public Property Let panjang(ByVal vdata As Double)
var_panjang = vdata
End Property

Public Property Get panjang() As Double
panjang = var_panjang
End Property

Public Property Let lebar(ByVal vdata As Double)
var_lebar = vdata
End Property

Public Property Get lebar() As Double
lebar = var_lebar
End Property

Public Property Let tinggi(ByVal vdata As Double)
var_tinggi = vdata
End Property

Public Property Get tinggi() As Double
tinggi = var_tinggi
End Property

Public Function volume() As Double
volume = panjang * lebar * tinggi
End Function

2b. Sehingga di dalam project ada 2 object yaitu class_balok dan Volume_Balok

3. Buat object sbb pada form:
a. Label1, Caption = panjang
b. Label2, Caption = lebar
c. Label3, Caption = tinggi
d. Label4, Caption = volume balok
e. Textbox1, Name = txt_panjang
f. Textbox2, Name = txt_lebar
g. Textbox3, Name = txt_tinggi
h. Textbox4, Name = txt_volume
i. Command Button1, Name = cmd_hitung; Caption = Hitung

4. Deklarasi class_module menjadi variabel bertipe object

Dim VBalok As class_balok

5. Membuat coding cmd_proses

Private Sub cmd_hitung_Click()
Set VBalok = New class_balok
VBalok.panjang = txt_panjang.Text
VBalok.lebar = txt_lebar.Text
VBalok.tinggi = txt_tinggi.Text
txt_panjang.Text = VBalok.panjang
txt_lebar.Text = VBalok.lebar
txt_tinggi.Text = VBalok.tinggi
txt_volume.Text = VBalok.volume
End Sub

5b. Ketika kita mengetikkan coding class_balok maka akan muncul variabel panjang, lebar, tinggi dan volume.


6. Jalankan program.




Sumber: Aris Prasetyo, S.Kom
Materi Kuliah VB 6 tgl 17 April 2009
Semester II STIKOM CKI Wijaya Kusuma