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.

SQUENTIAL PROGRAMING PADA VISUAL BASIC 6

(Membuat Aplikasi untuk Menghitung Keliling Jajar Genjang)

Apa itu Squential Programing?

Pemrograman sekuensial merupakan dasar/ inti dari pemrograman. Konsep pemrograman ini adalah top down, berawal dari atas sampai akhirnya paling bawah. Dalam paradigma pemrograman prosedural, modular maupun object oriented, konsep sekuensial tetap digunakan.

Compiler bahasa pemrograman mengubah (menerjemahkan) teks source code menjadi program .exe yang siap dijalankan. Proses kompilasi dilakukan dari baris source code yang paling atas hingga paling bawah. Itulah kenapa sebabnya penyertaan file library/ header (dan biasanya juga deklarasi variabel) selalu ditaruh di bagian awal source code. Misal (dalam bahasa Java) perintah import java.util.* mempunyai makna bahwa source di bagian setelahnya akan ada penggunaan perintah/ atribut/ class yang dimiliki oleh package java.util. Sehingga ketika kompilasi mencapai baris tersebut, compiler sudah siap untuk menerjemahkan karena sudah diberitahu sebelumnya oleh baris statemen import di bagian awal.

Pola pemrograman sekuensial sangatlah sederhana. Biasanya berupa alur input data dilanjutkan segmen pemrosesan data dan diakhiri dengan output informasi yang dihasilkan. Contohnya program menghitung luas lingkaran. Diawali dengan permintaan input nilai jari-jari dari user, kemudian akan dihitung luasnya oleh program yang dibuat menggunakan rumus phi kali jari-jari kuadrat. Dan akhirnya hasil perhitungan luas diinformasikan kembali ke user melalui perintah output.

Bagaimana membuat aplikasi sederhana dengan konsep squential programing?

1.      Di sini kita akan membuata sebuah aplikasi untuk menghitung luas jajar genjang dengan konsep squential programing. Dan di bawah ini adalah langkah - langkah untuk pembuatan aplikasinya.

-       Langkah 1

Langkah pertama adalah untuk membuat program dengan konsep squential programing kita pilih menu “standard exe”, seperti gambar di bawah ini.

-       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

Untuk membuat “text box” dan “commond button” pada sebuah form, kita bisa mimilih icon pada tool box yang berada di sebelah kananlayar, lihat gambar di bawah.

-       Langakh 4

Dan di bawah ini adalah tampilan aplikasi , untuk memasukan script ke dalam aplikasi di bawah , kita bisa mengklik 2 x pada commond button atau text box yang berada di dalam form.

                              

 Source Code dari aplikasi di atas:

Option Explicit

Private Sub OnlyNumeric(KeyAscii As Integer)

  Select Case KeyAscii

      Case 48 To 57                        ' numeric

      Case 8                               ' backspace

      Case Else: KeyAscii = 0

  End Select

End Sub

Private Sub DataAlas_KeyPress(KeyAscii As Integer)

OnlyNumeric KeyAscii

End Sub

Private Sub DataSisiMiring_KeyPress(KeyAscii As Integer)

OnlyNumeric KeyAscii

End Sub

Private Sub eksekusi_Click()

HasilKJGenjang = (DataAlas * 2) + (DataSisiMiring * 2)

End Sub

Private Sub Form_Unload(Cancel As Integer)

Awal.Visible = True

End Sub

Output dari aplikas di atas :

Untuk menampilkan hasi yang kita inginkan dari aplikasi di atas , sebelumnya kita harus memasukan alas dan sisi miring dari jajar genjang , lalu tekan tombol “do it” untuk melakukan proses perhitungan secara otomatis.