Module dan Multiple Form Pada Visual Basic .NET

Module dan Multiple Form Pada Visual Basic .NET

Assalamu’alaikum wr. wb, Bissmillahirrohmanirrohim, kali ini saya akan sedikit berbagi dengan kawan kawan semua tentang ilmu yang saya dapatkan tadi pagi di mata kuliah Pemrograman .NET

Module merupakan salah satu item dari visual basic yang dapat digunakan untuk  memuat fungsi, subrutin, konstanta,  variable dan tipe data yang akan disediakan bagi keseluruhan project.

Multiple Form atau beberapa form pada satu aplikasi atau pengertian lainnya adalah bekerja dengan beberapa form pada satu aplikasi.

Untuk lebih memahami kita akan membuat sebuah aplikasi penghitungan menggunakan module pada pemrograman visual basic 2008

Pertama buat sebuah project baru dengan cara memilih file – new project – new form windows application

Setelah project baru dibuat langkah selanjutnya adalah membuat modul dengan cara memilih project – add module – beri nama ModulKonfersi - add

Langkah selanjutnya buat sebuah form baru dengan nama FormUtama.vb dan desain seperti berikut ini lengkap dengan penamaan pada propertiesnya

Setelah FormUtama.vb selesai, buat form baru dengan nama KonfersiInchi.vb dan desain seperti berikut ini lengkap dengan penamaan pada propertiesnya

Setelah KonfersiInchi.vb selesai, dan buat form baru lagi dengan nama KonfersiMeter.vb dan desain seperti berikut ini lengkap dengan penamaan pada propertiesnya

Setelah ketiga form sudah selesai dibuat, langkah selanjutnya kita masuk ke tahap pemograman.

Isikan sintaks berikut pada FormUtama

Public Class FormUtama

    Private Sub btnKonfMeter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKonfMeter.Click
        KonfersiMeter.Show() ‘memanggil form KonfersiMeter
    End Sub

    Private Sub btnKonfInchi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKonfInchi.Click
        KonfersiInchi.Show()‘memanggil form KonfersiInchi
    End Sub

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        End ‘mengakhiri program
    End Sub
End Class

Setelah FormUtama telah di program, langkah selanjutnya adalah pemograman di form KonfersiMeter, berikut ini adalah sintaks pada KonfersiMeter.vb

Public Class KonfersiMeter

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close() 'keluar dari form KonfrsiMeter
    End Sub

    Private Sub btnKonfKeInchi_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKonfKeInchi.Click
        Dim dblMeter As Double 'variabel dblMeter dengan tipe Double
        Dim dblInch As Double 'variabel dblInch dengan tipe Double
        Try
            dblMeter = CDbl(txtMeter.Text) 'mengsi nilai dblMeter dari txtMeter.Text
            dblInch = metertoinch(dblMeter) 'mengisi nilai dblInch dari fungsi metertoinch
            MessageBox.Show(dblMeter.ToString() & " meter sama dengan " & dblInch.ToString() & " inch")

        Catch
            MessageBox.Show("Error : masukan angka")

        End Try
    End Sub

    Private Sub btnKonfKeKaki_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKonfKeKaki.Click
        Dim dblMeter As Double 'variabel dblMeter dengan tipe Double
        Dim dblKaki As Double 'variabel dblKaki dengan tipe Double
        Try
            dblMeter = CDbl(txtMeter.Text) 'mengsi nilai dblMeter dari txtMeter.Text
            dblKaki = metertokaki(dblMeter) 'mengisi nilai dblKaki dari fungsi metertokaki
            MessageBox.Show(dblMeter.ToString() & " meter sama dengan " & dblKaki.ToString() & " kaki (feet)")

        Catch
            MessageBox.Show("Error : masukan angka")

        End Try
    End Sub

    Private Sub btnKonfKeYard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKonfKeYard.Click
        Dim dblMeter As Double 'variabel dblMeter dengan tipe Double
        Dim dblYard As Double 'variabel dblYard dengan tipe Double
        Try
            dblMeter = CDbl(txtMeter.Text) 'mengsi nilai dblMeter dari txtMeter.Text
            dblYard = metertoyard(dblMeter) 'mengisi nilai dblYard dari fungsi metertoyard
            MessageBox.Show(dblMeter.ToString() & " meter sama dengan " & dblYard.ToString() & " yard")

        Catch
            MessageBox.Show("Error : masukan angka")

        End Try
    End Sub
