PERTEMUAN 12 : 11 ~ MEI ~ 2015 : MEMBUAT APLIKASI CONVERTER UKURAN MENGGUNAKAN MDI FORM DI VB 2010

MEMBUAT APLIKASI CONVERTER UKURAN MENGGUNAKAN MDI FORM DI VB 2010

Assalamualaikum.Wr.Wb

    Pada kesempatan kali ini saya akan berbagi cara bagaimana membuat aplikasi converter ukuran menggunakan MDI FORM di vb 2010 .Untuk kali berbeda dengan yang sebelum sebelumnya karena menggunakan 2 form yang pertama untuk form Meter To English dan yang ke 2 form untuk Inchies To Meter. Sementara Untuk script nya sih sama saja dengan vb yang sebelum sebelumnya. Untuk lebih jelasnya berikut ini adalah langkah-langkahnya :



1. Buka Visual Basic 2010 anda seperti gambar di bawah ini
                

2.  Kemudian klik  " New project " Seperti gambar di bawah ini

 3. Setelah  di klik maka akan mucul gambar di bawah ini kemudian klik " Windows Form Application "

 4. Kemudian akan muncul form kosong seperti gambar di bawah ini

 5. Setelah itu anda sorot ke arah kiri pada form ada atau cari " Toolbox" kemudian pilih " Button " , " TextBox ", " Label " seperti gambar di bawah ini

 

6.   maka hasilnya akan muncul form seperti gambar di bawah ini

CATATAN : "Ganti semua properti seperti ListBox1, Button1 dan yang lainnya menjadi seperti gambar di bawah ini "

Objek	Text	Name
Label1	Enter the Number of Meters
TextBox1		txtMeters
Button1	Convert To Inches	btnConvertToInches
Button2	Convert To Feet	btnConvertToFeet
Button3	Convert To Yard	btnConvertToYard
Button4	Exit	btnExit

8. Untuk Form Meter To English berikut ini adalah scriptnya :

Public Class MetertoEnglish

    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

    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

    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
End Class

9. Sementara untuk form yang kedua adalah seperti gambar di bawah ini

CATATAN : "Ganti semua properti seperti ListBox1, Button1 dan yang lainnya menjadi seperti gambar di bawah ini "

Objek	Text	Name
Label1	Enter the Number of Inches
TextBox1		txtInches
Button1	Convert To Mili Meters	btnConvertToMiliMeters
Button2	Convert To Centi Meters	btnConvertToCentiMeters
Button3	Convert To Meters	btnConvertToMeters
Button4	Exit	btnExit

 

10. Untuk Form Inchies To Meter berikut ini adalah scriptnya :

Public Class InchiesToMeter

    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

    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

    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

End Class

11. Kemudian buat Module untuk membuat rumus hitung dengan cara copy script di bawah ini :

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

12. Buat form MDI seperti gambar di bawah ini

13. Kemudian copy script di bawah ini :

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 METERSTOENGLISHToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles METERSTOENGLISHToolStripMenuItem.Click
        MetertoEnglish.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

14. Jika sudah selesai semua tekan F5 untuk debug program sehingga seperti gambar di bawah ini :

Selamat mencoba ... (^_^)

幸運を... (^_^)

• Twitter
• Facebook
• Google
• Tumblr
• Pinterest

Burhanxxx

Artikel Terkait