Membuat Aplikasi Konverter Sederhana Menggunakan Microsoft Visual Basic 2010 Express

Membuat Aplikasi Konverter Ukuran Sederhana Menggunakan Microsoft Visual Basic 2010 Express

Ass.Wr.Wb, kali ini saya akan membuat sebuah Aplikasi konverter ukuran sederhana menggunakan di Visual Basic 2010.

1. Buka aplikasi VISUAL BASIC 2010 EXPRESS, lalu setelah program terbuka, klik FILE > New Project, maka akan muncul windows pop-up, lalu pilih “Windows Form Application”. Jika sudah di pilih isikan Nama nya dengan “Aplikasi Konverter Ukuran” dan Tempat Penyimpan project yang nanti akan di buat pada Name dan Location jika sudah klik Ok.

2. Dilangkah ini kita akan menggunakan sebuah MDI Form, untuk menambahkan sebuah file MDI Form, langkahnya sebagai berikut : Klik PROJECT >> Add Windows Form >> Muncul Windows Pop Up, lalu pilih MDI Parent Form

3. Design MDI Form nya seperti ini :

4. Buat sebuah Form baru dengan nama “MetertoInchies” dengan cara : klik Project >> Add Windows Form >> Lalu pilih “Windows Form”. dan design Form nya seperti gambar di bawah ini :

Komponen-komponen yang dibutuhkan :

• 1 Buah TextBox : (name) : txtMeters
• 1 Buah Label : Text : Enter the Number of Meters
• 4 Buah Button :
• Button 1 : (name) : btnConvertToInches | Text : Convert to Inches
• Button 2 : (name) : btnConvertToFeet | Text : Convert to Feet
• Button 3 : (name) : btnConvertToYard | Text : Convert to Yard
• Button 4 : (name) : btnExit | Text : Exit

Tambahkan koding ini ke btnConvertToInches (Button 1) :

    Private Sub btnConvertToInches_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToInches.Click
        Dim dblMeters As Double
        Dim dblInches As Double

        Try
            dblMeters = CDbl(txtMeters.Text)
            dblInches = MetersToInches(dblMeters)
            MessageBox.Show(dblMeters.ToString() & ” Meters equals ” & dblInches.ToString() & ” Inches”)
        Catch
            MessageBox.Show(“Error: Enter a number value”)
        End Try
    End Sub

Tambahkan koding ini ke btnConvertToFeet (Button 2) :

    Private Sub btnConvertToFeet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToFeet.Click
        Dim dblMeters As Double
        Dim dblFeet As Double

        Try
            dblMeters = CDbl(txtMeters.Text)
            dblFeet = MetersToFeet(dblMeters)
            MessageBox.Show(dblMeters.ToString() & ” Meters equals ” & dblFeet.ToString() & ” Feet”)
        Catch
            MessageBox.Show(“Error: Enter a number value”)
        End Try
    End Sub

Tambahkan koding ini ke btnConvertToYard (Button 3) :

    Private Sub btnConvertToYard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToYard.Click
        Dim dblMeters As Double
        Dim dblYard As Double

        Try
            dblMeters = CDbl(txtMeters.Text)
            dblYard = MetersToYard(dblMeters)
            MessageBox.Show(dblMeters.ToString() & ” Meters equals ” & dblYard.ToString() & ” Yard”)
        Catch
            MessageBox.Show(“Error: Enter a number value”)
        End Try
    End Sub

Tambahkan koding ini ke btnExit (Button 4) :

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

5. Buat sebuah Form baru dengan nama “InchiesToMeter.vb” dengan cara : klik Project >> Add Windows Form >> Lalu pilih “Windows Form”. dan design Form nya seperti gambar di bawah ini :

Komponen-Komponen yang dibutuhkan :

• 1 Buah Label : Text : Enter the Number of Inches
• 1 Buah TextBox : (name) : txtInches
• 4 Buah Button :
• Button 1 : (name) : btnConvertToMiliMeters | Text : Convert to Milimeters
• Button 2 : (name) : btnConvertToCentiMeters | Text : Convert to Centimeters
• Button 3 : (name) : btnConvertToMeters | Text : Convert to Meters
• Button 4 : (name) : btnExit | Text : Exit
• Tambahkan koding ini ke btnConvertToMiliMeters (Button 1) :
•     Private Sub btnConvertToMiliMeters_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToMiliMeters.Click
          Dim dblInches As Double
          Dim dblMiliMeters As Double

        Try
            dblInches = CDbl(txtInches.Text)
            dblMiliMeters = InchesToMili(dblInches)
            MessageBox.Show(dblInches.ToString() & ” Inches equals ” & dblMiliMeters.ToString() & ” MiliMeters”)
        Catch
            MessageBox.Show(“Error: Enter a number value”)
        End Try
    End Sub

