TUTORIAL DAN ANALISIS PROGRAM

TUTORIAL DAN ANALISIS PROGRAM MULTIFORM PENDAFTARAN

TWIBI TWIBOY INDONESIA

Masukkan listing berikut :

Form 1

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Form2.Show()

        Me.Hide()

    End Sub

Keterangan :

Baris 1 untuk memunculkan Form 2

Baris 2 untuk menyembunyikan Form 1

Me adalah nama yang diberikan untuk Form 1

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Close()

    End Sub

Keterangan :

Baris 1 untuk keluar dari program pendaftaran

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

Form 2

Public Class Form2

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

    End Sub

    Private Sub TextBox5_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox5.KeyPress

        If Asc(e.KeyChar) >= 48 And Asc(e.KeyChar) <= 57 Then

            e.Handled = False

        ElseIf Asc(e.KeyChar) = 43 Or Asc(e.KeyChar) = 95 Or Asc(e.KeyChar) = 45 Or Asc(e.KeyChar) = 44 Or Asc(e.KeyChar) = 46 Then

            e.Handled = False

        ElseIf e.KeyChar = vbBack Then

            e.Handled = False

        Else

            e.Handled = True

        End If

    End Sub

Keterangan:

Baris 1 sampai 9 adalah listing code agar TextBox5 tidak dapat diinputkan oleh karakter apapun kecuali angka

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text = (String.Empty) Or TextBox2.Text = (String.Empty) Or DateTimePicker1.Text = (String.Empty) Or ComboBox1.Text = (String.Empty) Or TextBox3.Text = (String.Empty) Or TextBox4.Text = (String.Empty) Or TextBox5.Text = (String.Empty) Then MsgBox("Isilah data dengan lengkap sebelum melanjutkan!") Else Form3.Show()

        If TextBox1.Text = (String.Empty) Or TextBox2.Text = (String.Empty) Or DateTimePicker1.Text = (String.Empty) Or ComboBox1.Text = (String.Empty) Or TextBox3.Text = (String.Empty) Or TextBox4.Text = (String.Empty) Or TextBox5.Text = (String.Empty) Then Me.Show() Else Me.Hide()

    End Sub

Keterangan:

Baris 1 sampai 4 adalah listing code tombol “Next” ketika Form 2 tidak diisi secara lengkap, dan menampilkan MessageBox berisi “Isilah data dengan lengkap sebelum melanjutkan!”

Baris 5 sampai 8 adalah listing code tombol “Next” ketika Form 2 telah terisi dengan lengkap, maka program akan menampilkan form 3 dan menyembunyikan Form 2

 

    Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged

    End Sub

    Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        TextBox1.Text = ""

        TextBox2.Text = ""

        DateTimePicker1.Text = ""

        ComboBox1.Text = ""

        TextBox3.Text = ""

        TextBox4.Text = ""

        TextBox5.Text = ""

    End Sub

End Class

Keterangan :

Baris 1 sampai 7 adalah listing code untuk tombol “Reset” dimana jika tombol ini di-klik maka seluruh data pada Form 2 akan te-reset atau terhapus

Form 3

Public Class Form3

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

        If ListBox1.Text = ("Premium") Then TextBox1.Text = ("Rp.10.000.000,00-")

        If ListBox1.Text = ("Exclusive") Then TextBox1.Text = ("Rp.7.500.000,00-")

        If ListBox1.Text = ("Regular") Then TextBox1.Text = ("Rp.5.000.000,00-")

    End Sub

Keterangan:

Baris 1 menampilkan harga “Rp. 10.000.000,00-“ ketika pilihan paket member yang dipilih adalah “Premium”.

Baris 2 menampilkan harga “Rp.7.500.000,00-“ ketika pilihan paket member yang dipilih adalah “Exclusive”.

Baris 3 menampilkan harga “Rp.5.000.000,-“ ketika pilihan pilihan member yang dipilih adalah “Regular”.

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Form2.Show()

        Me.Hide()

    End Sub

Keterangan :

Baris 1 untuk menampilkan Form 2

Baris 2 untuk menyembunyikan Form 3

