Cara membuat MDI

Langkah-langkah membuat MDI

1.      Klik Start > All Program > Folder Microsoft Visual Basec 6.0 > klik Microsoft Visual Basic 6.0.

2.      Jika sudah masuk ke aplikasi VB buat project baru > muncul form new project > pilih standard exe > open.

3.      Bila sudah masuk ke project baru > klik kanan pada windows project > add> pilih MDI form > open.

4.      Lalu muncul form mdi form, tampilan MDI form

5.      Kemudian membuat project baru lagi > klik kanan pada windows property > add>pilih form>open.

6.      Lalu klik project form1>klik kanan pada windows property> cari MDICHILD>ubah false menjadi true.

7.      Lakukan langkah ke 6 untuk project form2.

8.      Pada project form1 > klik pada windows property > klik name > mengubah nama form1 menjadi Frmkalkulator> klik caption > mengubah nama form1 menjadi Kalkulator Sederhana.

9.      Pada project form2 > klik pada windows property > klik name > mengubah nama form1 menjadi Frmessagebox> klik caption > mengubah nama form1 menjadi Message Box.

10.  Pada MDI Form1 > klik kanan pada MDI Form1 > klik menu editor > maka akan muncul tampilan sebuah form menu editor.

11.  Pada menu editor, isi caption pertama dengan nama Buka > isi name denga nama mnbuka > klik next.

12.  Kedua > isi caption yang kedua dengan nama Kalkulator > isi name dengan nama mnkalkulator > klik next > klik tanda panah → untuk menggeser caption kalkulator ke kanan, tujuan klik → agar caption kalkulator menjadi sub menu pada caption Buka

13.  Langkah ketiga ulangin seperti langkah no 12. Cuman di langkah ketiga nama caption nya Message Box dan name nya mnmess.

14.  Keempat > isi caption dengan nama Keluar > isi name dengan nama mnkeluar> klik next > OK.

15.  Pada project form1 buat 12 textbox, 8 label, 2 commandbutton.

16.  Selanjutnya hapus caption pada 12 textbox di windows property > mengganti caption pada 8 label di antara nya :

Label1 = ‘+’                                  Label 5 = ‘=’

Label2 = ‘-‘                                   Label6 = ‘=’

Label3 = ‘*’                                  Label7 = ‘=’

Label4 = ‘/’                                   label8 = ‘=’

17.  Lalu mengganti caption kedua commandbutton di antaranya :

Command1 = Hasil

Command2 = Hapus

18.  Selanjutnya pada project form2, buat 1 commandbutton, lalu ganti nama pada caption dengan nama Pesan.

19.  Kembali lagi ke project form1 > double klik pada command hasil > membuat koding perhitungan kalkulator, seperti dibawah ini :

Private Sub Command1_Click()

Text9.Text = Val(Text1.Text) + Val(Text5.Text)

Text10.Text = Val(Text2.Text) + Val(Text6.Text)

Text11.Text = Val(Text3.Text) + Val(Text7.Text)

Text12.Text = Val(Text4.Text) + Val(Text8.Text)

End Sub

20.  Setelah itu ke project form1> double klik pada command hapus > membuat koding untuk menghapus teks atau angka yang ada pada 12 textbox, seperti di bawah ini :

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Text4.Text = ""

Text5.Text = ""

Text6.Text = ""

Text7.Text = ""

Text8.Text = ""

Text9.Text = ""

Text10.Text = ""

Text11.Text = ""

Text12.Text = ""

End Sub

21.  Langkah selanjutnya ke project form2 > double klik pada command pesan > membuat sebuah koding untuk menampilkan suatu pesan ketika di RUN, seperti di bawah ini :

Private Sub Command1_Click()

x = MsgBox("Manajemen Lanjut_3EA11", vbOKOnly, "2015")

End Sub

22.  Kemudian kembali ke form MDI form1 > klik menu buka yang di MDI form1 > pilih dan klik Kalkulator > muncul form membuat sebuah koding > disini membuat koding untuk menampilkan form kalkulator yang ada di Form1, koding seperti dibawah ini :

Private Sub mnkalkulator_Click()

Frmkalkulator.Show

End Sub

23.  Kembali lagi ke form MDIform1 > langkah ini sama seperti no 22 > pilih dan klik Message Box > muncul form membuat sebuah koding > disini membuat koding untuk menampilkan form messange box yang di form2. Koding seperti dibawah ini :

Private Sub mnmess_Click()

Frmmessagebox.Show

End Sub

24.  Kemudian kembali ke form MDI form1 > klik menu keluar yang di MDI form1 > muncul form membuat sebuah koding > disini membuat koding untuk keluar dari aplikasi, koding seperti dibawah ini :

Private Sub mnkeluar_Click()

End

End Sub

25.  Sebelum di jalankan aplikasi tersebut merubah setup run > Klik menu project > klik project1 properties. Muncul tampilan form project1.

26.  Langkah terakhir uji coba > klik tombol F5 untuk nge-RUN > klik menu buka pilih kalkulator dan muncul form kalkulator > isi angka sesuai keinginan > dan klik hasil.

27.  Klik hapus maka semua angka yang di 12 teks box akan kehapus.

28.  Lalu selanjutnya close kalkulator > klik menu buka > klik message box > muncul form message box > klik command pesan > maka akan muncul pesan

29.  Dan yang terakhir > close form message box > dan klik menu keluar untuk mengakhirinya.