Program Menampilkan 3 Gambar dengan 2 Kriteria Visual Studio 2010

Pada program ini anda dapat menampilkan  3 buah gambar dengan memilih salah satu kriteria yaitu Pria atau Wanita. Program ini di design menggunakan "PictureBox", "GoupBox", "Label", dan "Button". Untuk itu anda dapat mengikuti langkah-langkah berikut ini

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) Tambahkan 3 "PictireBox" dan dapat anda letakkan didalam Form

3) Tambahkan 2 "GroupBox" dengan mengubah nama Textnya menjadi "Kriteria" dan "Proses"

4) Tambahkan 1 "Label" dengan mengubah nama Textnya menjadi "Orang"

5) Kemudian tambahkan 2 "RadioButton" dengan mengubah nama textnya menjadi "Pria" dan "Wanita"

6) Dan untuk design terakhir tambahkan 2 "Button" dengan mengubah nama textnya menjadi "Bersih" dan "Selesai"

7) Setelah itu double klik di "Pria", "Wanita", "Bersih", dan "Selesai"untuk menambahkan linsting program berikut

Public Class Form4

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

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

        PictureBox2.Image = Image.FromFile(Application.StartupPath & "\anaklk.jpg")

        PictureBox3.Image = Image.FromFile(Application.StartupPath & "\tualk.jpg")

    End Sub

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

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

        PictureBox2.Image = Image.FromFile(Application.StartupPath & "\anakpr.png")

        PictureBox3.Image = Image.FromFile(Application.StartupPath & "\tuapr.jpg")

    End Sub

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

        PictureBox1.Image = Nothing

        PictureBox2.Image = Nothing

        PictureBox3.Image = Nothing

    End Sub

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

        End

    End Sub

End Class

Catatan: Masukkan gambar ke Folder Project - Debug - Bin

8) Dan untuk menjalankan program anda harus memilih "Start Debugging" atau menekan "F5" pada tombol keyboard. Hasil pun akan terlihat seperti tampilan dibawah ini

Jika anda memilih "Pria" maka akan menampilkan 3 gambar pria yaitu dewasa, anak-anak , dan orang tua

Dan jika anda memilih "Wanita" maka akan menampilkan 3 gambar wanita yaitu dewasa, anak-anak , dan orang tua

9) Setelah itu anda dapat memilih "Bersih" untuk menghilangkan gambarnya

10) Dan anda dapat memilih "Selesai" jika ingin mengakhiri program

#Selamat mencoba dan semoga berhasil :)