Me adalah nama yang diberikan untuk Form 3

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Dim Name1 As Integer

        Name1 = "Selamat! Anda telah resmi terdaftar sebagai anggota Twibi Twiboy Indonesia!"

        MsgBox(Name1)

Keterangan :

Baris 1 untuk mendeklarasikan Name1 bertipe data Integer

Baris 2 untuk menyatakan Name1 berisi “Selamat! Anda telah resmi terdaftar sebagai anggota Twibi Twiboy Indonesia!"

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Form6.Show()

        Me.Hide()

    End Sub

End Class

Keterangan :

Baris 1 untuk menampilkan Form 6

Baris 2 untuk menyembunyikan Form 3

Me adalah nama yang diberikan untuk Form 3

Form 6

Public Class Form6

    Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Label3.Text = Form2.TextBox1.Text

        Label4.Text = Form2.DateTimePicker1.Text

        Label5.Text = Form3.ListBox1.Text

    End Sub

Keterangan :

Baris 1 menyatakan label 3 akan menampilkan data yang telah diinput pada TextBox1 di Form 2

Baris 2 menyatakan label 4 akan menampilkan data yang telah diinput pada DateTimePicker1 di Form 2

Baris 3 menyatakan label 5 akan menampilkan data yang telah diinput pada ListBox1 di Form 2

    Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

    Private Sub Label4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label4.Click

    End Sub

    Private Sub Label5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label5.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim Name1 As String

        Name1 = "Terima Kasih, anda telah resmi terdaftar sebagai Twibi Twiboy Indonesia!"

        MsgBox(Name1)

        Close()

    End Sub

Keterangan :

Baris 1 untuk menyatakan Name1 bertipe data String

Baris 2 menyatakan Name1 berisi “Terima Kasih, anda telah resmi terdaftar sebagai Twiboy Twiboy Indonesia!”

Baris 3 untuk menampilkan isi dari Name1 pada Message Box

Baris 4 untuk menutup program / keluar dari program.

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Form1.Show()

        Me.Hide()

    End Sub

Keterangan :

Baris 1 untuk menampilkan Form 1

Baris 2 untuk menyembunyikan Form 2

Me adalah nama yang diberikan untuk Form 6

End Class

Komponen toolbox yang digunakan adalah sebagai berikut:

No.	Komponen	Properties	Keterangan
1.	Form 1	Name Text	Form 1 Twibi Twiboy Indonesia
2.	Label1	Name Text	Label1 Selamat Datang Penggemar CherryBelle Seluruh Indonesia !
3.	Button1	Name Text	Button1 Sign up
4.	Button2	Name Text	Button2 Cancel
5.	Form2	Name Text	Form2 Biodata Singkat
6.	Label1	Name Text	Label1 Form Pendaftaran Twibi Twiboy Indonesia
7.	Label2	Name Text	Label2 Nama
8.	Label3	Name Text	Label3 TTL
9.	Label4	Name Text	Label4 Jenis Kelamin
10.	Label5	Name Text	Label5 Agama
11.	Label6	Name Text	Label6 Alamat
12.	Label7	Name Text	Label7 E mail
13.	Label8	Name Text	Label8 Handphone
14.	TextBox1	Name Text	TextBox1
15.	TextBox2	Name Text	TextBox2
16.	DateTimePicker1	Name Text	DateTimePicker 11 Nopember 2012
17.	RadioButton1	Name Text	RadioButton1 Laki Laki
18.	RadioButton2	Name Text	RadioButton2 Perempuan
19.	ComboBox1	Name Text	ComboBox1  Islam Katholik Protestan Hindu Buddha Kong Hu Cu
20.	TextBox3	Name Text	TextBox3
21.	Label8	Name Text	Label8 *Maksimal 40 karakter
22.	TextBox4	Name Text	TextBox4
23.	TextBox5	Name Text	TextBox5
24.	PictureBox1	Name Text	PictureBox1
25.	Button 1	Name Text	Button1 Next
26	Button 2	Name Text	Button 2 Reset
27.	Form3	Name Text	Form3 Quisioner
28.	Label1	Name Text	Hibi’s Quiz!
29.	Label2	Name Text	Label2 Laman ini untuk mengetahui seberapa fanatiknya kamu sama Cherry Belle, Enjoy!
30.	Label3	Name Text	Label3 Darimana Kamu Tau Cherrybelle?
31.	CheckedListBox1	Name Text	CheckedListBox1 TV Radio Internet Koran Majalah Teman
32.	Label4	Name Text	Label4 Personel Cherry Belle Favoritmu?
33.	ComboBox1	Name Text	ComboBox1 Devy Noviaty Sarwendah Tah Margareth Angelina Annisa Rahma Christy Saura Noela Unu Yefani Filliang Cherly Yuliana Aggraini Jessyca Stefani Auryn Brigitta Cynthia
	Label5	Name Text	Label5 Karena
