Membuat File .dll dan Menkoneksikan Pada Form Berekstensi exe Standar

Contoh Kasus Menghitung Luas Segitiga

Langkah pertama buka project vb dengan Active X dll,
Kemudian tulis coding class Luas Segitiga berikut:


Private mVarAlas As Double
Private mVarTinggi As Double

Public Property Let Tinggi(ByVal vdata As Double) 'Prosedur untuk mengubah nilai
mVarTinggi = vdata
End Property

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

Dan save dalam folder lo..
Dengan nama Project Lsegitiga & name Classnya segitiga.
Lalu lo buat file ekstensi .dll dengan klik File Make Project.dll

Langkah berikutnya..
Registerkan server file dll tadi dengan perintah regsvr32 c:\has1\Lsegitiga.dll pada Command Prompt. Ket: c:\has1\Lsegitiga.dll alamat direktori file dll diletakan.
Pada windows xp memang harus diregisterkan terlebih dahulu untuk menkoneksikan file dll pada project lain.

Trussszz…

Buka project baru dengan standar exe,
klik Project, References, klik Browse, cari file dll tadi (ini utk menkoneksikan pada file dll) dan ok.

n then..
Buat Layout seperti ini:

Doble klik pada CmdProses dan ketik coding ini..

Dim Lsegitiga As segitiga

Private Sub CmdProses_Click()

Set Lsegitiga = New segitiga

Lsegitiga.Alas = TxtAlas.Text

Lsegitiga.Tinggi = TxtTinggi.Text

TxtLuas.Text = Lsegitiga.HitungLuas

End Sub

Dan untuk CmdEndnya..

Private Sub CmdEnd_Click()

End

End Sub

***slamat mencoba***
n gud luaack! :)

• 
• 
• 
• 
•