Tutorial Program 2 (2D)

Tampilan saat program di jalankan

Komponen

No	Komponen	Properties	Keterangan
1.	Form1	Name Text	Form1
2.	Button4	Name Text	Button4 Ok
3.	Label1	Name Text	Label1 Pilih Bentuk 2D
4.	Textbutton1	Name Text	Textbutton1

Tampilan Form 1

Langkah 1

•Pertama buka Microsoft Visual Basic dan klik menu File dan pilih New Project.

Langkah 2

•Lalu pada Form 1 masukkan beberapa tool yaitu Label, Textbox, Button, Rectangleshape, Ovalshape. Label digunakan untuk mengetikkan “Pilih Bentuk 2D”. Textbox digunakan untuk memasukkan perintah seperti ”Persegi”, ”Persegi Panjang •Hijau”, ”Lingkaran”, dll. Button digunakan untuk menjalankan perintah yang kita masukkan. Rectangle digunakan untuk membuat persegi dan persegi panjang. Ovalshape digunakan untuk membuat lingkaran.

Langkah 3 

•Untuk mewarnai bentuk 2D yang kita miliki yaitu menggunakan Fill Color di kotak properties.

Langkah 4 

•Untuk membuat bangun 2D tersebut tampak Invisible yaitu cari di kotak properties perintah visible lalu pilih false untuk membuat bangun tak terlihat ketika program dijalankan.

Langkah 5 

•Untuk menghilangkan tombol minimize dan restore down  dengan membuka properties pada form 1 dan pilih

Langkah 6

•Untuk memberikan background image pilih pada form 1 dan cari pada kotak properties background image dan pilih gambar sesuai keinginan

Langkah 7

•Cara membuatnya agar jika kita masukkan perintah maka gambar yang kita inginkan keluar adalah menggunakan fungsi IF, yaitu:

Step 1

Untuk membuat gambar muncul ketika kita mengetikkan bentuk bangunnya

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

   If TextBox1.Text = ("Persegi") Then RectangleShape1.Show()

   If TextBox1.Text = ("Persegi Hijau") Then RectangleShape2.Show()

   If TextBox1.Text = ("Persegi Kuning") Then RectangleShape3.Show()

   If TextBox1.Text = ("Persegi Biru") Then RectangleShape4.Show()

   If TextBox1.Text = ("Lingkaran") Then OvalShape1.Show()

   If TextBox1.Text = ("Lingkaran Biru") Then OvalShape2.Show()

   If TextBox1.Text = ("Lingkaran Kuning") Then OvalShape3.Show()

   If TextBox1.Text = ("Lingkaran Hijau") Then OvalShape4.Show()

   If TextBox1.Text = ("Persegi Panjang") Then RectangleShape5.Show()

   If TextBox1.Text = ("Persegi Panjang Biru") Then RectangleShape6.Show()

   If TextBox1.Text = ("Persegi Panjang Kuning") Then RectangleShape7.Show()

   If TextBox1.Text = ("Persegi Panjang Hijau") Then RectangleShape8.Show()

Step 2

Untuk membuat gambar yang sudah kita ketikka akan menghilang jika kita masukkan bangun yang lain.

I. Membuat Permisalan jika bangun pertama yang kita masukkan adalah “Persegi” lalu kita ingin mengetikkan bangun yang lainnya maka fungsi IF yang dilakukan adalah

   If TextBox1.Text = ("Persegi Hijau") Then RectangleShape1.Hide()

   If TextBox1.Text = ("Persegi Kuning") Then RectangleShape1.Hide()

   If TextBox1.Text = ("Persegi Biru") Then RectangleShape1.Hide()

   If TextBox1.Text = ("Lingkaran") Then RectangleShape1.Hide()

   If TextBox1.Text = ("Lingkaran Biru") Then RectangleShape1.Hide()

   If TextBox1.Text = ("Lingkaran Kuning") Then RectangleShape1.Hide()

   If TextBox1.Text = ("Lingkaran Hijau") Then RectangleShape1.Hide()

   If TextBox1.Text = ("Persegi Panjang") Then RectangleShape1.Hide()

   If TextBox1.Text = ("Persegi Panjang Biru") Then RectangleShape1.Hide()

   If TextBox1.Text = ("Persegi Panjang Kuning") Then RectangleShape1.Hide()

   If TextBox1.Text = ("Persegi Panjang Hijau") Then RectangleShape1.Hide()

