Pertemuan 9 | 20 April 2015 | MULTIPLE FORM, MDI FORM, dan MODULE

MULTIPLE FORM, MDI FORM, dan MODULE

1. Multiple Form : Sebuah aplikasi window dapat memiliki lebih dari satu window (form), dan kebanyakan aplikasi memang memiliki beberapa window. Kita juga dapat menambahkan beberapa window pada aplikasi dengan menambahkan form pada project. 
2. MDI Form : Induk dari semua Form yang ada, atau dalam arti lain adalah antarmuka pengguna khas di mana setiap dokumen dalam aplikasi ditampilkan dalam jendela anak terpisah dalam wilayah klien dari jendela utama aplikasi. 
3. Module : Secara sederhana dapat di artikan sebagai suatu fungsi yang bersifat umum, module biasanya di mulai seperti kita menuliskan sebuah functionSelain ituModule juga berfungsi untuk menyimpan procedure-prosedure atau fungsi-fungsi atau variable-variable yang digunakan secara global oleh alplikasi yang akan kita buat, sehingga kita tidak perlu membuat fungsi-fungsi atau procedur-prosedure atau variable-variable tersebut secara berulang-ulang, dan akan lebih memudahkan kita dalam penggunaannya.  

Tutorial :  Contoh Penggunaan Multiple Form, MDI Form, dan Module

• Langkah pertama adalah buka program microsoft visual studio 2008 dengan cara klik Start > All program > Microsoft Visual Studio 2008.
• Langkah Kedua klik pada create project untuk memulai project baru, atau masuk ke menu File > New Project. 
• Langkah ketiga pilih Windows Forms Application, anda bisa merubah nama project anda pada textbox di bagian bawah. Klik OK. 
• Langkah keempat buatlah desain MDI form Main Menu, form Meter To English, dan form Inches To Metrics seperti gambar di bawah ini. Lalu ubahlah propertiesnya seperti pada tabel berikut:

Objek	Text	Name
Label1	Enter the Number of Meters
TextBox1		txtMeters
Button1	Convert To Inches	btnConvertToInches
Button2	Convert To Feet	btnConvertToFeet
Button3	Convert To Yard	btnConvertToYard
Button4	Exit	btnExit

Tabel Properties Meters To English

Objek	Text	Name
Label1	Enter the Number of Inches
TextBox1		txtInches
Button1	Convert To Mili Meters	btnConvertToMiliMeters
Button2	Convert To Centi Meters	btnConvertToCentiMeters
Button3	Convert To Meters	btnConvertToMeters
Button4	Exit	btnExit

Tabel Properties Inches To Metrics

• Langkah kelima buatlah satu buah module, lalu masukkan fungsi berikut

Module ConverterModule Function MetersToInches(ByVal I As Integer) MetersToInches = I * 39.3701 End Function Function MetersToFeet(ByVal F As Integer) MetersToFeet = F * 3.28084 End Function Function MetersToYard(ByVal Y As Integer) MetersToYard = Y * 1.09361 End Function Function InchesToMili(ByVal MM As Integer) InchesToMili = MM * 25.4 End Function Function InchesToCenti(ByVal CM As Integer) InchesToCenti = CM * 2.54 End Function Function InchesToMeters(ByVal M As Integer) InchesToMeters = M * 0.0254 End Function End Module

• Langkah keenam masukkan koding berikut

1.Form Meters To English

Public Class MetersToEnglish Private Sub btnConvertToInches_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToInches.Click Dim dblMeters As Double Dim dblInches As Double Try dblMeters = CDbl(txtMeters.Text) dblInches = MetersToInches(dblMeters) MessageBox.Show(dblMeters.ToString() & " Meters equals " & dblInches.ToString() & " Inches") Catch MessageBox.Show("Error: Enter a number value") End Try End Sub Private Sub btnConvertToFeet_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToFeet.Click Dim dblMeters As Double Dim dblFeet As Double Try dblMeters = CDbl(txtMeters.Text) dblFeet = MetersToFeet(dblMeters) MessageBox.Show(dblMeters.ToString() & " Meters equals " & dblFeet.ToString() & " Feet") Catch MessageBox.Show("Error: Enter a number value") End Try End Sub Private Sub btnConvertToYard_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToYard.Click Dim dblMeters As Double Dim dblYard As Double Try dblMeters = CDbl(txtMeters.Text) dblYard = MetersToYard(dblMeters) MessageBox.Show(dblMeters.ToString() & " Meters equals " & dblYard.ToString() & " Yard") Catch MessageBox.Show("Error: Enter a number value") End Try End Sub Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click Me.Close() End Sub End Class

2.Form Inches To Metrics

Public Class InchesToMetrics Private Sub btnConvertToMiliMeters_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToMiliMeters.Click Dim dblInches As Double Dim dblMiliMeters As Double Try dblInches = CDbl(txtInches.Text) dblMiliMeters = InchesToMili(dblInches) MessageBox.Show(dblInches.ToString() & " Inches equals " & dblMiliMeters.ToString() & " MiliMeters") Catch MessageBox.Show("Error: Enter a number value") End Try End Sub Private Sub btnConvertToCM_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToCentiMeters.Click Dim dblInches As Double Dim dblCentiMeters As Double Try dblInches = CDbl(txtInches.Text) dblCentiMeters = InchesToCenti(dblInches) MessageBox.Show(dblInches.ToString() & " Inches equals " & dblCentiMeters.ToString() & " CentiMeters") Catch MessageBox.Show("Error: Enter a number value") End Try End Sub Private Sub btnConvertToMeters_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConvertToMeters.Click Dim dblInches As Double Dim dblMeters As Double Try dblInches = CDbl(txtInches.Text) dblMeters = InchesToMeters(dblInches) MessageBox.Show(dblInches.ToString() & " Inches equals " & dblMeters.ToString() & " Meters") Catch MessageBox.Show("Error: Enter a number value") End Try End Sub Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click Me.Close() End Sub End Class

3.MDI Form

Private Sub MeterToEnglishToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MeterToEnglishToolStripMenuItem.Click MetersToEnglish.Show() End Sub Private Sub InchesToMetricsToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InchesToMetricsToolStripMenuItem.Click InchesToMetrics.Show() End Sub Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click Me.Close() End Sub End Class

• Langkah ketujuh untuk mendapatkan hasil dari coding di atas kita tekan F5 pada keyboard anda, maka hasilnya akan seperti berikut.

• Langkah kedelapan,  jika telah selesai klik tombol exit untuk mengakhiri aplikasi.