Praktikum TI 06

Tutorial dan Analisis Program Bangun Dua Dimensi Warna

1. Cara Membuat Form Bentuk

Komponen toolbox yang digunakan:

No	Komponen	Properties	Keterangan
1.	Form1	Name Text	Form1 BENTUK
2.	Label1	Name Text	Label1 Pilih Salah Satu Bentuk
3.	ComboBox1	Name Items	ComboBox1 LINGKARAN PERSEGI OVAL PERSEGI PANJANG
4.	Button1	Name Text	Button1 NEXT

Public Class Form1

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

If ComboBox1.Text = "LINGKARAN" Then Form2.Show()

If ComboBox1.Text = "PERSEGI" Then Form3.Show()

If ComboBox1.Text = "OVAL" Then Form4.Show()

If ComboBox1.Text = "PERSEGI PANJANG" Then Form5.Show()

If ComboBox1.Text = "" Then ComboBox1.Focus() : Exit Sub

Me.Hide()

End Sub

End Class

Keterangan:

Ketika Button1 (NEXT) di klik maka:

Baris 1 memunculkan Form2 jika input data yang dimasukkan pada ComboBox1 adalah Lingkaran

Baris 2 memunculkan Form3 jika input data yang dimasukkan pada ComboBox1 adalah Persegi

Baris 3 memunculkan Form4 jika input data yang dimasukkan pada ComboBox1 adalah Oval

Baris 4 memunculkan Form5 jika input data yang dimasukkan pada ComboBox1 adalah Persegi Panjang

Baris 5 membuat cursor fokus pada ComboBox1 jika data pada ComboBox1 tidak di input

Baris 6 membuat Form1 (Form BENTUK) sembunyi

Me adalah nama yang diberikan ke Form1

2. Cara Membuat Form Lingkaran

Komponen toolbox yang digunakan:

No	Komponen	Properties	Keterangan
1.	Form2	Name Text	Form2 LINGKARAN
2.	OvalShape1	Name FillStyle	OvalShape1 Transparent
3.	OvalShape2	Name FillColor FillStyle	OvalShape2 Hijau Solid
4.	OvalShape3	Name FillColor FillStyle	OvalShape3 Merah Solid
5.	OvalShape4	Name FillColor FillStyle	OvalShape4 Ungu Solid
6.	Label1	Name Text	Label1 Pilih Warna
7.	ComboBox1	Name Items	ComboBox1 MERAH UNGU HIJAU
8.	Button1	Name Text	Button1 NEXT
9.	Button2	Name Text	Button2 BACK
10.	Button3	Name Text	Button3 CLOSE
11.	Button4	Name Text	Button4 REFRESH

Public Class Form2

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

OvalShape2.Hide()

OvalShape3.Hide()

OvalShape4.Hide()

End Sub

Keterangan:

Baris 1 membuat OvalShape2 sembunyi

Baris 2 membuat OvalShape3 sembunyi

Baris 3 membuat OvalShape4 sembunyi

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

OvalShape1.Hide()

If ComboBox1.Text = "MERAH" Then OvalShape3.Show()

If ComboBox1.Text = "MERAH" Then OvalShape2.Hide()

If ComboBox1.Text = "MERAH" Then OvalShape4.Hide()

If ComboBox1.Text = "UNGU" Then OvalShape4.Show()

If ComboBox1.Text = "UNGU" Then OvalShape2.Hide()

If ComboBox1.Text = "UNGU" Then OvalShape3.Hide()

If ComboBox1.Text = "HIJAU" Then OvalShape2.Show()

If ComboBox1.Text = "HIJAU" Then OvalShape3.Hide()

If ComboBox1.Text = "HIJAU" Then OvalShape4.Hide()

If ComboBox1.Text = "" Then ComboBox1.Focus() : Exit Sub

Button1.Enabled = False

ComboBox1.Enabled = False

End Sub

Keterangan:

Ketika Buttton1 (NEXT) di klik:

Baris 1 memunculkan OvalShape3 jika input data yang dimasukkan pada ComboBox1 adalah MERAH