II. Membuat permisalan. jika bangun pertama yang kita masukkan adalah “Persegi Hijau” lalu kita ingin mengetikkan bangun yang lainnya maka fungsi IF yang dilakukan adalah

   If TextBox1.Text = ("Persegi") Then RectangleShape2.Hide()

   If TextBox1.Text = ("Persegi Kuning") Then RectangleShape2.Hide()

   If TextBox1.Text = ("Persegi Biru") Then RectangleShape2.Hide()

   If TextBox1.Text = ("Lingkaran") Then RectangleShape2.Hide()

   If TextBox1.Text = ("Lingkaran Biru") Then RectangleShape2.Hide()

   If TextBox1.Text = ("Lingkaran Kuning") Then RectangleShape2.Hide()

   If TextBox1.Text = ("Lingkaran Hijau") Then RectangleShape2.Hide()

   If TextBox1.Text = ("Persegi Panjang") Then RectangleShape2.Hide()

   If TextBox1.Text = ("Persegi Panjang Biru") Then RectangleShape2.Hide()

   If TextBox1.Text = ("Persegi Panjang Kuning") Then RectangleShape2.Hide()

   If TextBox1.Text = ("Persegi Panjang Hijau") Then RectangleShape2.Hide()

III. Membuat permisalan jika bangun yang pertama kita masukkan adalah “Persegi Kuning” lalu kita ingin mengetikkan bangun yang lainnya maka fungsi IF yang dilakukan adalah

   If TextBox1.Text = ("Persegi") Then RectangleShape3.Hide()

   If TextBox1.Text = ("Persegi Hijau") Then RectangleShape3.Hide()

   If TextBox1.Text = ("Persegi Biru") Then RectangleShape3.Hide()

   If TextBox1.Text = ("Lingkaran") Then RectangleShape3.Hide()

   If TextBox1.Text = ("Lingkaran Biru") Then RectangleShape3.Hide()

   If TextBox1.Text = ("Lingkaran Kuning") Then RectangleShape3.Hide()

   If TextBox1.Text = ("Lingkaran Hijau") Then RectangleShape3.Hide()

   If TextBox1.Text = ("Persegi Panjang") Then RectangleShape3.Hide()

   If TextBox1.Text = ("Persegi Panjang Biru") Then RectangleShape3.Hide()

   If TextBox1.Text = ("Persegi Panjang Kuning") Then RectangleShape3.Hide()

   If TextBox1.Text = ("Persegi Panjang Hijau") Then RectangleShape3.Hide()

IV. Membuat permisalan jika bangun pertama yang kita masukkan adalah “Persegi Biru” lalu kita ingin mengetikkan bangun yang lainnya maka fungsi IF yang dilakukan adalah

   If TextBox1.Text = ("Persegi") Then RectangleShape4.Hide()

   If TextBox1.Text = ("Persegi Hijau") Then RectangleShape4.Hide()

   If TextBox1.Text = ("Persegi Kuning") Then RectangleShape4.Hide()

   If TextBox1.Text = ("Lingkaran") Then RectangleShape4.Hide()

   If TextBox1.Text = ("Lingkaran Biru") Then RectangleShape4.Hide()

   If TextBox1.Text = ("Lingkaran Kuning") Then RectangleShape4.Hide()

   If TextBox1.Text = ("Lingkaran Hijau") Then RectangleShape4.Hide()

   If TextBox1.Text = ("Persegi Panjang") Then RectangleShape4.Hide()

   If TextBox1.Text = ("Persegi Panjang Biru") Then RectangleShape4.Hide()

   If TextBox1.Text = ("Persegi Panjang Kuning") Then RectangleShape4.Hide()

   If TextBox1.Text = ("Persegi Panjang Hijau") Then RectangleShape4.Hide()

V. Membuat permisalan jika bangun pertama yang kita masukkan adalah “Lingkaran” lalu kita ingin mengetikkan bangun yang lainnya maka fungsi IF yang dilakukan adalah

   If TextBox1.Text = ("Persegi") Then OvalShape1.Hide()

   If TextBox1.Text = ("Persegi Hijau") Then OvalShape1.Hide()

   If TextBox1.Text = ("Persegi Kuning") Then OvalShape1.Hide()

   If TextBox1.Text = ("Persegi Biru") Then OvalShape1.Hide()

   If TextBox1.Text = ("Lingkaran Biru") Then OvalShape1.Hide()

   If TextBox1.Text = ("Lingkaran Kuning") Then OvalShape1.Hide()

   If TextBox1.Text = ("Lingkaran Hijau") Then OvalShape1.Hide()

   If TextBox1.Text = ("Persegi Panjang") Then OvalShape1.Hide()

   If TextBox1.Text = ("Persegi Panjang Biru") Then OvalShape1.Hide()

   If TextBox1.Text = ("Persegi Panjang Kuning") Then OvalShape1.Hide()

   If TextBox1.Text = ("Persegi Panjang Hijau") Then OvalShape1.Hide()

