Membuat Class dalam VB (mencari Luas Segitiga)

Sebelum qt bahas dari judul diatas, maka qt perlu tahu juga apa si class dalam vb itu & berikut fungsi dari keberadaan class ntu ndiri 

Class adalah…

Class divb berfungsi utk …

Langsung yach ke kasus az.. :D
1. Buka project VB dengan option standard exe
2. Klik menu project, pili add class module, klik open
3. Ketik coding ini..

Private mVarAlas As Double
Private mVarTinggi As Double

Public Property Let Tinggi(ByVal vdata As Double)
mVarTinggi = vdata
End Property

Public Property Get Tinggi() As Double
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

4. Lalu beralih ke jendela form
5. Buat layout kayak gini

• 
• 
• 
• 
•