• Tambahkan koding ini ke btnConvertToCentiMeters (Button 2) :
•     Private Sub btnConvertToCM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToCentiMeters.Click
          Dim dblInches As Double
          Dim dblCentiMeters As Double

        Try
            dblInches = CDbl(txtInches.Text)
            dblCentiMeters = InchesToCenti(dblInches)
            MessageBox.Show(dblInches.ToString() & ” Inches equals ” & dblCentiMeters.ToString() & ” CentiMeters”)
        Catch
            MessageBox.Show(“Error: Enter a number value”)
        End Try
    End Sub

• Tambahkan koding ini ke btnConvertToMeters (Button 3) :
•     Private Sub btnConvertToMeters_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToMeters.Click
          Dim dblInches As Double
          Dim dblMeters As Double

        Try
            dblInches = CDbl(txtInches.Text)
            dblMeters = InchesToMeters(dblInches)
            MessageBox.Show(dblInches.ToString() & ” Inches equals ” & dblMeters.ToString() & ” Meters”)
        Catch
            MessageBox.Show(“Error: Enter a number value”)
        End Try
    End Sub

• Tambahkan koding ini ke btnExit (Button 4) :
•     Private Sub btnExit_Click(sender As System.Object, e As System.EventArgs) Handles btnExit.Click
          Me.Close()
      End Sub

6. Tambahkan koding ini ke MDI Form yang telah kita buat tadi, dengan cara klik sembarang area di MDI Form:

• Imports System.Windows.Forms

Public Class MDIParent1

    Private Sub OpenFile(ByVal sender As Object, ByVal e As EventArgs)
        Dim OpenFileDialog As New OpenFileDialog
        OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
        OpenFileDialog.Filter = “Text Files (*.txt)|*.txt|All Files (*.*)|*.*”
        If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
            Dim FileName As String = OpenFileDialog.FileName
            ‘ TODO: Add code here to open the file.
        End If
    End Sub

    Private Sub SaveAsToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs)
        Dim SaveFileDialog As New SaveFileDialog
        SaveFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments
        SaveFileDialog.Filter = “Text Files (*.txt)|*.txt|All Files (*.*)|*.*”

        If (SaveFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then
            Dim FileName As String = SaveFileDialog.FileName
            ‘ TODO: Add code here to save the current contents of the form to a file.
        End If
    End Sub

    Private Sub MeterstoInchesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles MeterstoInchesToolStripMenuItem.Click
        MetertoInches.Show()
    End Sub

    Private Sub ExitToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Close()
    End Sub

    Private Sub INCHIESTOMETERSToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles INCHIESTOMETERSToolStripMenuItem.Click
        InchiesToMeter.Show()
    End Sub
End Class

7. Tambahkan sebuah Module untuk project ini, dengan cara Klik Project >> Add Class >> Pilih Module, beri nama “ConverterModule.vb”, dan tambahkan script sebagai berikut :

• Module ConverterModule

    Function MetersToInches(ByVal I As Integer)
        MetersToInches = I * 39.3701
    End Function

    Function MetersToFeet(ByVal F As Integer)
        MetersToFeet = F * 3.28084
    End Function

    Function MetersToYard(ByVal Y As Integer)
        MetersToYard = Y * 1.09361
    End Function

    Function InchesToMili(ByVal MM As Integer)
        InchesToMili = MM * 25.4
    End Function

    Function InchesToCenti(ByVal CM As Integer)
        InchesToCenti = CM * 2.54
    End Function

    Function InchesToMeters(ByVal M As Integer)
        InchesToMeters = M * 0.0254
    End Function
End Module

8. Sekarang klik “Solution Project” di bagian Kanan Atas (Tepat dibawah tombol Close Program), pilih project anda yg sedang di buka (Aplikasi Konverter Ukuran), lalu klik kanan pada “My Project” >> Open >> Pada bagian STARTUP FORM pilih MDIParent1.

9. Selesai, maka setelah itu jalankan programnya dengan menekan tombol F5. Maka seperti ini lah hasil program yang kita buat. Lihat gambar.