VI. Membuat permisalan jika bangun pertama yang kita masukkan adalah “Lingkaran Biru” lalu kita ingin mengetikkan bangun yang lainnya maka fungsi IF yang dilakukan adalah

   If TextBox1.Text = ("Persegi") Then OvalShape2.Hide()

   If TextBox1.Text = ("Persegi Hijau") Then OvalShape2.Hide()

   If TextBox1.Text = ("Persegi Kuning") Then OvalShape2.Hide()

   If TextBox1.Text = ("Persegi Biru") Then OvalShape2.Hide()

   If TextBox1.Text = ("Lingkaran") Then OvalShape2.Hide()

   If TextBox1.Text = ("Lingkaran Kuning") Then OvalShape2.Hide()

   If TextBox1.Text = ("Lingkaran Hijau") Then OvalShape2.Hide()

   If TextBox1.Text = ("Persegi Panjang") Then OvalShape2.Hide()

   If TextBox1.Text = ("Persegi Panjang Biru") Then OvalShape2.Hide()

   If TextBox1.Text = ("Persegi Panjang Kuning") Then OvalShape2.Hide()

   If TextBox1.Text = ("Persegi Panjang Hijau") Then OvalShape2.Hide()

VII. Membuat permisalan jika bangun pertama yang kita masukkan adalah “Lingkaran Kuning” lalu kita ingin mengetikkan bangun yang lainnya maka fungsi IF yang dilakukan adalah

   If TextBox1.Text = ("Persegi") Then OvalShape3.Hide()

   If TextBox1.Text = ("Persegi Hijau") Then OvalShape3.Hide()

   If TextBox1.Text = ("Persegi Kuning") Then OvalShape3.Hide()

   If TextBox1.Text = ("Persegi Biru") Then OvalShape3.Hide()

   If TextBox1.Text = ("Lingkaran") Then OvalShape3.Hide()

   If TextBox1.Text = ("Lingkaran Biru") Then OvalShape3.Hide()

   If TextBox1.Text = ("Lingkaran Hijau") Then OvalShape3.Hide()

   If TextBox1.Text = ("Persegi Panjang") Then OvalShape3.Hide()

   If TextBox1.Text = ("Persegi Panjang Biru") Then OvalShape3.Hide()

   If TextBox1.Text = ("Persegi Panjang Kuning") Then OvalShape3.Hide()

   If TextBox1.Text = ("Persegi Panjang Hijau") Then OvalShape3.Hide()

VIII. Membuat permisalan jika bangun pertama yang kita masukkan adalah “Lingkaran Hjau” lalu kita ingin mengetikkan bangun yang lainnya maka fungsi IF yang dilakukan adalah

    If TextBox1.Text = ("Persegi") Then OvalShape4.Hide()

    If TextBox1.Text = ("Persegi Hijau") Then OvalShape4.Hide()

    If TextBox1.Text = ("Persegi Kuning") Then OvalShape4.Hide()

    If TextBox1.Text = ("Persegi Biru") Then OvalShape4.Hide()

    If TextBox1.Text = ("Lingkaran") Then OvalShape4.Hide()

    If TextBox1.Text = ("Lingkaran Biru") Then OvalShape4.Hide()

    If TextBox1.Text = ("Lingkaran Kuning") Then OvalShape4.Hide()

    If TextBox1.Text = ("Persegi Panjang") Then OvalShape4.Hide()

    If TextBox1.Text = ("Persegi Panjang Biru") Then OvalShape4.Hide()

    If TextBox1.Text = ("Persegi Panjang Kuning") Then OvalShape4.Hide()

    If TextBox1.Text = ("Persegi Panjang Hijau") Then OvalShape4.Hide()

