Form Bangun 2 Dimensi

KONSEP

Konsep aplikasi bentuk 2 dimensi :

1.      Deskripsi

Aplikasi bentuk 2 dimensi adalah sebuah aplikasi yang dapat digunakan untuk menampilkan hasil bangun 2 dimensi dari beberapa bangun dan warna yang sudah disediakan dalam 1 form.

2.      Tujuan

·         Mendapatkan nilai yang bagus dalam jurnal praktikum Teknologi Informatika 2012 modul 1.

·         Merancang koding-koding untuk menampilkan bangun 2 dimensi.

3.      Manfaat

·         Mengetahui fungsi koding-koding yang dipakai dalam aplikasi bentuk 2 dimensi.

·         Memperoleh nilai dalam jurnal praktikum Teknologi Informatika 2012 modul 1.

4.      Sasaran User

Anak-anak yang mau belajar dan mengenal bangun 2 dimensi beserta warna-warnanya.

FLOWCHART

Penjelasan Flowchart

Form 1

1.      Mulai

2.      Klik’ok’

3.      Input list (combobox) shape name

4.      Input list (combobox)shape color

5.      OK : cetak gambar

6.      Cancel : kembali ke No. 3

7.      Exit

8.      Stop

    TUTORIAL 

·        
Buka aplikasi Visual Basic 2010 dan klik New Project

Message box

Form 1

Message Box

Komponen toolbox yang digunakan:

NO	Komponen	Propertis	Keterangan
1	Form 1	Name Text	Form 1 Shape and Color Program
2	Button 1	Name Text	Button 1 Show Hidden Names
3	Form 1	Name Text Background Image	Form 1 Shape and Color Program System Drawing Bitmap
4	Label 1	Name Text Forecolor	Label 1 Shape Name Maroon
5	Label 2	Name Text Forecolor	Label 2 Shape Color Maroon
6	ComboBox 1	Name Text	ComboBox 1
7	ComboBox 2	Name Text	ComboBox 2
8	TextBox 1	Name Text	TextBox 1
9	TextBox 2	Name Text	TextBox 2
10	Button 1	Name Text Forecolor	Button 1 OK Marron
11	Button 2	Name Text Forecolor	Button 2 Exit Maroon
12	Button 3	Name Text Forecolor	Button 3 CHANGE Maroon

Analisis listing

Public Class Form1

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

        MsgBox("Masukkan Bentuk dan Warna Bangun Datar yang Diinginkan", vbOK, "Shape and Color Program")

        'Pertama kali Form1 dibuka akan muncul sebuah MessageBox

        Me.Text = "Shape and Color Program"

        'Nama Form1 adalah Shape and Color Program

        Me.ForeColor = Color.Maroon

        'Warna huruf pada Form1 adalah Maroon

    End Sub

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

        If ComboBox1.Text = ("Rectangle") Then TextBox1.Text = ("Rectangle")

        If ComboBox1.Text = ("Circle") Then TextBox1.Text = ("Circle")

        'Jika ComboBox1 = Rectangle maka TextBox1 akan berisi Rectangle

        'Jika ComboBox1 = Circle maka TextBox1 akan berisi Circle

    End Sub

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

        If ComboBox2.Text = ("Red") Then TextBox2.Text = ("Red")

        If ComboBox2.Text = ("Blue") Then TextBox2.Text = ("Blue")

        If ComboBox2.Text = ("Green") Then TextBox2.Text = ("Green")

        If ComboBox2.Text = ("Yellow") Then TextBox2.Text = ("Yellow")

        'Jika ComboBox2.Text = Red maka TextBox2.Text akan berisi Red

        'Jika ComboBox2.Text = Blue maka TextBox2.Text akan berisi Blue

        'Jika ComboBox2.Text = Green maka TextBox2.Text akan berisi Green

        'Jika ComboBox2.Text = Yellow maka TextBox2.Text akan berisi Yellow

    End Sub

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

        If TextBox1.Text = ("Rectangle") And TextBox2.Text = ("Red") Then RectangleShape1.Show()

        If TextBox1.Text = ("Rectangle") And TextBox2.Text = ("Blue") Then RectangleShape2.Show()

        If TextBox1.Text = ("Rectangle") And TextBox2.Text = ("Green") Then RectangleShape3.Show()

        If TextBox1.Text = ("Rectangle") And TextBox2.Text = ("Yellow") Then RectangleShape4.Show()

        If TextBox1.Text = ("Circle") And TextBox2.Text = ("Red") Then OvalShape1.Show()

        If TextBox1.Text = ("Circle") And TextBox2.Text = ("Blue") Then OvalShape2.Show()

        If TextBox1.Text = ("Circle") And TextBox2.Text = ("Yellow") Then OvalShape3.Show()

        If TextBox1.Text = ("Circle") And TextBox2.Text = ("Green") Then OvalShape4.Show()

        'Jika TextBox1 muncul kata Rectangle atau Circle dan TextBox2 muncul Red atau Blue atau Green atau Yellow maka bentuk 2 dimensi dan warnanya akan muncul

    End Sub

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

        MsgBox("Are you sure wanna quit?", vbYesNo, "Shape and Color Program")

        'Jika Button2 diklik, maka akan muncul MessaggeBox

        Close() 'Menutup form1

    End Sub

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

        RectangleShape1.Hide() 'Menyembunyikan RectangleShape1

        RectangleShape2.Hide() 'Menyembunyikan RectangleShape2

        RectangleShape3.Hide() 'Menyembunyikan RectangleShape3

        RectangleShape4.Hide() 'Menyembunyikan RectangleShape4

        OvalShape1.Hide() 'Menyembunyikan OvalShape1

        OvalShape2.Hide() 'Menyembunyikan OvalShape2

        OvalShape3.Hide() 'Menyembunyikan OvalShape3

        OvalShape4.Hide() 'Menyembunyikan OvalShape4

    End Sub

End Class