LA 7 AP2B

Pertama buat 1 buah form MDI form dengan klik Project > Add MDI Form,, lalu tiga buah form (Project > Add Form).. Selanjutnya buat menu pada MDI form,, klik kanan pada MDI form lalu pilih Menu Editor akan muncul kotak dialog sbb:

Buat menu File lalu sub menunya New Form dan Exit  sehingga menjadi seperti berikut ini

Pada submenu New Form kodingannya sbb:


Form1.Show


Pada submenu Exit kodingannya sbb:


End


Sekarang berlanjut ke form 1 design form'a sebagai berikut:

kodingan pada text1 :

If Text1.Text = 1 Then Form2.Show Else
If Text1.Text = 2 Then Form3.Show Else
If Text1.Text = 3 Then End
Form1.Hide

lalu masuk ke Form2 design formnya sbb:

Kodingannya pada tombol Input (command Button) adalah sbb:

Form1.Show
Form2.Hide
Form3.Text1.Text = Form2.Text1.Text
Form3.Text2.Text = Form2.Text2.Text
Form3.Text3.Text = Form2.Text3.Text
Form3.Text4.Text = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text)
total = Val(Form3.Text4.Text) / 3
Form3.Text5.Text = total

Slanjutnya yang terakhir design form3:

kodingan pada Exit button hanya:

End

=======================================================