Membuat Menu di Visual Basic

     Pada praktikum kali ini kita akan membuat program MDI pada visual basic, berikut penjelasannya

1. Pertama tama buka dulu VB nya

2. Lalu buat program mdi nya dengan mengklik kanan pada tulisan project yang ada di posisi kanan atas, lalu klik add MDI, lalu akan muncul seperti ini

3. Lalu klik kanan pada form MDI nya pilih menu editor lalu buat seperti ini

4. Lalu buat form sebanyak 3 kali

5. Pada form 1 buat lah seperti ini

6. Ketikkan pada command button ‘ok, clear, dan keluar seperti ini’

Dim umur as integer mengartikan umur itu sebagai integer atau bilangan bulat, form1.show berarti akan menampilkan form 1 nya, form1.label2.caption = ‘nama saya = “ & text1.text, maksudnya form1 dari caption yang ada di label 2 akan menghasilkan ‘nama saya’ dan inputan dari text1.text, begitu juga dengan yang sama seperti ini, lalu umur = 2017 I text4.text, berarti umurnya itu 2017 dikurang dengan angka inputan yang ada di text 4, lalu option value true, menyatakan bahwa dia benar,end if untuk mengakhiri program ‘ok’, lalu di command button clear, text1.text = “ “ berarti untuk menghapus teks 1 nya, begitu dengan yg lainnya, lalu ketikan form1. Hide untuk menyembunyikan form 1 nya, form2.show untuk menampilkan form 2nya. Berikut hasil outputannya

7. Lalu form 2 nya buat seperti ini

8. Ketikkan kodingannya seperti ini pada smua bagian command button

Untuk command button input, UTS, UAS, dan HASIL dijadikan sebagai integer atau bilangan bulat lalu uts nya ada di text 1, dan uas nya di text2, lalu if hasil >= 90 then text3.text = hasil, label5.caption = “grade A” berarti jika ‘hasilnya lebih dari 90 maka akan tecetak di label 5 begitu juga seterusnya sampai hasilnya kurang dari 60 maka akan mencetak ‘grade E’, end if untuk mengakhiri program if then nya. Lalu pada command menu diketikkan seperti itu agar saat di klik yang kluar adalah form MDI. Pada command next diketikkan seperti itu karena agar memunculkan form 3 dan menyembunyikan form 2 nya. Berikut hasil outputannya

9. Lalu buat form 3 nya seperti ini

10. Lalu ketikkan kodingannya seperti ini pada command button nya

For i = 1 to 3, brarti variabel I = 1 sampai 3, lalu for j = 3 to i step -1 berarti j nya itu 3 sampai I berkurang 1, print j untuk dapat menghasilkan outputannya, for I = 1 to 2, brarti variabel i 1 sampai 2, for j = 3 to  (3-1)  step -1, brarti 3 sampai 2 berkurang 1, lalu pada command clear ketikkan text1.text = clear, berarti akan menghapus text 1, lalu menu nya akan menyembunyikan form 2 dan menampilkan MDI form