34.	CheckBox1	Name Text	CheckBox1 Baik
35.	CheckBox2	Name Text	CheckBox2 Merdu
36.	CheckBox3	Name Text	CheckBox3 Periang
37.	CheckBox4	Name Text	CheckBox4 Unik
38.	CheckBox5	Name Text	CheckBox5 Cantik
39.	CheckBox6	Name Text	CheckBox6 Lucu
40.	Label6	Name Text	Label6 Pilih Paket Membermu
41.	ListBox1	Name Text	ListBox1 Premium Exclusive Regular
42.	Label7	Name Text	Label7 Biaya Registrasi
43.	TextBox1	Name Text	TextBox1
44.	Button1	Name Text	Button1 Kembali
45.	Button2	Name Text	Button2 Registrasi
46.	Form6	Name Text	Form6 Member Card
47.	Label 1	Name Text	Label1 Twibi Twiboy Indonesia
48.	Label2	Name Text	Label2 Official Member
49.	Label3	Name Text	Label3
50.	Label4	Name Text	Label4
51.	Label5	Name Text	Label5
52.	Button1	Name Text	Button1 Finish
53.	Button 2	Name Text	Button2 Back To Homepage

TUTORIAL DAN ANALISIS PROGRAM

BANGUN DUA DIMENSI

1.      Buat program anda dengan Microsoft Visual Basic 2010 dengan tampilan seperti ini:

2.      Klik link new projects dan pilih Windows form application

3.      Kita akan masuk ke dalam form pengerjaan baru

4.      Kemudian tambahkan label dan 1 button pada form tersebut

        Dengan listing sebagai berikut

Public Class ANDROID_IN_ACTION

    Private Sub ANDROID_IN_ACTION_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub RectangleShape1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub OvalShape4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub RectangleShape3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub RectangleShape2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub RectangleShape5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Form7.Show()

        Me.Hide()

    End Sub

End Class

Keterangan  :

Pada  Button1 “ACTION” apabila anda klik maka akan muncul form7 dan akan otomatis akan langsung pindah ke form7.

5.      Sampai di form7 isi dengan label dan combo box serta memulai untuk membuat dari berbagai macam bentuk android dengan toolbox elips, rectangle, dan line sehingga membentuk bentuk android yang sempurna.

Setelah itu buat sembilan gambar android yang berbeda karakter untuk memnuhi kriteria yang ada di combobox tersebut. Dengan tampilan seperti ini

Penjelasan :

1.       Pada combobox1 (warnamu) berilah list merah, kuning, hijau

2.       Pada combobox2 (moodmu) berilah list sad, happy, annoyed

3.       Bentuk android dengan toolbox rectangle, elips, dan line. Lalu gabungkan semua gambar android dengan groupbox

4.       Maka akan terdapat sembilan group box dengan satu groupbox terdiri dari satu android yang berbeda-beda karakter

5.       Pada kotak properties ubah visible setiap groupbox menjadi false

6.       Pada button1 (check the result)  apabila kita klik maka yang ditampilkan adalah pilihan-pilihan yang kita pilih pada combobox1 dan 2

7.       Setelah tampil tampilan yang kita inginkan, maka apabila kita klik button2 (try again) maka yang akan muncul adalah tampilan form7 awal dimana kita bisa memilih kembali tampilan android yang diinginkan

8.       Dan apabila kita memilih button3 (close) maka secara otomatis kita akan keluar program

Berikut listingnya :

