7. Module dan Multiple Form Pada Visual Basic .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 2010

1. Buat sebuah project baru dengan cara memilih file – new project – new form windows application

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

3. Langkah selanjutnya buat sebuah form baru dengan nama FormUtama.vb

Objek	Text	Name
Label1	Merupakan Aplikasi untuk konfersi bilangan	-
Button1	Konfersi dari Meter	BtnKonfMeter
Button2	Konfersi dari Inci	BtnKonfInci
Button3	Exit	BtnExit

4. Setelah FormUtama.vb selesai, buat form baru dengan nama KonfersiInchi.vb

Objek	Text	Name
Label1	Masukan Nomer Ukuran	-
TextBox1	-	TxtInci
Button1	Ubah ke Milimiter	BtnKonfkeMili
Button2	Ubah ke CentiMeter	BtnKonfkeCenti
Button3	Ubah ke Meter	BtnKonfkeMeter
Button4	Exit	BtnExit

5. Setelah KonfersiInchi.vb selesai, dan buat form baru lagi dengan nama KonfersiMeter.vb

Objek	Text	Name
Label1	Masukan Nomer Ukuran	-
TextBox1	-	TxtMeter
Button1	Ubah ke Inci	BtnKonfkeInci
Button2	Ubah ke Kaki	BtnKonfkeKaki
Button3	Ubah ke Yard	BtnKonfkeYard
Button4	Exit	BtnExit

6. 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

  

7. 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

8. 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

9. 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

10. Setelah semua sudah selesai di program, aplikasi dapat langsung di Run.

Terimakasih segitu dulu pembahasan materi visual basic 2010 dari saya semoga bermanfaat bila ada kesalahan mohon dimaafkan terimakasih J