Sabtu, 28 September 2019

Pemrograman Visual Module



Module

            Module merupakan bagian yang sengaja dipisahkan untuk memudahkan pemrograman. Dalam module dapat dimasukkan procedure dan fungsi dan kemudian digunakan oleh beberapa form.

a.       Umumnya module dideklarasikan secara publik agar dapat digunakan di dalam kode dimanapun.
b.   Module dapat diisi dengan main procedure yang akan dijalankan pertama kali saat program dimulai.
c.      Module merupakan salah satu argumentasi kode reuse yang bertujuan agar progtam lebih efisien.

Buatlah terlebih dahulu form1 terlebih dahulu, setelah itu buatlah form module, dibawah ini yaitu langkah-langkah membuat form1:

Ikuti sesuai dengan tabel berikut:

No
Object
Property
Nilai
1
Form
Name
Text
Form1
Form1
2
Label
Text
Alas
3
TextBox
Text
Name
(dikosongkan)
txtAlas
4
Label
Text
Tinggi
5
TextBox
Text
Name
(dikosongkan)
txtTinggi
6
Label
Text
Hasil
7
TextBox
Text
Name
(dikosongkan)
txtHasil
8
Button
Text
Name
Hitung
btnHitung
9
Button
Text
Name
Exit
btnExit

a.       Buatlah Form baru dengan nama Form1.
b.      Buatlah sebuah Form1 yang bisa melakukan operasi perhitungan luas segitiga yang diinputkan oleh user.
c.       Hasil Form1 ini kurang lebih sebagai berikut:



d.      Properties Name adalah:
txtAlas, txtTinggi, txtHasil, btnHitung, btnExit.
e.       Kode Program Form1:
Public Class Form1

    Private Sub btnHitung_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHitung.Click
        Try
            alas = Me.txtAlas.Text
            tinggi = Me.txtTinggi.Text

            Me.txtHasil.Text = luas_segitiga(alas, tinggi)
        Catch ex As Exception
            MsgBox(ex.Message)
            MsgBox("Error dalam menghitung, Harap masukan nilai", vbInformation)

        End Try
    End Sub


    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Dim tutup As String
        tutup = MessageBox.Show("Yakin ingin tutup Form ini?", "Konfirmasi", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
        If tutup = MsgBoxResult.Yes Then
            End
        Else
            Exit Sub
        End If
    End Sub
End Class

f.       Lalu buatlah Form Module, lihatlah sebagai berikut:
Klik Project pada menu toolbar, kemudian pilih lah Add Module…

g.      Kode program Form Module

Module Module_LuasSegitiga
    Public alas As Integer
    Public tinggi As Integer

    Public Function luas_segitiga(ByVal a As Integer, ByVal b As Integer)
        Return (alas * tinggi) / 2
    End Function
End Module
h.      Jalankan program dengan menekan tombol F5 atau klik ikon Start pada toolbar.
i.        Hasil tampilan dari program.
Hasil Hitung:



Exit:




Tidak ada komentar:

Posting Komentar

Koneksi Database Buku

1.       Aktifkan aplikasi xampp terlebih dahulu. 2.       Masuklah pada browser lalu ke localhost/phpmyadmin , kemudian buat lah sebua...