Module : VB6.0

Module

Pengenalan Modul Standar

Visual Basic menyediakan module yang dapat digunakan untuk memuat fungsi, subrutin, konstanta, variabel dan type ciptaan yang akan disediakan bagi keseluruhan project. Untuk membuat dalam project anda dapat menggunakan perintah Project, Add Module.


Sesaat setelah anda menambahkan module, maka pada jendela Project Explorer akan nampak Module1

Untuk melakukan koding, anda dapat melakukan double klik pada Module tersebut.


Pengunaan Modul Standar

Untuk contoh silakan kalian buka aplikasi Visual Basic 6.0 kalian pada desktop ataupun startprogram.
Pilihlah Standard Exe - Open.

Buat tampilan form seperti dibawah ini :


  Settinglah nama objek dan caption objek dengan Fomat di bawah ini:

textbox3 = txthasil
Ketentuan Program :
*Luas alas dan tinggi diinput, Button Hitung diklik tampil hasil pada txthasil didapat dari alas x tinggi/2, gunakan fungsi untuk menyelesaikan dan tempatkan pada module
*Button Bersih gunakan prosedur
*Button Keluar untuk keluar dari aplikasi dan tampil pesan

masukkan listing program seperti berikut pada form :

Public Sub bersih()
Dim x As Control
For Each x In Me
If TypeName(x) = "TextBox" Then x.Text = ""
If TypeName(x) = "ListBox" Then x.Clear
Next
End Sub
Private Sub cmdbersih_Click()
Call bersih
txtalas.Text = ""
End Sub

Private Sub cmdhitung_Click()
Dim alas, tinggi As Integer
alas = Val(txtalas.Text)
tinggi = Val(txttinggi.Text)
txthasil.Text = luassegitiga(alas, tinggi)
End Sub

Private Sub cmdkeluar_Click()
If MsgBox("Mau Keluar??", vbQuestion + vbOKCancel, "message") Then End
End Sub

masukkan juga listing program seperti berikut pada modul :

Public Function luassegitiga(alas, tinggi As Integer) As Double
luassegitiga = (alas * tinggi) / 2
End Function
Penjelasan coding :
Module digunakan untuk menampung variabel-variabel public yang bisa dipanggil dalam form-form dalam satu projek.

Jika ada pertanyaan lain silakan melalu komentar :)

Lalu Klik Run - Start  atau tekan f5 :








Artikel Terkait:
Disqus Comments