Membuat Bangun Datar Dan Bangun Ruang Menggunakan rumus ActiveX DLL Pada VB

Langkah pertama membuat file DLL :
1. Buka program visual basic
2. Pilih ActiveX DLL dan open
3. Masukkan rumus sesuai pilihan
4. Ketika ada rumus menggunakan integer maka rubah menjadi double dengan cara :
    a. Blok pada kata integer
    b. Tekan tombol ctrl+h pada kayboard
    c. Pilih replace with ketikkan double
    d. Klik replace all dan close
5. Nama project diganti "bangun" dan nama class diganti "rumus"
6. Klik file dan pilih make bangun.dll
7. Buat folder dan klik ok

Langkah Kedua buat desain :
1. Buka program visual basic
2. Pilih Standart EXE
3. Pilih project
4. Pilih references
5. Pilih nama project dll yang sudah dibuat tadi "bangun"
6. Klik ok
7. Desain sesuain keinginan, misalnya seperti contoh yang sudah dijelaskan sebelumnya, jadi langsung aja masuk ke perhitungan persegi panjang.
8. Buat frame pada from dengan caption "persegi panjang"

9. Didalam frame buat frame lagi dengan nama caption "keliling persegi panjang"
    a. buat table dengan nama panjang dan lebar
    b. buat textbok pada tabel panjang di property name diganti "p" dan tabel lebar dengan name diganti "l" kemudian semua text dikosongkan. 

    c. buat lagi textbok pada property name "kell" dan text "hasil"
    d. buat commendbutton pada property name "hkell" dan caption "hitung"

    e. klik 2x pada tombol hitung dan ketikkan :
        Dim api As New bangun.rumus
        Private Sub hkell_Click()
        kell = api.kell_ppanjang(Val(p), Val(l))
        End Sub

10. Buat kembali frame pada caption beri nama "luas persegi panjang"
    a. buat table dengan nama panjang dan lebar
    b. buat textbok pada tabel panjang di property name diganti "p2" dan tabel lebar dengan name diganti "l2" kemudian semua text dikosongkan. 

    c. buat lagi textbok pada property name "luas" dan text "hasil"
    d. buat commendbutton pada property name "hluas" dan caption "hitung"
    e. klik 2x pada tombol hitung dan ketikkan :
        Dim api As New bangun.rumus
        Private Sub hluas_Click()
        luas = api.luas_ppanjang(Val(p2), Val(l2))
        End Sub

11. Begitulah cara membuat rumus menggunakan ActiveX DLL, bangun datar dan bangun ruang lainnya, berikut ini contoh gambar persegi panjang :

SELAMAT MENCOBA SEMOGA BERHASIL.....  :-)