Bab 1 Pemrograman berbasis Class Module

Pengertian Class Module

Dalam Visual Basic 6 terdapat beberapa tolls yang memudahkan dalam pemrograman salah satunya adalah class yang digunakan untuk mempermudah suatu pengkodingan.

Class Module dalam VB menjelaskan tentang class dari object-object (template untuk object), setiap object mempunyai variasi property, tetapi mempunyai struktur dan kemampuan yang sama Dari sebuah class module bisa dibuat banyak instance (yang berupa object).

Class Module akan ditambahkan ke dalam project yang sedang dibuat Untuk membuat Class Module caranya sama pada saat kita membuat form baru, yaitu klik kanan di Project Explorer dan pilih Add -> Class Module -> Class Module. Untuk pemberian nama class module biasa diawali dengan prefix x atau cls (misal cKucing atua clsKucing).

Di dalam setiap class module yang kita buat ada 2 event yang built-in yaitu INITIALIZE dan TERMINATE. INITIALIZE digunakan untuk seting awal untuk object yang akan dibuat dari class tersebut. TERMINATE digunakan untuk seting akhir jika object sudah selesai dipakai.

Memakai Class dalam Program
Cara penggunaan Class dalam program ada beberapa variasi :

• Variasi 1

Dim ObjMyClassObject as New cMyClass.
objMyClassObject.Property1= xxx

• Variasi 2

Dim objMyClassObject as cMyClass
Set objMyClassObject = New cMyClass
objMyClassObject.Property1 = xxx

Perbedaan antara kedua variasi adalah kapan object di-instantiated (dibuat dari class). Pada variasi 1, object akan di-instantiated pada saat property atau method pertama diakses. (perintah Dim … as New tidak akan meng-instantiated object). Pada variasi 2, object di instantiated pada saat perintah Set … dijalankan.(Variasi 2 lebih disarankan karena kita tahu kapan object akan diinstantied).

Screenshot Project Kami menggunakan Squential, Class Module:

• Menu Utama

• Bangun Datar dengan contoh menghitung Persegi

Sourcode

Public Class Persegi
    Dim rumus As New rumusbangun
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox3.Text = rumus.luaspersegi(Val(TextBox1.Text))
        If TextBox3.Text = 0 Then
            TextBox3.Text = "belum diisi"
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox8.Text = rumus.kelpersegi(Val(TextBox4.Text))
        If TextBox8.Text = 0 Then
            TextBox8.Text = "belum diisi"
        End If
    End Sub
End Class

• Bangun Ruang dengan contoh menghitung Kerucut

Sourcode
Public Class Kerucut
    Dim rumus As New rumusbangun
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        TextBox3.Text = rumus.luaskerucut(Val(TextBox2.Text), Val(TextBox8.Text))
        '((3.14 * (Val(TextBox2.Text) * Val(TextBox2.Text))) * Val(TextBox8.Text)) / 3
        If TextBox3.Text = 0 Then
            TextBox3.Text = "belum diisi"
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        TextBox7.Text = rumus.kelkerucut(Val(TextBox5.Text), Val(TextBox6.Text))
        '(3.14 * Val(TextBox5.Text)) * ((Val(TextBox6.Text)))
        If TextBox7.Text = 0 Then
            TextBox7.Text = "belum diisi"
        End If
    End Sub
End Class

Dengan modul memanggil rumus

Download Aplikasinya (File Bangundatar.exe ) *dengan minimal install NET.Framework 4.0 Click Here

Sumber : http://www.scribd.com/doc/57190166/API-Class-Module