Baris 2 menyembunyikan OvalShape2 jika input data yang dimasukkan pada ComboBox1 adalah MERAH

Baris 3 menyembunyikan OvalShape4 jika input data yang dimasukkan pada ComboBox1 adalah MERAH

Baris 4 memunculkan OvalShape4 jika input data yang dimasukkan pada ComboBox1 adalah UNGU

Baris 5 menyembunyikan OvalShape2 jika input data yang dimasukkan pada ComboBox1 adalah UNGU

Baris 6 menyembunyikan OvalShape3 jika input data yang dimasukkan pada ComboBox1 adalah UNGU

Baris 7 memunculkan OvalShape2 jika input data yang dimasukkan pada ComboBox1 adalah HIJAU

Baris 8 menyembunyikan OvalShape3 jika input data yang dimasukkan pada ComboBox1 adalah HIJAU

Baris 9 menyembunyikan OvalShape4 jika input data yang dimasukkan pada ComboBox1 adalah HIJAU

Baris 10 membuat cursor fokus pada ComboBox1 jika data pada ComboBox1 tidak di input

Baris 11 membuat Button1 (NEXT) mati (tidak bisa di klik)

Baris 12 membuat ComboBox1 mati

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

Form1.Show()

Me.Hide()

End Sub

Keterangan:

Ketika Button2 (BACK) di klik maka:

Baris 1 membuat Form1 (Form BENTUK) muncul

Baris 2 membuat Form2 (Form LINGKARAN) sembunyi

Me adalah nama yang diberikan ke Form2

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

End

End Sub

Keterangan:

Ketika Button3 (CLOSE) di klik maka:

Baris 1 membuat program mati/selesai

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

OvalShape2.Hide()

OvalShape3.Hide()

OvalShape4.Hide()

OvalShape1.Show()

ComboBox1.Text = ""

Button1.Enabled = True

ComboBox1.Enabled = True

End Sub

End Class

Keterangan:

Ketika Button4 (REFRESH) di klik maka:

Baris 1 membuat OvalShape2 sembunyi

Baris 2 membuat OvalShape3 sembunyi

Baris 3 membuat OvalShape4 sembunyi

Baris 4 membuat OvalShape1 muncul

Baris 5 membuat ComboBox1 kosong (data yang telah di input hilang/terhapus)

Baris 6 membuat Button1 (NEXT) hidup (bisa di klik)

Baris 7 membuat ComboBox1 hidup

3. Cara Membuat Form Persegi

Komponen toolbox yang digunakan:

No	Komponen	Properties	Keterangan
1.	Form3	Name Text	Form3 PERSEGI
2.	RectangleShape1	Name FillStyle	RectangleShape1 Transparent
3.	RectangleShape2	Name FillColor FillStyle	RectangleShape2 Hijau Solid
4.	RectangleShape3	Name FillColor FillStyle	RectangleShape3 Merah Solid
5.	RectangleShape4	Name FillColor FillStyle	RectangleShape4 Ungu Solid
6.	Label1	Name Text	Label1 Pilih Warna
7.	ComboBox1	Name Items	ComboBox1 MERAH UNGU HIJAU
8.	Button1	Name Text	Button1 NEXT
9.	Button2	Name Text	Button2 BACK
10.	Button3	Name Text	Button3 CLOSE
11.	Button4	Name Text	Button4 REFRESH

Public Class Form3

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

RectangleShape2.Hide()

RectangleShape3.Hide()

RectangleShape4.Hide()

End Sub

Keterrangan:

Baris 1 membuat RectangleShape2 sembunyi

Baris 2 membuat RectangleShape3 sembunyi

Baris 3 membuat RectangleShape4 sembunyi

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

RectangleShape1.Hide()

If ComboBox1.Text = "MERAH" Then RectangleShape3.Show()

If ComboBox1.Text = "MERAH" Then RectangleShape2.Hide()

If ComboBox1.Text = "MERAH" Then RectangleShape4.Hide()

If ComboBox1.Text = "UNGU" Then RectangleShape4.Show()

If ComboBox1.Text = "UNGU" Then RectangleShape2.Hide()