Public Class Form7

    Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If ComboBox2.Text = "merah" And

           ComboBox3.Text = "sad" Then

            GroupBox1.Visible = False

            GroupBox2.Visible = False

            GroupBox3.Visible = False

            GroupBox4.Visible = True

            GroupBox5.Visible = False

            GroupBox6.Visible = False

            GroupBox7.Visible = False

            GroupBox8.Visible = False

            GroupBox9.Visible = False

        ElseIf ComboBox2.Text = "merah" And

               ComboBox3.Text = "happy" Then

            GroupBox1.Visible = False

            GroupBox2.Visible = False

            GroupBox3.Visible = True

            GroupBox4.Visible = False

            GroupBox5.Visible = False

            GroupBox6.Visible = False

            GroupBox7.Visible = False

            GroupBox8.Visible = False

            GroupBox9.Visible = False

        ElseIf ComboBox2.Text = "merah" And

               ComboBox3.Text = "annoyed" Then

            GroupBox1.Visible = False

            GroupBox2.Visible = False

            GroupBox3.Visible = False

            GroupBox4.Visible = False

            GroupBox5.Visible = False

            GroupBox6.Visible = False

            GroupBox7.Visible = True

            GroupBox8.Visible = False

            GroupBox9.Visible = False

        ElseIf ComboBox2.Text = "biru" And

              ComboBox3.Text = "annoyed" Then

            GroupBox1.Visible = False

            GroupBox2.Visible = False

            GroupBox3.Visible = False

            GroupBox4.Visible = False

            GroupBox5.Visible = False

            GroupBox6.Visible = False

            GroupBox7.Visible = False

            GroupBox8.Visible = True

            GroupBox9.Visible = False

        ElseIf ComboBox2.Text = "biru" And

              ComboBox3.Text = "sad" Then

            GroupBox1.Visible = False

            GroupBox2.Visible = False

            GroupBox3.Visible = False

            GroupBox4.Visible = False

            GroupBox5.Visible = False

            GroupBox6.Visible = True

            GroupBox7.Visible = False

            GroupBox8.Visible = False

            GroupBox9.Visible = False

        ElseIf ComboBox2.Text = "biru" And

              ComboBox3.Text = "happy" Then

            GroupBox1.Visible = False

            GroupBox2.Visible = True

            GroupBox3.Visible = False

            GroupBox4.Visible = False

            GroupBox5.Visible = False

            GroupBox6.Visible = False

            GroupBox7.Visible = False

            GroupBox8.Visible = False

            GroupBox9.Visible = False

        ElseIf ComboBox2.Text = "hijau" And

              ComboBox3.Text = "happy" Then

            GroupBox1.Visible = True

            GroupBox2.Visible = False

            GroupBox3.Visible = False

            GroupBox4.Visible = False

            GroupBox5.Visible = False

            GroupBox6.Visible = False

            GroupBox7.Visible = False

            GroupBox8.Visible = False

            GroupBox9.Visible = False

        ElseIf ComboBox2.Text = "hijau" And

              ComboBox3.Text = "sad" Then

            GroupBox1.Visible = False

            GroupBox2.Visible = False

            GroupBox3.Visible = False

            GroupBox4.Visible = False

            GroupBox5.Visible = True

            GroupBox6.Visible = False

            GroupBox7.Visible = False

            GroupBox8.Visible = False

            GroupBox9.Visible = False

        ElseIf ComboBox2.Text = "hijau" And

              ComboBox3.Text = "annoyed" Then

            GroupBox1.Visible = False

            GroupBox2.Visible = False

            GroupBox3.Visible = False

            GroupBox4.Visible = False

            GroupBox5.Visible = False

            GroupBox6.Visible = False

            GroupBox7.Visible = False

            GroupBox8.Visible = False

            GroupBox9.Visible = True

        End If

    End Sub

    Private Sub RectangleShape3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub OvalShape4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OvalShape9.Click, OvalShape4.Click, OvalShape10.Click, OvalShape35.Click, OvalShape30.Click, OvalShape26.Click, OvalShape25.Click, OvalShape46.Click, OvalShape41.Click, OvalShape37.Click, OvalShape12.Click, OvalShape57.Click, OvalShape52.Click, OvalShape50.Click, OvalShape77.Click, OvalShape72.Click, OvalShape70.Click, OvalShape69.Click, OvalShape88.Click, OvalShape86.Click, OvalShape83.Click

    End Sub

    Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

    End Sub

    Private Sub OvalShape44_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub RectangleShape19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub OvalShape43_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub LineShape16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub LineShape15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub LineShape14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub OvalShape41_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub OvalShape40_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub OvalShape39_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub RectangleShape18_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub OvalShape37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub LineShape13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub OvalShape36_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub OvalShape35_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub OvalShape34_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub OvalShape45_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox2.SelectedIndexChanged

    End Sub

    Private Sub RectangleShape1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RectangleShape1.Click, RectangleShape6.Click, RectangleShape8.Click, RectangleShape12.Click, RectangleShape15.Click, RectangleShape18.Click, RectangleShape22.Click, RectangleShape27.Click, RectangleShape30.Click

    End Sub

    Private Sub OvalShape1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OvalShape1.Click

    End Sub

    Private Sub LineShape1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LineShape1.Click, LineShape28.Click, LineShape51.Click, LineShape82.Click, LineShape87.Click, LineShape99.Click

    End Sub

    Private Sub OvalShape7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OvalShape14.Click, OvalShape33.Click, OvalShape44.Click, OvalShape66.Click, OvalShape75.Click, OvalShape78.Click

    End Sub

    Private Sub RectangleShape5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RectangleShape3.Click, RectangleShape9.Click, RectangleShape13.Click, RectangleShape19.Click, RectangleShape23.Click, RectangleShape26.Click

    End Sub

    Private Sub OvalShape20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OvalShape20.Click

    End Sub

    Private Sub OvalShaphe4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OvalShape23.Click, OvalShape22.Click, OvalShape21.Click, OvalShape17.Click, OvalShape68.Click, OvalShape63.Click, OvalShape59.Click, OvalShape58.Click, OvalShape82.Click, OvalShape81.Click, OvalShape79.Click, OvalShape73.Click, OvalShape90.Click

    End Sub

    Private Sub RectangleShape7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RectangleShape7.Click, RectangleShape11.Click

    End Sub

    Private Sub OvalShape49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OvalShape49.Click

    End Sub

    Private Sub LineShape48_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub LineShape49_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub LineShape37_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LineShape37.Click

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        GroupBox1.Visible = False

        GroupBox2.Visible = False

        GroupBox3.Visible = False

        GroupBox4.Visible = False

        GroupBox5.Visible = False

        GroupBox6.Visible = False

        GroupBox7.Visible = False

        GroupBox8.Visible = False

        GroupBox9.Visible = False

        ComboBox2.Text = ""

        ComboBox3.Text = ""

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        End

    End Sub

    Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click

    End Sub

    Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

