Membuat Bangun Datar Dan Bangun Ruang Menggunakan Class Modules Pada VB

1. Buka Visual Basic

2. Buat Class Modules :

    a. klik kanan pada form yang terletak pada project explorer

    b. pilih add

    c. lalu pilih class module dan open

    d. tulis rumus bangun datar dan bangun ruang yang sudah dipilih
    e. save rumus pada class modules dengan format .cls
3. Masuk klik frame pada form dan atur sesuai keinginan, lalu hias dan beri tombol-tombol catanya seperti yang sudah dibahas sebelumnya, seperti gambar berikut :

4.  Apabila ingin melingkan misalnya pada persegi panjang klik 2x pada tombol persegi dan ketikkan :
Private Sub Command2_Click()
Form5.Show
End Sub

5. buat frame pada caption beri nama "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 Class1
        Private Sub hkell_Click()
        kell.Text = api.kell_ppanjang(Val(p.Text), Val(l.Text))
        End Sub

6. 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 "p" dan tabel lebar dengan name diganti "l" 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 Class1
        Private Sub hluas_Click()
        luas.Text = api.luas_ppanjang(Val(p1.Text), Val(l1.Text))
        End Sub

7. begitu seterusnya dengan bangun darar dan bangun ruang yang lainnya, serta berikut contoh gambar :

INGAT JANGAN MUDAH MENYERAH....