Konsep, Tutorial dan Listing program "Make Your Own Shape"

Tugas 2: Membuat Bagan 2 Dimensi dengan Berbagai Warna

Konsep:

Tugas Praktikum Teknologi Informasi yang kedua adalah membuat bagan 2 dimensi berbagai warna. Untuk aplikasi kedua ini kami memberi nama : make your own shape. Disini pengguna dapat membuat bentuk dan warna sesuai keinginan berdasarkan pilihan yang kami sediakan. Bentuk bentuk yang kami tawarkan diantaranya :

 Circle

 Oval

 Square

 Rectangle dan

 Love

Pengguna juga dapat mengganti warna-warna dari bentuk-bentuk diatas dengan warna-warna:

o Pink

o Purple

o Orange dan

o Black

Silahkan anda coba aplikasi kami dan make your own shape!!! 
 

Tampilan form pada program bagan 2 dimensi berbagai warna

Pada form diatas yang kami lakukan adalah:

1.      Mengubah judul form menjadi “Shape with color” dengan menambahkan listing pada form 1 : Me.Text = “Shape with color”

2.      Menggunakan komponen Label pada toolbox sebagai Label 3 dan mengedit Label  pada properties seperti mengganti text menjadi “Make Your Own Shape” dengan jenis font Jokerman dan ukuran font 22.

3.      Menggunakan komponen Label pada toolbox sebagai Label 1 dan mengedit Label 1 pada properties seperti mengganti text menjadi “shape” dengan jenis font jokerman dengan ukuran font 12

4.      Menggunakan komponen Label pada toolbox sebagai Label 2 dan mengedit Label 1 pada properties seperti mengganti text menjadi “color” dengan jenis font jokerman dan ukuran font 12.

5.      Menggunakan komponen Combobox pada toolbox sebagai Combobox1 dan menempatkan Combobox1 untuk memilih bentuk.

6.      Menggunakan komponen Combobox pada toolbox sebagai Combobox2 dan menempatkan Combobox2 untuk memilih 2 warna.

7.      Menggunakan komponen Button pada toolbox sebagai Button 1 dan mengedit Button 1 pada properties seperti mengganti text menjadi “Make it” dan menambahkan listing

 If ComboBox1.SelectedItem = "" Or ComboBox2.Text = "" Then

            MsgBox(" anda belum mengisikan data ")

Listing diatas berfungsi untuk apabila pengguna tidak mengisikan salah satu atau ada data yang belum pengguna isikan maka akan muncul message box yang memperingatkan pengguna untuk melengkapi data tersebut. 

Tampilan nya adalah seperti ini:              

 

1.      Ketika pengguna telah mengisikan seluruh data, maka anda dapat melihat hasil nya. Berikut merupakan contoh tampilannya

 

 

1.      Menggunakan komponen Button pada toolbox sebagai Button 2 dan mengganti text menjadi “Refresh” dan menempatkan Button 2 untuk merefresh combobox1 dan combobox2 dengan listing:

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

                 lovehitam.Visible = False

loveorange.Visible = False

              lovepink.Visible = False

              loveungu.Visible = False

              kotakitem.Visible = False

              kotakorange.Visible = False

              kotakpink.Visible = False

                 kotakungu.Visible = False

              ppitem.Visible = False

              pporange.Visible = False

              pppink.Visible = False

              ppungu.Visible = False

              Ovalitem.Visible = False

              Ovalorange.Visible = False

              Ovalungu.Visible = False

              Ovalpink.Visible = False

              lingkaranitem.Visible = False

              lingkaranorange.Visible = False

              lingkaranungu.Visible = False

              lingkaranpink.Visible = False

              ComboBox1.Text = ""

              ComboBox2.Text = ""

              End Sub

Tampilan ketika anda telah merefresh akan seperti ini

 

1.      Menggunakan komponen Button pada toolbox sebagai Button 3 dan mengedit Button 3 pada properties seperti mengganti text menjadi “close” dan menambahkan listing : End

Listing tersebut untuk menutup program saat button 3 di klik.

Listing pada program kedua

