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 :

Coding Nilai Persegi dan Luas Menggunakan Module Pada VB 6 - www.helloflen.com

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:

Coding Nilai Persegi dan Luas Menggunakan Module Pada VB 6 - www,helloflen,com

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.

Memberikan informasi yang terbaik, akurat dan bermanfaat untuk kita semua, salam blogger.

Tambahkan Komentar Anda
EmoticonEmoticon