program SHAPE and COLOR

SHAPE AND COLOR

Konsep Aplikasi Program Shape Color

Aplikasi ini terdiri dari 2 form dimana form yang pertama berisi permainan dan form yang kedua berisi pembukaan. Game ini adalah game memilih bentuk bangun 2D dan juga memilih warna sesuai dengan keinginan kita. Ada 3 macam bentuk bangun 2D yang ditawarkan dalam game ini yaitu persegi, persegi panjang, dan lingkaran. Dalam game ini juga terdapat 3 warna yang ditawarkan yaitu merah, kuning, dan biru. Game ini bertujuan untuk membantu kita untuk mengenal bentuk-bentuk bangun 2D beserta warna yang tersedia. Banyak manfaat yang bisa diambil dari game ini diantaranya dapat menambah wawasan mengenai bangun 2D dan juga mengenai warna. Game ini ditujukan kepada anak-anak balita agar mereka dapat belajar mengenai bentuk dan warna.

Flowchart dan penjelasannya :

Penjelasan :

 Pada flowchart ini pengguna terlebih dahulu dibeli pilihan untuk menggunakan  / memilih bentuk dari bangun yg diinginkan, setelah itu baru mengisi warna dari bangun yg diinginkan, setalh itu akan muncul bangun dengan bentuk dan warna yg disesuaikan dengan pilihan user / pengguna, setelah itu pengguna bisa menghapus hasil dari output yg keluar dan dapat memilih ulang bentuk dan warna atau langsung keluar dari aplikasi.

Tutorial pembuatan Program :

komponen toolbox yg digunakan :

NO	KOMPONEN	PROPERTIES	KETERANGAN
1	Form 1	Name Text	Form 1 APLIKASI SHAPE AND COLOR
2	Label 1	Name Text	Label 1 Bentuk
3	Label 2	Name Text	Label 2 Warna
4	Label 3	Name Text	Label Permainan Bentuk dan Warna Bangun 2D
5	CheckBox1	Name Text	CheckBox1 Persegi
6	CheckBox2	Name Text	CheckBox2 Persegi Panjang
7	CheckBox3	Name Text	CheckBox3 Lingkaran
8	CheckBox4	Name Text	CheckBox4 Merah
9	CheckBox5	Name Text	CheckBox5 Kuning
10	CheckBox6	Name Text	CheckBox6 Biru
11	RetangleShape1	Name	RetangleShape1
12	RetangleShape2	Name	RetangleShape2
13	RetangleShape3	Name	RetangleShape3
14	RetangleShape4	Name	RetangleShape4
15	RetangleShape5	Name	RetangleShape5
16	RetangleShape6	Name	RetangleShape6
17	OvalShape1	Name	OvalShape1
18	OvalShape2	Name	OvalShape2
19	OvalShape3	Name	OvalShape3
20	Button1	Name Text	Button1 Eksekusi
21	Button2	Name Text	Button2 Kembali
22	Button3	Name Text	Button3 Clear
23	Form 2	Name Text	Form 2 JURNAL PENUGASAN MODUL1 SHAPE AND COLOR PROGRAM
24	Label1	Name Text	Label1 SELAMAT DATANG DI APLIKASI SHAPE COLOR
25	Label2	Name Text	Label2 TERIMA KASIH TELAH MENCOBA APLIKASI KAMI
26	Button1	Name Text	Button1 MULAI
27	Button2	Name Text	Button2 KELUAR
28	Button3	Name Text	Button3 OK

Tutorial :

1.      Bukalah aplikasi visual basic yang telah terinstall di PC anda, kemudian seperti biasa buat new project dengan standar.exe.

2.      Buatlah form 1 yang terdiri dari 3 Label, 6 CheckBox, 6 RetangleShape, 3 OvalShape, dan 3 Button.

·         Klik Label pada ToolBox kemudian ganti text sesuai dengan nama yang di inginkan.

·         Klik CheckBox pada ToolBox kemudian ganti text sesuai dengan nama yang di inginkan.

·         Klik RetangleShape pada ToolBox kemudian ganti text sesuai dengan nama yang di inginkan.

·         Klik OvalShape pada ToolBox kemudian ganti text sesuai dengan nama yang di inginkan.

·         Klik Button pada ToolBox kemudian ganti text sesuai dengan nama yang di inginkan.

 Contoh seperti dibawah ini:

3.      Buatlah form 2 yang terdiri dari 2 label dan 3 button.

·         Klik Label pada ToolBox kemudian ganti text sesuai dengan nama yang di inginkan.

·         Klik Button pada ToolBox kemudian ganti text sesuai dengan nama yang di inginkan.

Contoh seperti dibawah ini :

4.      Masuk listing kode dalam form 1 seperti dibawah ini

Public Class Form1

  

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

        OvalShape1.Hide()

        OvalShape2.Hide()

        OvalShape3.Hide()

        RectangleShape1.Hide()

        RectangleShape2.Hide()

        RectangleShape3.Hide()

        RectangleShape4.Hide()

        RectangleShape5.Hide()

        RectangleShape6.Hide()

        CenterToScreen()

    End Sub

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

        Form2.Show()

    End Sub

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

        If CheckBox1.Checked And CheckBox4.Checked Then RectangleShape6.Show()

        If CheckBox1.Checked And CheckBox5.Checked Then RectangleShape4.Show()

        If CheckBox1.Checked And CheckBox6.Checked Then RectangleShape5.Show()

        If CheckBox2.Checked And CheckBox4.Checked Then RectangleShape3.Show()

        If CheckBox2.Checked And CheckBox5.Checked Then RectangleShape2.Show()

        If CheckBox2.Checked And CheckBox6.Checked Then RectangleShape1.Show()

        If CheckBox3.Checked And CheckBox4.Checked Then OvalShape1.Show()

        If CheckBox3.Checked And CheckBox5.Checked Then OvalShape3.Show()

        If CheckBox3.Checked And CheckBox6.Checked Then OvalShape2.Show()

    End Sub

  

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

        OvalShape1.Hide()

        OvalShape2.Hide()

        OvalShape3.Hide()

        RectangleShape1.Hide()

        RectangleShape2.Hide()

        RectangleShape3.Hide()

        RectangleShape4.Hide()

        RectangleShape5.Hide()

        RectangleShape6.Hide()

    End Sub

End Class

5.      Masukan listing kode pada form 2 seperti dibawah ini

Public Class Form2

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

        CenterToParent()

    End Sub

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

        CenterToScreen()

        MsgBox("SELAMAT DATANG DI APLIKASI KELOMPOK 28 IE UNDIP 2012")

    End Sub

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

        Form1.Show()

    End Sub

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

        MsgBox("TERIMA KASIH TELAH MENCOBA APLIKASI KAMI")

        Me.Close()

    End Sub

End Class

contoh program dapat dilihat di program shape and color