Public Class Form1

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

        If ComboBox1.SelectedItem = "" Or ComboBox2.Text = "" Then

            MsgBox(" anda belum mengisikan data ")

	Untuk menampilkan messagebox jika data pada komponen toolbox tersebut belum di isi.

 

        End If

Untuk menyembunyikan bentuk dan warna selain dari  bentuk dan warna yang diinginkan.

        If ComboBox1.Text = ("Circle") And ComboBox2.Text = ("Pink") Then

            lovehitam.Visible = False

            loveorange.Visible = False

            lovepink.Visible = False

            loveungu.Visible = False

            kotakitem.Visible = False

            kotakorange.Visible = False

            kotakpink.Visible = False

            kotakungu.Visible = False

            ppitem.Visible = False

            pporange.Visible = False

            pppink.Visible = False

            ppungu.Visible = False

            Ovalitem.Visible = False

            Ovalorange.Visible = False

            Ovalungu.Visible = False

            Ovalpink.Visible = False

            lingkaranitem.Visible = False

            lingkaranorange.Visible = False

            lingkaranungu.Visible = False

            lingkaranpink.Visible = True

        End If

        If ComboBox1.Text = ("Circle") And ComboBox2.Text = ("Purple") Then

            lovehitam.Visible = False

            loveorange.Visible = False

            lovepink.Visible = False

            loveungu.Visible = False

            kotakitem.Visible = False

            kotakorange.Visible = False

            kotakpink.Visible = False

            kotakungu.Visible = False

            ppitem.Visible = False

            pporange.Visible = False

            pppink.Visible = False

            ppungu.Visible = False

            Ovalitem.Visible = False

            Ovalorange.Visible = False

            Ovalungu.Visible = False

            Ovalpink.Visible = False

            lingkaranitem.Visible = False

            lingkaranorange.Visible = False

            lingkaranungu.Visible = True

            lingkaranpink.Visible = False

        End If

        If ComboBox1.Text = ("Circle") And ComboBox2.Text = ("Orange") Then

            lovehitam.Visible = False

            loveorange.Visible = False

            lovepink.Visible = False

            loveungu.Visible = False

            kotakitem.Visible = False

            kotakorange.Visible = False

            kotakpink.Visible = False

            kotakungu.Visible = False

            ppitem.Visible = False

            pporange.Visible = False

            pppink.Visible = False

            ppungu.Visible = False

            Ovalitem.Visible = False

            Ovalorange.Visible = False

            Ovalungu.Visible = False

            Ovalpink.Visible = False

            lingkaranitem.Visible = False

            lingkaranorange.Visible = True

            lingkaranungu.Visible = False

            lingkaranpink.Visible = False

        End If

        If ComboBox1.Text = ("Circle") And ComboBox2.Text = ("Black") Then

            lovehitam.Visible = False

            loveorange.Visible = False

            lovepink.Visible = False

            loveungu.Visible = False

            kotakitem.Visible = False

            kotakorange.Visible = False

            kotakpink.Visible = False

            kotakungu.Visible = False

            ppitem.Visible = False

            pporange.Visible = False

            pppink.Visible = False

            ppungu.Visible = False

            Ovalitem.Visible = False

            Ovalorange.Visible = False

            Ovalungu.Visible = False

            Ovalpink.Visible = False

            lingkaranitem.Visible = True

            lingkaranorange.Visible = False

            lingkaranungu.Visible = False

            lingkaranpink.Visible = False

        End If

        If ComboBox1.Text = ("Oval") And ComboBox2.Text = ("Pink") Then

            lovehitam.Visible = False

            loveorange.Visible = False

            lovepink.Visible = False

            loveungu.Visible = False

            kotakitem.Visible = False

            kotakorange.Visible = False

            kotakpink.Visible = False

            kotakungu.Visible = False

            ppitem.Visible = False

            pporange.Visible = False

            pppink.Visible = False

            ppungu.Visible = False

            Ovalitem.Visible = False

            Ovalorange.Visible = False

            Ovalungu.Visible = False

            Ovalpink.Visible = True

            lingkaranitem.Visible = False

            lingkaranorange.Visible = False

            lingkaranungu.Visible = False

            lingkaranpink.Visible = False

        End If

        If ComboBox1.Text = ("Oval") And ComboBox2.Text = ("Purple") Then

            lovehitam.Visible = False

            loveorange.Visible = False

            lovepink.Visible = False

            loveungu.Visible = False

            kotakitem.Visible = False

            kotakorange.Visible = False

            kotakpink.Visible = False

            kotakungu.Visible = False

            ppitem.Visible = False

            pporange.Visible = False

            pppink.Visible = False

            ppungu.Visible = False

            Ovalitem.Visible = False

            Ovalorange.Visible = False

            Ovalungu.Visible = True

            Ovalpink.Visible = False

            lingkaranitem.Visible = False

            lingkaranorange.Visible = False

            lingkaranungu.Visible = False

            lingkaranpink.Visible = False

        End If

        If ComboBox1.Text = ("Oval") And ComboBox2.Text = ("Orange") Then

            lovehitam.Visible = False

            loveorange.Visible = False

            lovepink.Visible = False

            loveungu.Visible = False

            kotakitem.Visible = False

            kotakorange.Visible = False

            kotakpink.Visible = False

            kotakungu.Visible = False

            ppitem.Visible = False

            pporange.Visible = False

            pppink.Visible = False

            ppungu.Visible = False

            Ovalitem.Visible = False

            Ovalorange.Visible = True

            Ovalungu.Visible = False

            Ovalpink.Visible = False

            lingkaranitem.Visible = False

            lingkaranorange.Visible = False

            lingkaranungu.Visible = False

            lingkaranpink.Visible = False

        End If

        If ComboBox1.Text = ("Oval") And ComboBox2.Text = ("Black") Then

            lovehitam.Visible = False

            loveorange.Visible = False

            lovepink.Visible = False

            loveungu.Visible = False

            kotakitem.Visible = False

            kotakorange.Visible = False

            kotakpink.Visible = False

            kotakungu.Visible = False

            ppitem.Visible = False

            pporange.Visible = False

            pppink.Visible = False

            ppungu.Visible = False

            Ovalitem.Visible = True

            Ovalorange.Visible = False

            Ovalungu.Visible = False

            Ovalpink.Visible = False

            lingkaranitem.Visible = False

            lingkaranorange.Visible = False

            lingkaranungu.Visible = False

            lingkaranpink.Visible = False

        End If

        If ComboBox1.Text = ("Square") And ComboBox2.Text = ("Pink") Then

            lovehitam.Visible = False

            loveorange.Visible = False

            lovepink.Visible = False

            loveungu.Visible = False

            kotakitem.Visible = False

            kotakorange.Visible = False

            kotakpink.Visible = True

            kotakungu.Visible = False

            ppitem.Visible = False

            pporange.Visible = False

            pppink.Visible = False

            ppungu.Visible = False

            Ovalitem.Visible = False

            Ovalorange.Visible = False

            Ovalungu.Visible = False

            Ovalpink.Visible = False

            lingkaranitem.Visible = False

            lingkaranorange.Visible = False

            lingkaranungu.Visible = False

            lingkaranpink.Visible = False

        End If

        If ComboBox1.Text = ("Square") And ComboBox2.Text = ("Purple") Then

            lovehitam.Visible = False

            loveorange.Visible = False

            lovepink.Visible = False

            loveungu.Visible = False

            kotakitem.Visible = False

            kotakorange.Visible = False

            kotakpink.Visible = False

            kotakungu.Visible = True

            ppitem.Visible = False

            pporange.Visible = False

            pppink.Visible = False

            ppungu.Visible = False

            Ovalitem.Visible = False

            Ovalorange.Visible = False

            Ovalungu.Visible = False

            Ovalpink.Visible = False

            lingkaranitem.Visible = False

            lingkaranorange.Visible = False

            lingkaranungu.Visible = False

            lingkaranpink.Visible = False

        End If

        If ComboBox1.Text = ("Square") And ComboBox2.Text = ("Orange") Then

            lovehitam.Visible = False

            loveorange.Visible = False

            lovepink.Visible = False

            loveungu.Visible = False

            kotakitem.Visible = False

            kotakorange.Visible = True

            kotakpink.Visible = False

            kotakungu.Visible = False

            ppitem.Visible = False

            pporange.Visible = False

            pppink.Visible = False

            ppungu.Visible = False

            Ovalitem.Visible = False

            Ovalorange.Visible = False

            Ovalungu.Visible = False

            Ovalpink.Visible = False

            lingkaranitem.Visible = False

            lingkaranorange.Visible = False

            lingkaranungu.Visible = False

            lingkaranpink.Visible = False

        End If

        If ComboBox1.Text = ("Square") And ComboBox2.Text = ("Black") Then

            lovehitam.Visible = False

            loveorange.Visible = False

            lovepink.Visible = False

            loveungu.Visible = False

            kotakitem.Visible = True

            kotakorange.Visible = False

            kotakpink.Visible = False

            kotakungu.Visible = False

            ppitem.Visible = False

            pporange.Visible = False

            pppink.Visible = False

            ppungu.Visible = False

            Ovalitem.Visible = False

            Ovalorange.Visible = False

            Ovalungu.Visible = False

            Ovalpink.Visible = False

            lingkaranitem.Visible = False

            lingkaranorange.Visible = False

            lingkaranungu.Visible = False

            lingkaranpink.Visible = False

        End If

        If ComboBox1.Text = ("Rectangle") And ComboBox2.Text = ("Pink") Then

            lovehitam.Visible = False

            loveorange.Visible = False

            lovepink.Visible = False

            loveungu.Visible = False

            kotakitem.Visible = False

            kotakorange.Visible = False

            kotakpink.Visible = False

            kotakungu.Visible = False

            ppitem.Visible = False

            pporange.Visible = False

            pppink.Visible = True

            ppungu.Visible = False

            Ovalitem.Visible = False

            Ovalorange.Visible = False

            Ovalungu.Visible = False

            Ovalpink.Visible = False

            lingkaranitem.Visible = False

            lingkaranorange.Visible = False

            lingkaranungu.Visible = False

            lingkaranpink.Visible = False

        End If

        If ComboBox1.Text = ("Rectangle") And ComboBox2.Text = ("Purple") Then

            lovehitam.Visible = False

            loveorange.Visible = False

            lovepink.Visible = False

            loveungu.Visible = False

            kotakitem.Visible = False

            kotakorange.Visible = False

            kotakpink.Visible = False

            kotakungu.Visible = False

            ppitem.Visible = False

            pporange.Visible = False

            pppink.Visible = False

            ppungu.Visible = True

            Ovalitem.Visible = False

            Ovalorange.Visible = False

            Ovalungu.Visible = False

            Ovalpink.Visible = False

            lingkaranitem.Visible = False

            lingkaranorange.Visible = False

            lingkaranungu.Visible = False

            lingkaranpink.Visible = False

        End If

        If ComboBox1.Text = ("Rectangle") And ComboBox2.Text = ("Orange") Then

            lovehitam.Visible = False

            loveorange.Visible = False

            lovepink.Visible = False

            loveungu.Visible = False

            kotakitem.Visible = False

            kotakorange.Visible = False

            kotakpink.Visible = False

            kotakungu.Visible = False

            ppitem.Visible = False

            pporange.Visible = True

            pppink.Visible = False

            ppungu.Visible = False

            Ovalitem.Visible = False

            Ovalorange.Visible = False

            Ovalungu.Visible = False

            Ovalpink.Visible = False

            lingkaranitem.Visible = False

            lingkaranorange.Visible = False

            lingkaranungu.Visible = False

            lingkaranpink.Visible = False

        End If

        If ComboBox1.Text = ("Rectangle") And ComboBox2.Text = ("Black") Then

            lovehitam.Visible = False

            loveorange.Visible = False

            lovepink.Visible = False

            loveungu.Visible = False

            kotakitem.Visible = False

            kotakorange.Visible = False

            kotakpink.Visible = False

            kotakungu.Visible = False

            ppitem.Visible = True

            pporange.Visible = False

            pppink.Visible = False

            ppungu.Visible = False

            Ovalitem.Visible = False

            Ovalorange.Visible = False

            Ovalungu.Visible = False

            Ovalpink.Visible = False

            lingkaranitem.Visible = False

            lingkaranorange.Visible = False

            lingkaranungu.Visible = False

            lingkaranpink.Visible = False

        End If

        If ComboBox1.Text = ("Love") And ComboBox2.Text = ("Pink") Then

            lovehitam.Visible = False

            loveorange.Visible = False

            lovepink.Visible = True

            loveungu.Visible = False

            kotakitem.Visible = False

            kotakorange.Visible = False

            kotakpink.Visible = False

            kotakungu.Visible = False

            ppitem.Visible = False

            pporange.Visible = False

            pppink.Visible = False

            ppungu.Visible = False

            Ovalitem.Visible = False

            Ovalorange.Visible = False

            Ovalungu.Visible = False

            Ovalpink.Visible = False

            lingkaranitem.Visible = False

            lingkaranorange.Visible = False

            lingkaranungu.Visible = False

            lingkaranpink.Visible = False

        End If

        If ComboBox1.Text = ("Love") And ComboBox2.Text = ("Purple") Then

            lovehitam.Visible = False

            loveorange.Visible = False

            lovepink.Visible = False

            loveungu.Visible = True

            kotakitem.Visible = False

            kotakorange.Visible = False

            kotakpink.Visible = False

            kotakungu.Visible = False

            ppitem.Visible = False

            pporange.Visible = False

            pppink.Visible = False

            ppungu.Visible = False

            Ovalitem.Visible = False

            Ovalorange.Visible = False

            Ovalungu.Visible = False

            Ovalpink.Visible = False

            lingkaranitem.Visible = False

            lingkaranorange.Visible = False

            lingkaranungu.Visible = False

            lingkaranpink.Visible = False

        End If

        If ComboBox1.Text = ("Love") And ComboBox2.Text = ("Orange") Then

            lovehitam.Visible = False

            loveorange.Visible = True

            lovepink.Visible = False

            loveungu.Visible = False

            kotakitem.Visible = False

            kotakorange.Visible = False

            kotakpink.Visible = False

            kotakungu.Visible = False

            ppitem.Visible = False

            pporange.Visible = False

            pppink.Visible = False

            ppungu.Visible = False

            Ovalitem.Visible = False

            Ovalorange.Visible = False

            Ovalungu.Visible = False

            Ovalpink.Visible = False

            lingkaranitem.Visible = False

            lingkaranorange.Visible = False

            lingkaranungu.Visible = False

            lingkaranpink.Visible = False

        End If

        If ComboBox1.Text = ("Love") And ComboBox2.Text = ("Black") Then

            lovehitam.Visible = True

            loveorange.Visible = False

            lovepink.Visible = False

            loveungu.Visible = False

            kotakitem.Visible = False

            kotakorange.Visible = False

            kotakpink.Visible = False

            kotakungu.Visible = False

            ppitem.Visible = False

            pporange.Visible = False

            pppink.Visible = False

            ppungu.Visible = False

            Ovalitem.Visible = False

            Ovalorange.Visible = False

            Ovalungu.Visible = False

            Ovalpink.Visible = False

            lingkaranitem.Visible = False

            lingkaranorange.Visible = False

            lingkaranungu.Visible = False

            lingkaranpink.Visible = False

        End If

 End Sub

Untuk mengubah judul form menjadi “Shape with color”.

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

        Me.Text = "Shape with Color"

    End Sub

Untuk merefresh atau clear komponen toolbox yang terdapat pada listing tersebut pada saat button di klik.

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

        lovehitam.Visible = False

            loveorange.Visible = False

            lovepink.Visible = False

            loveungu.Visible = False

            kotakitem.Visible = False

            kotakorange.Visible = False

            kotakpink.Visible = False

            kotakungu.Visible = False

            ppitem.Visible = False

            pporange.Visible = False

            pppink.Visible = False

            ppungu.Visible = False

            Ovalitem.Visible = False

            Ovalorange.Visible = False

            Ovalungu.Visible = False

            Ovalpink.Visible = False

            lingkaranitem.Visible = False

            lingkaranorange.Visible = False

            lingkaranungu.Visible = False

        lingkaranpink.Visible = False

        ComboBox1.Text = ""

        ComboBox2.Text = ""

    End Sub

Untuk menutup program

    Private Sub Close_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Close.Click

        End

    End Sub

 

End Class