ASP:Menggunakan Custom Server Object - Bagian 2 - Membuat Pustaka Object Windows dengan VB6

Kita langsung saja, berikut ini langkah - langkah membuat Pustaka object dengan menggunakan VB6 :

1. Buat project, pilih Activex dll

2. Setting nama project untuk menentukan nama library. Disini saya menggunakan KuliahPemrograman sebagai nama project, nama ini akan menjadi nama library. Sedangkan untuk class saya menggunakan BangunRuang.

3. Menulis Kode Program, saya mencontohkan dengan membuat 2 buah function yaitu luas segitiga dan luas persegi panjang.



Berikut ini kode yang kita buat :

Public Function luasSegitiga(ByVal alas, ByVal tinggi) As Double
luas = (0.5 * alas) * tinggi
luasSegitiga = luas
End Function

Public Function luasPersegiPanjang(ByVal lebar, ByVal panjang) As Double
luas = lebar * panjang
luasPersegiPanjang = luas
End Function

Apabila tidak ada error, maka kita bisa membentuk file dll dari menu : File->Make KuliahPemrograman.dll (Nama File DLL sesua nama project) , saya menyimpan file ini di c:\ untuk kemudahan.

4. Mendaftarkan pustaka ke register window.
Meregister dengan cara :
buka command prompt, lalu tulis perintah : regsvr32 c:\KuliahPemrograman.dll
untuk unregister : regsvr32 /u c:\KuliahPemrograman.dll

Pada titik ini, kita telah berhasil menginstal komponen custom kedalam windows. Selanjutnya kita akan mencoba menggunakan componen custom ini di aplikasi VB dan ASP
Setelah kita berhasil membuat dan mendaftarkan pustaka custom kedalam ssystem register windows. Kita akan coba memanfaatkan pustaka custom tersebut kedalam aplikasi VB6. Berikut ini langkah - langkahnya

1. New Project ->Standar Exe
2. Project References->KuliahPemrograman
Karena pustaka telah terdaftar, maka pada saat penambahan referensi kita dapat menemukan
pustaka tersebut didalam pustaka yang dapat kita gunakan. Check pada pustaka tersebut





3. Tulis Kodenya.
Berikut ini contoh kode sederhana untuk menggunakan

Private Sub Command1_Click()


Dim x As KuliahPemrograman.BangunRuang
Set x = New KuliahPemrograman.BangunRuang

MsgBox x.luasPersegiPanjang(10, 15)


End Sub

4. Jalankan


5. Menggunakan custom lib di asp




'contoh kode aspnya
Dim x
Set x = Server.CreateObject("KuliahPemrograman.BangunRuang")

response.write(x.luasPersegiPanjang(10, 15))

http://www.kuliahpemrograman.co.cc/2009/10/aspmenggunakan-customer-server-object_4967.html

Posted in: