Coding Nilai Persegi dan Luas Menggunakan Module Pada VB 6

HELLO FLEN - Pada pemrograman kali ini, saya akan membuat suatu program pada aplikasi Microsoft Visual Basic 6.0. Artikel yang saya buat mengenai Coding Nilai Persegi dan Luas Menggunakan Module Pada VB 6. Pada artikel ini, metode yang saya gunakan yaitu dengan Module pada aplikasi VB 6.0. Seperti biasa, sebelum ke tahap pembuatan program, saya akan menjelaskan terlebih dahulu apa itu Module pada VB 6.0?

Module merupakan project pada aplikasi Microsoft Visual Basic 6.0 untuk menyimpan procedure-prosedure atau fungsi-fungsi atau variable-variable yang dapat digunakan secara global oleh aplikasi yang akan kita buat, sehingga kita tidak perlu membuat fungsi-fungsi atau procedur-prosedure atau variable-variable tersebut secara berulang-ulang, dan akan lebih memudahkan kita dalam penggunaannya.

Dengan penjelasan diatas maka penulisan coding akan menjadi ringkas, dan kita bisa memanggilnya di Module tersebut. Untuk menambahkan Module bisa klik Project (Alt+P) pada menu bar, lalu klik Add Module, atau bisa juga klik nama project, misal NilaiPersegiLuas lalu pilih Add dan pilih Module. Kita langsung saja menuju langkah pada pembuatan nilai persegi dan luas menggunakan Module, berikut dibawah ini langkah-langkahnya:

Pertama
Buka aplikasi VB 6 Anda lalu, klik File > New Project > Standard EXE.

Kedua
Buat tampilannya seperti ini:

Properties pada label, textbox, commandbutton:

	Name	Label, Command, Check = Caption || Textbox, Combo = Text
Label	Label1	Nilai 1
Label	Label2	Nilai 2
Label	Label3	Hasil
TextBox	Text1	Kosongkan (nilai 1)
TextBox	Text2	Kosongkan (nilai 2)
TextBox	Text3	Kosongkan (hasil)
CommandButton	cmdhitung	Hitung
CommandButton	cmdpersegi	Persegi

Catatan: usahakan "Name" samakan, karena berpengaruh dengan coding dibawah ini:

Coding untuk Module1:

Public Function luassegitiga(alas, tinggi As Integer) As Double
luassegitiga = Val(alas * tinggi) / 2
End Function

Public Function persegipanjang(panjang, lebar As Integer) As Integer
persegipanjang = Val(panjang * lebar)
End Function

Coding untuk Form1:

Private Sub cmdhitung_Click()

Dim alas, tinggi As Integer

alas = Val(Text1.Text)

tinggi = Val(Text2.Text)

Text3.Text = luassegitiga(alas, tinggi)

End Sub



Private Sub cmdpersegi_click()

Dim panjang, lebar As Integer

panjang = Val(Text1.Text)

lebar = Val(Text2.Text)

Text3.Text = persegipanjang(panjang, lebar)

End Sub

Ketiga
Untuk menjalankan programnya, klik Run > Start atau Anda juga bisa tekan F5 dan hasil tampilannya akan seperti ini:

Ketika pada saat di Run dan muncul tampilannya, masukan nilai 1 dan nilai 2, lalu klik hitung untuk menghitung Luas Segitiga dan klik persegi untuk menghitung Persegi Panjang, lalu akan muncul hasilnya pada kolom Hasil.

Sekian pembahasan program mengenai tentang Coding Nilai Persegi dan Luas Menggunakan Module Pada VB 6. Semoga dapat bermanfaat dan juga bisa membantu untuk Anda yang sedang belajar tentang pendasaran pemrograman VB 6.