If ComboBox1.Text = "UNGU" Then RectangleShape3.Hide()

If ComboBox1.Text = "HIJAU" Then RectangleShape2.Show()

If ComboBox1.Text = "HIJAU" Then RectangleShape3.Hide()

If ComboBox1.Text = "HIJAU" Then RectangleShape4.Hide()

If ComboBox1.Text = "" Then ComboBox1.Focus() : Exit Sub

Button1.Enabled = False

ComboBox1.Enabled = False

End Sub

Keterangan:

Ketika Buttton1 (NEXT) di klik:

Baris 1 memunculkan RectangleShape3 jika input data yang dimasukkan pada ComboBox1 adalah MERAH

Baris 2 menyembunyikan RectangleShape2 jika input data yang dimasukkan pada ComboBox1 adalah MERAH

Baris 3 menyembunyikan RectangleShape4 jika input data yang dimasukkan pada ComboBox1 adalah MERAH

Baris 4 memunculkan RectangleShape4 jika input data yang dimasukkan pada ComboBox1 adalah UNGU

Baris 5 menyembunyikan RectangleShape2 jika input data yang dimasukkan pada ComboBox1 adalah UNGU

Baris 6 menyembunyikan RectangleShape3 jika input data yang dimasukkan pada ComboBox1 adalah UNGU

Baris 7 memunculkanRectangleShape2 jika input data yang dimasukkan pada ComboBox1 adalah HIJAU

Baris 8 menyembunyikan RectangleShape3 jika input data yang dimasukkan pada ComboBox1 adalah HIJAU

Baris 9 menyembunyikan RectangleShape4 jika input data yang dimasukkan pada ComboBox1 adalah HIJAU

Baris 10 membuat cursor fokus pada ComboBox1 jika data pada ComboBox1 tidak di input

Baris 11 membuat Button1 (NEXT) mati (tidak bisa di klik)

Baris 12 membuat ComboBox1 mati

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

Form1.Show()

Me.Hide()

End Sub

Keterangan:

Ketika Button2 (BACK) di klik maka:

Baris 1 membuat Form1 (Form BENTUK) muncul

Baris 2 membuat Form3 (Form PERSEGI) sembunyi

Me adalah nama yang diberikan ke Form3

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

End

End Sub

Keterangan:

Ketika Button3 (CLOSE) di klik maka:

Baris 1 membuat program mati/selesai

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

RectangleShape2.Hide()

RectangleShape3.Hide()

RectangleShape4.Hide()

RectangleShape1.Show()

ComboBox1.Text = ""

Button1.Enabled = True

ComboBox1.Enabled = True

End Sub

End Class

Keterangan:

Ketika Button4 (REFRESH) di klik maka:

Baris 1 membuat RectangleShape2 sembunyi

Baris 2 membuat RectangleShape3 sembunyi

Baris 3 membuat RectangleShape4 sembunyi

Baris 4 membuat RectangleShape1 muncul

Baris 5 membuat ComboBox1 kosong (data yang telah di input hilang/terhapus)

Baris 6 membuat Button1 (NEXT) hidup (bisa di klik)

Baris 7 membuat ComboBox1 hidup

4. Cara Membuat Form Oval

Komponen toolbox yang digunakan:

No	Komponen	Properties	Keterangan
1.	Form4	Name Text	Form4 OVAL
2.	OvalShape1	Name FillStyle	OvalShape1 Transparent
3.	OvalShape2	Name FillColor FillStyle	OvalShape2 Hijau Solid
4.	OvalShape3	Name FillColor FillStyle	OvalShape3 Merah Solid
5.	OvalShape4	Name FillColor FillStyle	OvalShape4 Ungu Solid
6.	Label1	Name Text	Label1 Pilih Warna
7.	ComboBox1	Name Items	ComboBox1 MERAH UNGU HIJAU
8.	Button1	Name Text	Button1 NEXT
9.	Button2	Name Text	Button2 BACK
10.	Button3	Name Text	Button3 CLOSE
11.	Button4	Name Text	Button4 REFRESH

Public Class Form4

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