IX. Membuat permisalan jika bangun pertama yang kita masukkan adalah “Persegi Panjang” lalu kita mengetikkan bangun yang lainnya maka fungsi IF yang dilakukan adalah

    If TextBox1.Text = ("Persegi") Then RectangleShape5.Hide()

    If TextBox1.Text = ("Persegi Hijau") Then RectangleShape5.Hide()

    If TextBox1.Text = ("Persegi Kuning") Then RectangleShape5.Hide()

    If TextBox1.Text = ("Persegi Biru") Then RectangleShape5.Hide()

    If TextBox1.Text = ("Lingkaran") Then RectangleShape5.Hide()

    If TextBox1.Text = ("Lingkaran Biru") Then RectangleShape5.Hide()

    If TextBox1.Text = ("Lingkaran Kuning") Then RectangleShape5.Hide()

    If TextBox1.Text = ("Lingkaran Hijau") Then RectangleShape5.Hide()

    If TextBox1.Text = ("Persegi Panjang Biru") Then RectangleShape5.Hide()

    If TextBox1.Text = ("Persegi Panjang Kuning") Then RectangleShape5.Hide()

    If TextBox1.Text = ("Persegi Panjang Hijau") Then RectangleShape5.Hide()

X. Membuat permisalan jika bangun pertama yang kita masukkan adalah “Persegi Panjang Biru” lalu kita mengetikkan bangun yang lainnya maka fungsi IF yang dilakukan adalah

    If TextBox1.Text = ("Persegi") Then RectangleShape6.Hide()

    If TextBox1.Text = ("Persegi Hijau") Then RectangleShape6.Hide()

    If TextBox1.Text = ("Persegi Kuning") Then RectangleShape6.Hide()

    If TextBox1.Text = ("Persegi Biru") Then RectangleShape6.Hide()

    If TextBox1.Text = ("Lingkaran") Then RectangleShape6.Hide()

    If TextBox1.Text = ("Lingkaran Biru") Then RectangleShape6.Hide()

    If TextBox1.Text = ("Lingkaran Kuning") Then RectangleShape6.Hide()

    If TextBox1.Text = ("Lingkaran Hijau") Then RectangleShape6.Hide()

    If TextBox1.Text = ("Persegi Panjang") Then RectangleShape6.Hide()

    If TextBox1.Text = ("Persegi Panjang Kuning") Then RectangleShape6.Hide()

    If TextBox1.Text = ("Persegi Panjang Hijau") Then RectangleShape6.Hide()

XI. Membuat permisalan jika bangun pertama yang kita masukkan adalah “Persegi Panjang Kuning” lalu kita mengetikkan bangun yang lainnya maka fungsi IF yang dilakukan adalah

   If TextBox1.Text = ("Persegi") Then RectangleShape7.Hide()

   If TextBox1.Text = ("Persegi Hijau") Then RectangleShape7.Hide()

   If TextBox1.Text = ("Persegi Kuning") Then RectangleShape7.Hide()

   If TextBox1.Text = ("Persegi Biru") Then RectangleShape7.Hide()

   If TextBox1.Text = ("Lingkaran") Then RectangleShape7.Hide()

   If TextBox1.Text = ("Lingkaran Biru") Then RectangleShape7.Hide()

   If TextBox1.Text = ("Lingkaran Kuning") Then RectangleShape7.Hide()

   If TextBox1.Text = ("Lingkaran Hijau") Then RectangleShape7.Hide()

   If TextBox1.Text = ("Persegi Panjang") Then RectangleShape7.Hide()

   If TextBox1.Text = ("Persegi Panjang Biru") Then RectangleShape7.Hide()

   If TextBox1.Text = ("Persegi Panjang Hijau") Then RectangleShape7.Hide()

XII. Membuat permisalan jika bangun pertama yang kita masukkan adalah “Persegi Panjang Hijau” lalu kita mengetikkan bangun yang lainnya maka fungsi IF yang dilakukan adalah

   If TextBox1.Text = ("Persegi") Then RectangleShape8.Hide()

   If TextBox1.Text = ("Persegi Hijau") Then RectangleShape8.Hide()

   If TextBox1.Text = ("Persegi Kuning") Then RectangleShape8.Hide()

   If TextBox1.Text = ("Persegi Biru") Then RectangleShape8.Hide()

   If TextBox1.Text = ("Lingkaran") Then RectangleShape8.Hide()

   If TextBox1.Text = ("Lingkaran Biru") Then RectangleShape8.Hide()

   If TextBox1.Text = ("Lingkaran Kuning") Then RectangleShape8.Hide()

   If TextBox1.Text = ("Lingkaran Hijau") Then RectangleShape8.Hide()

   If TextBox1.Text = ("Persegi Panjang") Then RectangleShape8.Hide()

   If TextBox1.Text = ("Persegi Panjang Biru") Then RectangleShape8.Hide()

   If TextBox1.Text = ("Persegi Panjang Kuning") Then RectangleShape8.Hide()

Setelah membuat semua kemungkinan tersebut maka program akan berjalan sesuai dengan apa yang kita inginkan tetapi harus berhati hati karena sangat rentan kesalahan.