Contoh program sederhana Visual Basic 2010

Pada kesempatan kali ini Admin akan berbagi cara membuat program sederhana menggunakan BottonClick, RadioBotton, CheckBox, dll, di Visual Basic 2010. Selamat Belajar Guys :)

1. Bukalah program mircrosoft visual basic 2010 express, Setelah jendela Visual Basic terbuka, maka pilihlah file -> new project, windows forms applications pada menu tab seperti gambar di bawah ini.Lalu tentukan name dan lokasi penyimpanan project yang ingin diinginkan,lalu klik OK:

2. Setelah itu, akan muncul sebuah form yang berjudul form1 .

3. Setelah itu kita tambahkan komponen-komponen yang diperlukan. kita dapat menambahkan label, GroupBox, Label,  ComboBox, RadioButton dan Button. Aturlah dan design letak sesuai yang diinginka di dalam kotak Form “Percobaan"

4. Klik Double pada Checkbox dan button dengan membuat listing program:

Public Class Percobaan

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

       

    End Sub

    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 & "\b.jpg")

            ElseIf ComboBox1.Text = "Ortu" Then

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

            Else

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

            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 = "Anak" Then

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

            ElseIf ComboBox1.Text = "Ortu" Then

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

            Else

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

            End If

        End If

    End Sub

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

        End

    End Sub

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

        If ComboBox1.Text = "" Then

            PictureBox1.Image = Nothing

            ComboBox1.Text = ""

            RadioButton1.Checked = False

            RadioButton2.Checked = True

        Else

            End

        End If

    End Sub

End Class

5. Lalu kita uji program kita, apakah jalan dengan baik atau tidak. Caranya klik menu debug>start debugging / pencet F5:

6. Saat klik kategori Dewasa >> Pria , maka akan tampil gambar seperti berikut ini :

7. Saat klik kategori Anak >> Wanita , maka akan tampil gambar seperti berikut ini :

Sekian yang bisa Admin rangkum, lebih kurang mohon di maklumi, karena Admin masih dalam proses belajar juga .