End Class

Setelah form KonfersiMeter telah di program, langkah selanjutnya adalah pemograman di form KonfersiInchi, berikut ini adalah sintaks pada KonfersiInchi.vb

Public Class KonfersiInchi

    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close() ‘mengeluarkan program KonfersiInchi
    End Sub

    Private Sub btnKonfKeMili_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKonfKeMili.Click
        Dim dblInchi As Double ‘membuat variabel dblInchi dengan tipe Double
        Dim dblMili As Double ‘membuat variabel dblMili dengan tipe Double
        Try
            dblInchi = CDbl(txtInchi.Text)
            dblMili = inchitomili(dblInchi) ‘mengisi dblMili dari fungsi inchitomili

            MessageBox.Show(dblInchi.ToString() & " inchi sama dengan " & dblMili.ToString() & " milimeter")

        Catch
            MessageBox.Show("Error : masukan angka")

        End Try
    End Sub

    Private Sub btnKonfKeCenti_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKonfKeCenti.Click
        Dim dblInchi As Double ‘membuat variabel dblInchi dengan tipe Double
        Dim dblCenti As Double ‘membuat variabel dblCenti dengan tipe Double
        Try
            dblInchi = CDbl(txtInchi.Text)
            dblCenti = inchitocenti(dblInchi) ‘mengisi dblCenti dari fungsi inchitocenti

            MessageBox.Show(dblInchi.ToString() & " inchi sama dengan " & dblCenti.ToString() & " centimeter")

        Catch
            MessageBox.Show("Error : masukan angka")

        End Try
    End Sub

    Private Sub btnKonfKeMeter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKonfKeMeter.Click
        Dim dblInchi As Double ‘membuat variabel dblInchi dengan tipe Double
        Dim dblMeter As Double ‘membuat variabel dblMeter dengan tipe Double
        Try
            dblInchi = CDbl(txtInchi.Text)
            dblMeter = inchitometer(dblInchi) ‘mengisi dblMeter dari fungsi inchitometer
            MessageBox.Show(dblInchi.ToString() & " inchi sama dengan " & dblMeter.ToString() & " meter")

        Catch
            MessageBox.Show("Error : masukan angka")

        End Try
    End Sub
End Class

Setelah semua form telah deprogram, langkah selanjutnya adalah mengisikan sintaks berikut ke Module yang telah kita buat tadi

Module ModulKonfersi

    'merupakan fungsi untuk konfersi dari inch ke milimeter
    Function inchtomili(ByVal mm As Double)
        inchtomili = mm * 25.4
        Return inchtomili
    End Function

    'merupakan fungsi untuk konfersi dari inch ke centimeter
    Function inchtocenti(ByVal cm As Double)
        inchtocenti = cm * 2.54
        Return inchtocenti
    End Function

    'merupakan fungsi untuk konfersi dari inch ke meter
    Function inchtometer(ByVal m As Double)
        inchtometer = m * 0.03
        Return inchtometer
    End Function

    'merupakan fungsi untuk konfersi dari meter ke inch
    Function metertoinch(ByVal i As Double)
        metertoinch = i * 39.37
        Return metertoinch
    End Function

    'merupakan fungsi untuk konfersi dari meter ke kaki (feet)
    Function metertokaki(ByVal ft As Double)
        metertokaki = ft * 3.28
        Return metertokaki
    End Function

    'merupakan fungsi untuk konfersi dari meter ke yard
    Function metertoyard(ByVal y As Double)
        metertoyard = y * 1.093
        Return metertoyard
    End Function
End Module

Setelah semua sudah selesai di program, aplikasi dapat langsung di Run, dan berikut ini hasilnya.

Sekian tutorial yang bisa saya berikan untuk teman-teman sekalian, mohon maaf apabila masih banyak kekurangan, semoga tutorial ini bisa bermanfaat bagi yang membutuhkan Aamiin.