Program Menampilkan Sebuah Gambar dengan 3 Kriteria Visual Studio 2010

Pada Program ini, untuk mendesignnya anda dapat menggunakan "PictureBox", "GoupBox", "Label", "ComboBox", "RadioButton", dan "Button". Anda dapat mengikuti langkah-langkah berikut:

1) Tampilkan terlebih dahulu sebuah Form dengan cara membuka aplikasi Microsoft Visual Studio 2010 dan pilih menu File - New Project - Visual Basic -Windows Forms Application - OK. Setelah itu akan muncul Form seperti dibawah ini

2) Setelah muncul Form, anda dapat langsung menambahkan 1 "PictureBox" kedalam Form

3) Tambahkan 2 "GroupBox" dengan mengubah nama menjadi "Ketentuan Foto" dan "Proses"

4) Kemudian tambahkan 2 "Label" dengan mengubah nama menjadi "Orang:" dan "Jenis:"

5) Tambahkan 1 "ComboBox" yang dapat anda letakkan disamping kanan "Orang:"

Pada "ComboBox" ini anda harus menulis untuk pilihan kriterianya yaitu "Dewasa", "Anak-anak", dan "Orangtua". Anda pun dapat melihat tampilan dibawah ini

 6) Tambahkan lagi 2 "RadioButton" dengan mengubah namanya menjadi "Pria" dan "Wanita"

7) Dan untuk design yang terakhir anda dapat menambahkan 2 "Button" dengan mengubah namanya menjadi "Bersih" dan "Selesai"

8) Setelah selesai mendesign, anda dapat mendouble klik di "Pria", "Wanita", "Bersih", dan "Selesai" untuk memasukkan linsting program berikut

Public Class Form3

    Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged

        If RadioButton1.Checked = True Then

            If ComboBox1.Text = "Dewasa" Then

                PictureBox1.Image = Image.FromFile(Application.StartupPath & "\PriaDewasa.jpg")

            ElseIf ComboBox1.Text = "Orang Tua" Then

                PictureBox1.Image = Image.FromFile(Application.StartupPath & "\PriaTua.jpg")

            ElseIf ComboBox1.Text = "Anak-anak" Then

                PictureBox1.Image = Image.FromFile(Application.StartupPath & "\PriaAnak.jpeg")

            End If

        End If

    End Sub

    Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged

        If RadioButton2.Checked = True Then

            If ComboBox1.Text = "Dewasa" Then

                PictureBox1.Image = Image.FromFile(Application.StartupPath & "\WanitaDewasa.jpg")

            ElseIf ComboBox1.Text = "Orang Tua" Then

                PictureBox1.Image = Image.FromFile(Application.StartupPath & "\WanitaTua.gif")

            ElseIf ComboBox1.Text = "Anak-anak" Then

                PictureBox1.Image = Image.FromFile(Application.StartupPath & "\WanitaAnak.jpg")

            End If

        End If

    End Sub

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

        If sender.tag = 1 Then

            PictureBox1.Image = Nothing

            ComboBox1.Text = ""

            RadioButton1.Checked = False

            RadioButton2.Checked = False

        Else

            PictureBox1.Image = Nothing

            ComboBox1.Text = ""

            RadioButton1.Checked = False

            RadioButton2.Checked = False

        End If

    End Sub

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

        End

    End Sub

End Class

8) Dan untuk melihat hasil, anda dapat menekan menu "Start Debugging" atau menekan "F5" pada tombol keyboard. Hasil pun akan terlihat seperti tampilan dibawah ini

9) Dan anda dapat memilih gambar dengan kriteria yang anda inginkan, salah satunya seperti yang terlihat dibawah ini dengan gambar wanita dengan kriteria "Dewasa"

10) Program selesai dijalankan

#Selamat mencoba dan semoga bermanfaat :)