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

Kali ini 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.

Selamat mencoba…

Semoga bermanfaat