CLASS MODUL PADA VISUAL BASIC 6

(Membuat aplikasi untuk menghitung keliling jajargenjang dan persegi panjang)

Apa sih Class Modul itu? 

Dalam pemrogramam berorientasi objek Visual Basic menggunakan kelas (class). Secara umum kelas mewakili kelompok objek yang serupa. Seluruh mahasiswa di suatu kampus adalah objek. Kelas nya adalah Mahasiswa (cth: CMahasiswa.cls - Class1.cls). 

Kelas bisa mempunyai property, event dan methode.  Kelas Mahasiswa mempunyai property nim, nama, alamat dan methode menulis.
Sebenarnya kita telah menggunakan kelas pada pembahasan terdahulu  object control dasar. Sebagai contoh textbox yang berada pada toolbox merupakan komponen visual dari kelas text box.

Kita juga dapat membuat kelas sendiri dengan visual basic. Kita dapat menambahkan property, event dan method pada kelas buatan Kita itu. Setelah kita membuat kelas, selanjutnya kita dapat membuat objek dari kelas tersebut.

Di Visual Basic kita membuat kelas dengan menambahkan modul kelas pada project kita. Setelah itu kita menuliskan kode-kode pada modul kelas tersebut. 

LANGKAH LANGKAH PEMBUATAN APLIKASI DENGAN KONSEP CLASS MODUL

Di siini kita akan membuat aplikasi untuk meghitung keliling jajar genjang dan keliling persegi panjang

dengan konsep class module.dan di bawah ini adalah .angkah – langkah untuk membuat class module di

dalam visual basic 6.

-       Langkah 1

Untuk membuat sebuah aplikasi dengan konsep class module , tahap – tahapnya hampir sama dengan konsep squential , yaitu dengan memilih menu “standard xe”.

-       Langkah 2

Membuat sebuah project baru dan sebuah form baru yang akan kita gunakan untuk membuat text box dan button sebagai dasaran awal dari aplikasi kita .

-       Langkah 3

Membuat atau menambahkan class module ke dalam project yang sebelumnya sudah kita buat . lihat gambar di bawah.

-       Langkah 4

Selanjutnya kita akan memasukan  script rumus keliling jajar genjang dan keliling persegi panjang yang akan kita eksekusi ke dalam class modul.di bawah ini adalah  script yang kita masukan ke dalam class modul.

Public Function KJGenjang(ByVal a As Variant, ByVal sm As Variant) As Variant

KJGenjang = 2 * (a + sm)

End Function

Public Function KPPanjang(ByVal p As Variant, ByVal l As Variant) As Variant

KPPanjang = 2 * (p + l)

End Function

-       Langkah 5

                Di langkah yang ke 5 ini kita akan mengisi  form yang kita buat di awal dengan text box dan                               commond button.di bawah ini adalah tampilan dari aplikasi yang kita buat sebelumnya.

Berikut Script dari form di atas:

Dim jack As New rumus

Private Sub eksekusi_Click()

KJGenjang = jack.KJGenjang(Val(d), Val(e))

KJGenjang = Format(KJGenjang, "#,###")

KPPanjang = jack.KPPanjang(Val(b), Val(c))

KPPanjang = Format(KPPanjang, "#,###")

End Sub

             Output dari aplikasi di atas :

              -     Output menghitung keliling jajar genjang

             Untuk menampilkan hasil perhitungan dari keliling jajaran genjang , kita harus memasukan atau                   mengisi kolom alas dan kolom sisi miring . lalu pilih hitung untuk menampilkan hasil dari perhitungan.             Lihat gambar di bawah.

              -     Output menghitung keliling persegi panjang

             Dan yang ke dua adaalah jika kita ingin menghitung keliling persegi panjang . kita harus memasukan

         / mengisi kolom  panjang dan lebar selanjutnya klik tombol hitung maka hasil perhitungan akan dI

         tampilkan di kolom hasil.lihat gambar di bawah.