End Class

Komponen toolbox yang digunakan adalah sebagai berikut:

No.	Komponen	Properties	Keterangan
1.	Form 1	Name Text	Form 1
2.	Label1	Name Text	Label1 ANDROID
3.	Label2	Name Text	Label2 IN
4.	Button1	Name Text	Button1 ACTION
5.	Form7	Name Text	Form7
6.	Label1	Name Text	Label1 Apa kabarmu hari ini
7.	Label2	Name Text	Label2 Doiders?
8.	Label3	Name Text	Label3 Warnamuu?
9.	Label4	Name Text	Label4 Moodmu?
10.	Button1	Name Text	Button1 Check the result
11.	Button2	Name Text	Button2 Try again
12.	Button3	Name Text	Button3 Close
13.	Combobox1	Name	Combobox1 Merah Biru Hijau
14.	Combobox2	Name	Combobox2 Happy Sad Annoyed
15.	Groupbox1	Name Text	Groupbox1 Wonderful day :D
16.	Groupbox2	Name Text	Groupbox2 Wonderful day :D
17.	Groupbox3	Name Text	Groupbox3 Wonderful day
18.	Groupbox4	Name Text	Groupbox4 What’s wrong?
19.	Groupbox5	Name Text	Groupbox5 What’s wrong?
20.	Groupbox6	Name Text	Groupbox6 What’s wrong?
21.	Groupbox7	Name Text	Groupbox7 So bad L
22.	Groupbox8	Name Text	Groupbox8 So bad L
23.	Groupbox9	Name Text	Groupbox9 So bad L