KINTAN YULANDA

LISTING PROGRAM

Form1 (Persegi Panjang)

Private Sub Command1_Click()

Text3.Text = Text1.Text * Text2.Text

End Sub

Private Sub Command2_Click()

Text4.Text = (CInt(Text1) + CInt(Text2)) * 2

End Sub

Private Sub Command3_Click()

Form2.Show

End Sub

Form2 (Lingkaran) :

Private Sub Command1_Click()

Text2 = ((Text1 * 1) ^ 2) * 3.14

End Sub

Private Sub Command2_Click()

Text3.Text = (text1 * 1) * 2 * 3.14

End Sub

Private Sub Command3_Click()

Form3.Show

End Sub

Form3 (Persegi) :

Private Sub Command1_Click()

Text2.Text = Text1.Text * Text1.Text

End Sub

Private Sub Command2_Click()

Text3.Text = Text1.Text * 4

End Sub

MDI Form1

Private Sub exit_Click()

End

End Sub

Private Sub lingkaran_Click()

Form2.Show

End Sub

Private Sub persegi_Click()

Form3.Show

End Sub

Private Sub persegipanjang_Click()

Form1.Show

End Sub

ALUR  LOGIKA

Pada kesempatan ini saya akan menjelaskan program yang masih menggunakan Microsoft Visual Basic, namun kali ini kita akan membuat beberapa form atau SDI (Single Document Interface) menjadi MDI (Multiple Document Interface).

Yang pertama saya akan membuat form untuk perhitungan luas dan keliling dari bangun persegi panjang, dengan form seperti ini :

commandButton1, masukan kodingan program agar dapat menampilkan hasil perhitungan panjang yang dikalikan dengan lebar untuk menghitung luas dari bagun persegi panjang yang akan ditampilkan pada text3.

Masukan kodingan seperti ini:

Private Sub Command1_Click()

Text3.Text = Text1 * Text2

End Sub

commandButton2, masukan kodingan program agar dapat menampilkan perhitungan 2 (panjang+lebar) untuk menghitung keliling dari bangun perseegi panjang yang ada pada text4. Kode ‘Cint’ dimaksudkan agar tipe data pada text1 dijadikan tipe data integer sehingga bisa mengoperasi penjumlahan dengan text2, dengan syarat agar pada text2 diubah juga tipe datanya menjadi integer.

Masukan kodingan seperti ini:

Private Sub Command2_Click()

Text4.Text = (CInt(Text1) + CInt(Text2)) * 2

End Sub

Selanjutnya saya akan menjelaskan form2,  menghitung luas dan keliling dari lingkaran. Dengan di ketahui yaitu Jari-jari. Sebelumnya kita akan membuat CommandButton penghubung antara form1 dengan form2 yaitu masukan kodingan berikut:

Private Sub Command3_Click()

Form2.Show

End Sub

Format pada form2 adalah sebagai berikut:

CommandButton1, masukan kodingan program agar dapat menampilkan hasil perhitungan kuadrat dari jari-jari yang diketahui lalu dikalikan dengan pi (3.14) untuk menghitung luas dari lingkaran pada text2.

Masukkan kodingan seperti ini:

Private Sub Command1_Click()

Text2 = ((Text1 * 1) ^ 2) * 3.14

End Sub

commandButton2, masukan kodingan program agar dapat menampilkan hasil perhitungan keliling lingkaran yaitu 2 dikalikan dengan pi, dimana pi bernilai 3.14 kemudian dikalikan kembali dengan Jari-jari yang telah diketahui yang hasilnya akan muncul pada text3.

Masukkan kodingan seperti ini:

Private Sub Command2_Click()

Text3.Text = (text1 * 1) * 2 * 3.14

End Sub

Kemudian untuk form3, menghitung luas dan keliling dari bangun persegi, yang dimana sisinya telah diketahui atau dapat kita isi sesuai kemauan. Namun sebelum itu kita buat dahulu tombol penghubung antara form2 dengan form3, yaitu masukan kodingan berikut:

Private Sub Command3_Click()

Form3.Show

End Sub

Format pada form3 adalah sebagai berikut:

CommandButton1, masukkan kodingan program agar dapat menampilkan hasil perhitungan luas dari bangun persegi yaitu sisi dikalikan dengan sisi, dimana sisi telah diketahui atau dapat diisikan sendiri yang nati hasilnya akan muncul pada Text2.

masukan kodingan seperti ini:

Private Sub Command1_Click()

Text2.Text = Text1.Text * Text1.Text

End Sub

CommandButton2, masukkan kodingan agar dapat menampilkan hasil hitungan dari keliling bangun persegi yaitu mengalikan sisi dengan 4, yang nanti hasilnya akan muncul pada Text3.

Masukkan kodingan seperti ini:

Private Sub Command2_Click()

Text3.Text = Text1.Text * 4

End Sub

Form1, Form2, dan Form3 termasuk dalam SDI (Single Document Interface) kemudian untuk menggabungnya agar menjadi MDI (Multiple Document Interface). Klik dahulu menu project lalu pilih Add MDI form, kemudian klik menu editor.

                 Menu Editor

Maka akan muncul tampilan seperti ini:

Pada Menu Editor, disini kita akan membuat menu, dan exit. Lalu isilah caption dan name, kemudian klik next.  lalu untuk membuat sub menu seperti ...persegi panjang, ...Lingkaran, ...Persegi klik menu exit lalu klik insert kemudian klik icon    kemudian oke dan seterusnya.

Agar MDI Form dapat di run atau dijalankan maka atur dahulu pada project properties    

General. Ubah startup object menjadi MDIForm1 kemudian OK. Maka Program MDI yang tadi telah dibuat siap dijalankan.

output