Membuat ActiveX Componen

SOURCE CODE: Class Lingkaran, Class Segitiga, Lingkaran.dll, Lingkaran.exp, Lingkaran.lib, Form Lingkaran, Project Lingkaran (EXE) dan Project Lingkaran (ActiveX)
ActiveX Componen yaitu sebuah standar container class yang dapat digunakan oleh satu atau lebih aplikasi.

1. Buka VB6 pilih ActiveX DLL
2a. Buat class module dengan nama class_lingkaran. 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)
'Private varjarijari As Double

Public Property Let jarijari(ByVal vdata As Double)
varjarijari = vdata
End Property

Public Property Get jarijari() As Double
jarijari = varjarijari
End Property

Public Function HitungLuas() As Double
HitungLuas = 3.14 * jarijari * jarijari
End Function

2b. Buat class module dengan nama class_segitiga. Codingnya sbb:

Private varalas As Double
Private vartinggi As Double

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

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

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

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

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

2c. Simpan class module dengan nama HitungLuas dengan nama project lingkaran.vbp yang di dalamnya ada class_lingkaran dan class_segitiga yang sudah kita buat.

3. Compile class project (lingkaran.vbp) menjadi Dynamic Link Library (DLL). caranya
klik: File - Make Lingkaran.dll, kemudian simpan (contoh di drive c dengan nama lingkaran.dll).

4. Register file dll yang kita buat tadi ke dalam windows. Caranya: Buka DOS, ketik regsvr32 nama-path_nama-file. (contoh "regsvr32 c:\lingkaran.dll" tanpa tanda petik). Kalau berhasil ada pesan notifikasi DllRegisterServer in c:\lingkaran.dll succeeded.
5. Masukkan file dll ke dalam Preference Visual Basic. Caranya: Klik menu Project - Preferences. Kemudian klik Browse dan cari file dll yang sudah kita buat tadi, klik Ok.

6. Selanjutnya, buka VB6 pilih Standar EXE, kemudian buat object sbb pada form:
a. Label1, Caption = Menghitung Luas Lingkaran
b. Label2, Caption = Jari-jari
c. Label3, Caption = Luas
d. Label4, Caption = Menghitung Luas Segitiga
e. Label5, Caption = Alas
f. Label6, Caption = Tinggi
g. Label7, Caption = Luas
h. Textbox1, Name = txt_jarijari
i. Textbox2, Name = txt_luas
j. Textbox3, Name = txt_alas_segitiga
k. Textbox4, Name = txt_tinggi_segitiga
m. Textbox5, Name = txt_luas_segitiga
n. Command Button1, Name = cmd_hitung; Caption = Hitung
o. Command Button2, Name = cmd_hitung_segitiga; Caption = Hitung

7. Deklarasi class_module menjadi variabel bertipe object

Dim objlingkaran As class_lingkaran
Dim objsegitiga As class_segitiga

8a. Membuat coding cmd_hitung

Private Sub cmd_hitung_Click()
Set objlingkaran = New class_lingkaran
objlingkaran.jarijari = txt_jarijari.Text
txt_luas.Text = objlingkaran.HitungLuas
End Sub

8b. Perhatikan bahwa class module yaitu class_segitiga dan class_lingkaran akan muncul di ketika kita mengetik coding.

9. Membuat coding cmd_hitung_segitiga

Private Sub cmd_hitung_segitiga_Click()
Set objsegitiga = New class_segitiga
objsegitiga.alas = txt_alas_segitiga.Text
objsegitiga.tinggi = txt_tinggi_segitiga.Text
txt_luas_segitiga.Text = objsegitiga.HitungLuas
End Sub

10. Jalankan program.



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