TUTORIAL PROGRAM BANGUN DATAR 2 DIMENSI

TUTORIAL PROGRAM BANGUN DATAR 2 DIMENSI

1.        Seperti yang terdapat pada Form member balanja Online, aplikasi bangun dua dimensi ini juga menggunakan visual basic 2010. Pada aplikasi ini pembuat hanya menggunakan satu form, sehingga listing yang digunakan menjadi agak panjang.

2.        Pada Form 1 terdapat 2 label, 2 ComboBox, 2 Button, serta 1 Picture Box.

3.        Sistem kerja :

·           User dapat memilih bangun dengan warna yang berbeda sesuai dengan keinginan user masing-masing

·           User dapat memilih bentuk bangunan pada ComboBox yang berlabel “Bangun Datar”.

·           User dapat memilih warna bangun yang ingin ditampilkan pada ComboBox yang berlabel “Warna”.

·           Klik tombol Button “lihat” untuk melihat hasil bangun dan warna yang telah dipilih oleh user.

·           Klik Tombol Button Keluar untuk keluar dari Aplikasi bangun datar tersebut.

·           Oval Shape 3 berguna sebagai tempat menampilkan gambar.

                            

Bentuk Form Pada Project

       Bentuk Debug 

Berikut adalah listingnya :

Public Class Form1

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

        Me.Text = "BERMAIN DAN BELAJAR"

        If ComboBox1.Text = "" And

            ComboBox2.Text = "" Then

            RectangleShape1.Hide()

            RectangleShape2.Hide()

            RectangleShape3.Hide()

            OvalShape1.Hide()

            OvalShape2.Hide()

            OvalShape3.Hide()

        End If

    End Sub

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

        If ComboBox1.Text = "PERSEGI" And

            ComboBox2.Text = "MERAH" Then

            RectangleShape1.Visible = True

            RectangleShape2.Visible = False

            RectangleShape3.Visible = False

            OvalShape1.Visible = False

            OvalShape2.Visible = False

            OvalShape3.Visible = False

        ElseIf ComboBox1.Text = "PERSEGI" And

            ComboBox2.Text = "KUNING" Then

            RectangleShape1.Visible = False

            RectangleShape2.Visible = True

            RectangleShape3.Visible = False

            OvalShape1.Visible = False

            OvalShape2.Visible = False

            OvalShape3.Visible = False

        ElseIf ComboBox1.Text = "PERSEGI" And

        ComboBox2.Text = "HIJAU" Then

            RectangleShape1.Visible = False

            RectangleShape2.Visible = False

            RectangleShape3.Visible = True

            OvalShape1.Visible = False

            OvalShape2.Visible = False

            OvalShape3.Visible = False

        ElseIf ComboBox1.Text = "LINGKARAN" And

        ComboBox2.Text = "MERAH" Then

            RectangleShape1.Visible = False

            RectangleShape2.Visible = False

            RectangleShape3.Visible = False

            OvalShape1.Visible = True

            OvalShape2.Visible = False

            OvalShape3.Visible = False

        ElseIf ComboBox1.Text = "LINGKARAN" And

        ComboBox2.Text = "KUNING" Then

            RectangleShape1.Visible = False

            RectangleShape2.Visible = False

            RectangleShape3.Visible = False

            OvalShape1.Visible = False

            OvalShape2.Visible = True

            OvalShape3.Visible = False

        ElseIf ComboBox1.Text = "LINGKARAN" And

        ComboBox2.Text = "HIJAU" Then

            RectangleShape1.Visible = False

            RectangleShape2.Visible = False

            RectangleShape3.Visible = False

            OvalShape1.Visible = False

            OvalShape2.Visible = False

            OvalShape3.Visible = True

        End If

    End Sub

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

        Close()

    End Sub

End Class

Aplikasi ini dibuat ditujukan kepada anak-anak yang ingin belajar mengenai Bangun datar dua dimensi. Dengan menggunakan aplikasi ini diharapkan anak-anak akan lebih senang dalam mempelajari materi bangun datar dua dimensi. Selamat mencoba J J J J