Pertemuan 12: 11 Mei 2015 Aplikasi Konverter pada VB .NET

Aplikasi Konverter pada VB .NET
Selamat malam dan selamat berjumpa lagi... Kali ini saya akan membahas tentang modules pada VB .NET. Aplikasi yang saya buat yaitu mengenai modules tentang perhitungan konversi. Sebelumnya, saya akan menjelaskan sedikit tentang module. Jika membuat module, tidak perlu tahap instalasi. Apabila menggunakan PUBLIC FUNCTION di dalam module, kita dapat memanggil secara otomatis. Module seolah-olah menyatu dalam form. Module merupakan special class yang dibuat berdasarkan keperluan dan logic.
Langsung saja kita buat aplikasinya, seperti biasa buka VB 2010. Kemudian buat new project dengan pilihan WindowsForm dan isikan nama project yang diinginkan, misalkan Aplikasi Konverter.
Setelah itu, buat form seperti berikut:

Dan ini source code dari masing-masing form di atas:

Public Class FormUtama

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

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

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

    Private Sub FormUtama_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class


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

    Private Sub KonfersiMeter_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class


Public Class KonfersiInchi

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

    Private Sub btnKonfKeMili_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKonfKeMili.Click
        Dim dblInch As Double
        Dim dblMili As Double
        Try
            dblInch = CDbl(txtInch.Text)
            dblMili = inchtomili(dblInch)
            MessageBox.Show(dblInch.ToString() & " inch 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 dblInch As Double
        Dim dblCenti As Double
        Try
            dblInch = CDbl(txtInch.Text)
            dblCenti = inchtocenti(dblInch)
            MessageBox.Show(dblInch.ToString() & " inch 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 dblInch As Double
        Dim dblMeter As Double
        Try
            dblInch = CDbl(txtInch.Text)
            dblMeter = inchtometer(dblInch)
            MessageBox.Show(dblInch.ToString() & " inch sama dengan " & dblMeter.ToString() & " meter")

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

        End Try
    End Sub

    Private Sub KonfersiInchi_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

Dan ini module dari aplikasinya:

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

Hasilnya adalah:
Saya mencoba untuk perhitungan Conversion from meters

Masukan angka kemudian misalkan saya klik conversion to inch

Hasilnya: