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.