Pertemuan 10, 27 April 2015 : Konverter Panjang menggunakan VB.net

saya akan membuat tutorial Mengkonversi Panjang menggunakan Microsoft visual basic 2010 express. Langkah-langkahnya adalah sebagai berikut : 
1.Buka aplikasi Microsoft visual basic 2010 express ->file->New Project->Windows Form Application, isikan namanya Konversi Panjang. Kemudian klik ok. 

Rename nama formnya menjadi Main Menu. Buat tampilan formnya seperti ini 

Kemudian masukan code berikut ini : Untuk button Convert to meters . 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Meters.Show()
    End Sub

Untuk button Convert to inches. 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Inches.Show()
    End Sub

Untuk button Exit. 

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

2.Kemudian kita membuat satu form baru dengan cara klik kanan di project kita pilih add -> windows form. Isikan namanya Meters. 

Lalu buat tampilan formnya seperti ini. 

Kemudian masukan code berikut ini : Untuk button Convert To Inches. 

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

        Try
            dblMeters = CDbl(txtMeters.Text)
            dblInches = MeterToInches(dblMeters)

            MessageBox.Show(dblMeters.ToString() & "Meter Equals" & dblInches.ToString() & " Inches")


        Catch
            MessageBox.Show("Error : Enter a Numeric Value.")

        End Try
    End Sub

Untuk button Convert To Feet. 

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

        Try
            dblMeters = CDbl(txtMeters.Text)
            dblFeet = MeterToFeet(dblMeters)

            MessageBox.Show(dblMeters.ToString() & "Meter Equals" & dblFeet.ToString() & " Feets")


        Catch
            MessageBox.Show("Error : Enter a Numeric Value.")
        End Try
    End Sub

Untuk button Convert To Yard. 

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim dblMeters As Double
        Dim dblYards As Double

        Try
            dblMeters = CDbl(txtMeters.Text)
            dblYards = MeterToYard(dblMeters)

            MessageBox.Show(dblMeters.ToString() & "Meter Equals" & dblYards.ToString() & " Yards")


        Catch
            MessageBox.Show("Error : Enter a Numeric Value.")
        End Try
    End Sub

Untuk button Exit. 

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

3.kita buat satu form baru lagi dengan cara klik kanan di project kita pilih add -> windows form. Isikan namanya Inches. 

Lalu buat tampilan formnya seperti berikut ini. 

Masukan code berikut di masing-masing button. Untuk button Convert To Mili Meters. 

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim dblInches As Double
        Dim dblMiliMeters As Double

        Try
            dblInches = CDbl(txtInches.Text)
            dblMiliMeters = InchesToMiliMeters(dblInches)

            MessageBox.Show(dblInches.ToString() & "Inch Equals" & dblMiliMeters.ToString() & " MiliMeters")


        Catch
            MessageBox.Show("Error : Enter a Numeric Value.")
        End Try
    End Sub

Untuk button Convert To Centi Meters. 

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim dblInches As Double
        Dim dblCentiMeters As Double

        Try
            dblInches = CDbl(txtInches.Text)
            dblCentiMeters = InchesToCentiMeters(dblInches)

            MessageBox.Show(dblInches.ToString() & "Inch Equals" & dblCentiMeters.ToString() & " CentiMeters")


        Catch
            MessageBox.Show("Error : Enter a Numeric Value.")
        End Try
    End Sub

Untuk button Convert To Meters. 

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

        Try
            dblInches = CDbl(txtInches.Text)
            dblMeters = InchesToMeters(dblInches)

            MessageBox.Show(dblInches.ToString() & "Inch Equals" & dblMeters.ToString() & " Meters")


        Catch
            MessageBox.Show("Error : Enter a Numeric Value.")
        End Try
    End Sub

Untuk button Exit. 

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

4.Buat sebuah module dengan cara klik kanan pada project kita pilih add-> Module. 

Lalu ketikan code berikut ini. 

5.Setelah semua selesai run programnya. 

Pertemuan 9, 20 April 2015 : tutorial penggunaan module dan MDI Parent Form menggunakan Visual basic 2010 express

 saya akan membuat tutorial penggunaan module dan MDI Parent Form kursi menggunakan Microsoft visual basic 2010 express.

Langkah-langkahnya adalah sebagai berikut :

1.      Buka aplikasi  Microsoft visual basic 2010 express ->file->New Project->Windows Form Application, isikan namanya Luas Segitiga. Kemudian klik ok.

Buat tampilan formnya seperti ini.

 

Kemudian masukan koding nya di button proses.

Kodingnya adalah sebagai berikut :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Alas, Tinggi As Integer
        Alas = TextBox1.Text
        Tinggi = TextBox2.Text
        TextBox3.Text = LuasSegitiga(Alas, Tinggi)
    End Sub
End Class

2.      Kemudian kita membuat satu form baru lagi  dengan cara klik kanan di project kita pilih add -> windows form. Isikan namanya Luas Persegi.

Lalu buat tampilan formnya seperti ini.

Lalu masukan kodingnya ke button proses.

Kodingnya adalah sebagai berikut :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Panjang, Lebar As Integer

        Panjang = TextBox1.Text

        Lebar = TextBox2.Text

        TextBox3.Text = Luas(Panjang, Lebar)

    End Sub

End Class

3.      Buat module baru dengan cara klik kanan pada project pilih add -> module.

Kemudian masukan coding seperti di gambar berikut ini .

4.      Lalu buat MDI Parent Form dengan cara klik kanan di projet kita pilih add -> new item-> kemudian pili MDI Parent Form.tampilannya seperti berikut.

Hapus semua menu bar yang ada di atas dan ubah menjadi seperti gambar di bawah ini.

Kemudian klik pada menu bar rumus , masukan Luas segitiga dan Luas Persegi Panjang dan Exit Pada Menu bar Keluar Menjadi  seperti gambar dibawah ini.

  

Masukan koding di Rumus segitiga.

Kodingnya adalah sebagai berikut :

Private Sub RumusSegitigaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusSegitigaToolStripMenuItem.Click

        Form1.Show()

    End Sub

Masukan koding di Rumus Persegi Panjang.

Kodingnya adalah sebagai berikut :

Private Sub RumusPersegiPanjangToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RumusPersegiPanjangToolStripMenuItem.Click

        Form2.Show()

    End Sub

Masukan koding di Exit.

Private Sub ExitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem1.Click

        Me.Close()

    End Sub

Kodingnya adalah sebagai berikut :

5.      Kemudian Run program. Tampilannya akan seperti berikut.

Pilih rumus yang ingin di cari . saya ambil contoh rumus segitiga. Klik rumus lalu pilih rumus segitiga .

dengan alas 9  dan tinggi 20 maka luas segitiganya adalah 90.

Sekian tutorial mengenai penggunaan  Module dan MDI Parent Form.