Program Menampilkan Foto dengan Memilih salah satu Kriteria dengan Microsoft Visual Studio 2012

Pada kesempatan kali ini saya  akan menyajikan cara untuk menampilkan sebuah gambar menurut kriteria gambar yang kita pilih pada Visual  Studio 2012. langkah pertama yang harus anda lakukan adalah buka visual studio anda dengan meng-klik icon yang terdapat di desktop anda atau program file anda. Setelah terbuka maka tampilan akan nampak seperti di bawah ini :

Kemudian anda membuat project baru dengan cara klik file -> new -> project maka akan tampak kurang lebih seperti di bawah ini

Dan pastikan bahwa bahasa pemrograman yang anda pilih adalah Visual Basic. Setelah itu pilih Windows Form Application dan isi nama project yang anda buat atau dalam posisi default-nya nama akan menyesuaikan dengan jenis aplikasi. Pastikan juga lokasi penyimpanan project sesuai dengan apa yang anda inginkan. Kemudian klik tombol OK maka akan tampak windows seperti di bawah ini :

Setelah muncul seperti tampilan di atas drag sebuah PictureBox, dua buah groupbox, empat buah radiobutton, dan dua Button ke Form1 dari ToolBox.

Dengan mengatur properties nya :
GroupBox1 dengan text Foto yang ditampilkan
GroupBox2 dengan text Proses
RadioButton1 dengan text Ayah
RadioButton2 dengan text Ibu
RadioButton3  dengan text Anak Pria
RadioButton4 dengan text Anak Wanita

Maka akan tampak tampilan berikut

Setelah tampilan tampak seperti di atas kemudian langkah selanjutnya adalah menambahkan event dengan code. Algoritmanya adalah jika salah satu RadioButton kita klik maka akan muncul gambar atau foto pada PictureBox. Maka komponen yang akan kita masukan code adalah RadioButton dan Untuk membersihkan atau menutup program maka klik pada Button 1,  caranya adalah klik dua kali pada salah satu RadioButton dan Button  maka akan tampak tampilan sebagai berikut

Kemudian kita masukkan code sebagai berikut :

Public Class Form1

    Private Sub RadioButton1_CheckedChanged(sender As Object, e As EventArgs) Handles RadioButton1.CheckedChanged, RadioButton2.CheckedChanged, RadioButton3.CheckedChanged, RadioButton4.CheckedChanged

        With PictureBox1

            Select Case sender.tag

                Case 1

                    .Image = Image.FromFile("D:\BsTFdBCCUAA03o6.jpg")

                Case 2

                    .Image = Image.FromFile("D:\170913_620.jpg")

                Case 3

                    .Image = Image.FromFile("D:\raffi_ahmad.jpg")

                Case 4

                    .Image = Image.FromFile("D:\syahnaz.jpg")

            End Select

        End With

    End Sub

Private Sub Form1_Activated(sender As Object, e As EventArgs) Handles MyBase.Activated

        Bersih()

    End Sub

    Sub Bersih()

        RadioButton1.Checked = False

        RadioButton2.Checked = False

        RadioButton3.Checked = False

        RadioButton4.Checked = False

        PictureBox1.Image = Nothing

    End Sub

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

        If sender.tag = 1 Then

            Bersih()

        Else

            End

        End If

    End Sub

  

End Class

Setelah selesai dengan code kemudian kita jalankan dengan menekan F5 maka hasilnya akan nampak sebagai berikut :

Jika kita klik kriteria “Ayah” atau pada RadioButton yang diberi judul “Ayah” maka akan muncul seperti gambar dibawah ini 

Jika kita klik kriteria “Ibu” atau pada RadioButton yang diberi judul “Ibu” maka akan muncul seperti gambar dibawah ini 

Jika kita klik kriteria “Anak Wanita” atau pada RadioButton yang diberi judul “Anak Wanita” maka akan muncul seperti gambar dibawah ini 

Jika kita klik kriteria “Anak Wanita” atau pada RadioButton yang diberi judul “Anak Wanita” maka akan muncul seperti gambar dibawah ini 

Dan jika klik Button “Bersih”, maka foto akan hilang seperti gamabar dibawah

Dan klik Button “Selesai” ,maka form1 akan ditutup.

sekian dan semoga bermanfaat.