Membuat Class Module [segitiga]

SOURCE CODE : Project, Form dan Class Module

1. Buka VB6 pilih Standard EXE
2. Buat class module segitiga dengan nama class_segitiga. Caranya: klik kanan project pada jendela project, kemudian pilih add - class module. Codingnya sbb:

Private mvaralas As Double
Private mvartinggi As Double

Public Property Let tinggi(ByVal vdata As Double)
'let artinya memasukin data
mvartinggi = vdata
End Property

Public Property Get tinggi() As Double
'get artinya mengeluarin data
tinggi = mvartinggi
End Property

Public Property Let alas(ByVal vdata As Double)
mvaralas = vdata
End Property

Public Property Get alas() As Double
alas = mvaralas
End Property

Public Function HitungLuas() As Double
HitungLuas = 0.5 * alas * tinggi
End Function

3. Buat object sbb pada form:
a. Frame1, Caption = Input
b. Frame2, Caption = Hasil
c. Label1, Name = lbl_alas_input; Caption = Alas
d. Label2, Name = lbl_tinggi_input; Caption = Tinggi
e. Label3, Name = lbl_alas_hasil; Caption = Alas
f. Label4, Name = lbl_tinggi_hasil; Caption = Tinggi
g. Label5, Name = lbl_luas_hasil; Caption = Luas
h. Label6, Name = lbl_alas; Caption = -
i. Label7, Name = lbl_tinggi; Caption = -
j. Label8, Name = lbl_luas; Caption = -
k. Textbox1, Name = txt_alas
l. Textbox2, Name = txt_tinggi
m. Command Button1, Name = cmd_hitung; Caption = Hitung
n. Command Button2, Name = cmd_keluar; Caption = Keluar

4. Deklarasi class_module menjadi sebuah object

Dim Lsegitiga As class_segitiga

5. Membuat coding cmd_proses

Private Sub cmd_hitung_Click()
Set Lsegitiga = New class_segitiga
Lsegitiga.alas = txt_alas.Text
Lsegitiga.tinggi = txt_tinggi.Text
lbl_alas.Caption = Lsegitiga.alas
'lbl_alas.Caption adalah label alas yang ada di frame hasil
lbl_tinggi.Caption = Lsegitiga.tinggi
'lbl_tinggi.Caption adalah label tinggi yang ada di frame hasil
lbl_luas.Caption = Lsegitiga.HitungLuas
'lbl_luas.Caption adalah label luasyang ada di frame hasil
End Sub

6. Membuat coding cmd_keluar

Private Sub cmd_keluar_Click()
End
End Sub

7. Jalankan program.


Sumber: Aris Prasetyo, S.Kom
Materi Kuliah VB 6 tgl 27 Maret 2009
Semester II STIKOM CKI Wiajaya Kusuma