Modul 1 - Konsep, Flowchart, Tutorial dan Analisis Listing Program Bangun Dua Dimensi (Bentuk dan Warna)

Konsep
1. Deskripsi
Program yang kami buat adalah program yang dapat dipakai untuk membuat contoh bangun dua dimensi dengan warna-warna tertentu. Program ini dibuat dengan bantuan Microsoft Visual Basic 2010. Form ini berisi pilihan bangun dan pilihan warna untuk kemudian dibuat penmpakannya dengan menekan tombol "buat" yang tersedia.

2. Tujuan dan Manfaat
Tujuan dibuatnya program ini adalah agar user lebih mudah mengenal bentuk dengan warna-warna tertentu.

3. Sasaran
Program ini berguna bagi balita yang sedang belajar mengenai bentuk dan warna.

Flowchart

Tutorial Teknologi Informatika Visual Basic 2010

"Membuat Program Bangun Dua Dimensi (Bentuk dan Warna)"

Pertama-tama bukalah program Visual Basic 2010 dengan cara:
1. Klik "Start"
2. Pilih Microsoft Visual Basic 2010
3. Setelah mucul "Start Page" pilih "New Project"

 
 4. Setelah muncul halaman New Project pilih “Windows Forms Application”

5. Klik “OK”
6. Selanjutnya muncul lembar kerja Visual Basic yang biasa disebut Form

 7. Form diisi dengan berbagai komponen yang didapat melalui "Toolbox"

 8. Isi tiap form

Komponen Toolbox yang dibutuhkan :

No.	Komponen	Properties	Keterangan
1.	Form1	Name Text	Form1
2.	Label	Name Text	Label3 PROGRAM MEMILIH BANGUN  DUA DIMENSI DAN WARNA
3.	Label	Name Text	Label1 Pilihan Bangun :
4.	Label	Name Text	Label2 Pilihan Warna :
5.	Combobox	Name Text	Combobox1 (dikosongkan)
6.	Combobox	Name Text	Combobox2 (dikosongkan)
7.	Button	Name Text	Button1 Buat
8.	Ovalshape	Name Fillcolor Location	Ovalshape1 Red 89; 46
9.	Ovalshape	Name Fillcolor Location	Ovalshape2 Yellow 89; 46
10.	Ovalshape	Name Fillcolor Location	Ovalshape3 Lime 89; 46
11.	Ovalshape	Name Fillcolor Location	Ovalshape4 Blue 89; 46
12.	Rectangleshape	Name Fillcolor Location	Rectangleshape1 Red 89; 46
13.	Rectangleshape	Name Fillcolor Location	Rectangleshape2 Yellow 89; 46
14.	Rectangleshape	Name Fillcolor Location	Rectangleshape3 Lime 89; 46
15.	Rectangleshape	Name Fillcolor Location	Rectangleshape4 Blue 89; 46

Analisis Listing

Public Class Form1

  

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

        If ComboBox1.Text = "Lingkaran" And

           ComboBox2.Text = "Merah" Then

            OvalShape1.Visible = True

            OvalShape2.Visible = False

            OvalShape3.Visible = False

            OvalShape4.Visible = False

            RectangleShape1.Visible = False

            RectangleShape2.Visible = False

            RectangleShape3.Visible = False

            RectangleShape4.Visible = False

        ElseIf ComboBox1.Text = "Lingkaran" And

               ComboBox2.Text = "Kuning" Then

            OvalShape1.Visible = False

            OvalShape2.Visible = True

            OvalShape3.Visible = False

            OvalShape4.Visible = False

            RectangleShape1.Visible = False

            RectangleShape2.Visible = False

            RectangleShape3.Visible = False

            RectangleShape4.Visible = False

        ElseIf ComboBox1.Text = "Lingkaran" And

               ComboBox2.Text = "Hijau" Then

            OvalShape1.Visible = False

            OvalShape2.Visible = False

            OvalShape3.Visible = True

            OvalShape4.Visible = False

            RectangleShape1.Visible = False

            RectangleShape2.Visible = False

            RectangleShape3.Visible = False

            RectangleShape4.Visible = False

        ElseIf ComboBox1.Text = "Lingkaran" And

               ComboBox2.Text = "Biru" Then

            OvalShape1.Visible = False

            OvalShape2.Visible = False

            OvalShape3.Visible = False

            OvalShape4.Visible = True

            RectangleShape1.Visible = False

            RectangleShape2.Visible = False

            RectangleShape3.Visible = False

            RectangleShape4.Visible = False

        ElseIf ComboBox1.Text = "Persegi" And

               ComboBox2.Text = "Merah" Then

            RectangleShape1.Visible = True

            RectangleShape2.Visible = False

            RectangleShape3.Visible = False

            RectangleShape4.Visible = False

        ElseIf ComboBox1.Text = "Persegi" And

               ComboBox2.Text = "Kuning" Then

            RectangleShape1.Visible = False

            RectangleShape2.Visible = True

            RectangleShape3.Visible = False

            RectangleShape4.Visible = False

        ElseIf ComboBox1.Text = "Persegi" And

               ComboBox2.Text = "Hijau" Then

            RectangleShape1.Visible = False

            RectangleShape2.Visible = False

            RectangleShape3.Visible = True

            RectangleShape4.Visible = False

        ElseIf ComboBox1.Text = "Persegi" And

               ComboBox2.Text = "Biru" Then

            RectangleShape1.Visible = False

            RectangleShape2.Visible = False

            RectangleShape3.Visible = False

            RectangleShape4.Visible = True

        End If

    End Sub

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

    End Sub

End Class

Keterangan:

•      Program ini hanya menggunakan 1 form.

•       Lingkaran digambar menggunakan tool Ovalshape dan persegi digambar dengan menggunakan Rectangleshape.

•       Setiap lingkaran dengan 4 warna berbeda ditumpuk menjadi satu (merah, kuning, hijau, biru).

•       Tumpukan lingkaran ditumpuk lagi dengan 4 persegi dengan warna berbeda (merah, kuning, hijau, biru).

•       Bangun difungsikan sesuai dengan “Pilihan bangun” dan “warna”. Bangun yang tidak terpilih akan menjadi “false” dalam fungsi, sehingga menyebabkan bangun tersebut tidak terlihat.

•       Contoh

If ComboBox1.Text = "Lingkaran" And

   ComboBox2.Text = "Merah" Then

(artinya, bila combobox “pilihan bangun” diisi “Lingkaran”, dan combobox “warna” diisi “merah”)

   OvalShape1.Visible = True

          OvalShape2.Visible = False

OvalShape3.Visible = False

OvalShape4.Visible = False

RectangleShape1.Visible = False

RectangleShape2.Visible = False

RectangleShape3.Visible = False

RectangleShape4.Visible = False

(artinya dari 8 bangun, yang terlihat (visible) hanya bangun “OvalShape1”)

• ElseIf digunakan untuk permisalan yang lain.
• EndIf dipakai untuk mengakhiri pengecualian.
• EndSub digunakan untuk mengakhiri satu private sub.
• Endclass dipakai untuk mengakhiri program.

9. Bila Form sudah terisi, mainkan program dengan menggunakan "F5" atau klik tombol play pada toolbar.

10. Simpan program dengan cara File -> Save All