Quiz Praktikum Algoritma dan Pemrograman II (form1)

Kali ini saya akan membagikan contoh program pada quiz praktikum Algoritma dan Pemrograman yang saya buat dengan Visual Studio 2008, program ini berguna untuk menampilkan hasil dari yang kita pilih/isi pada bagian Input ke Output.
Pada program ini saya menggunakan : label, groupbox, textbox, radio button, check box, dan button.

Berikut codingnya :

Public Class Form1

    Private Sub PROSES_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PROSES.Click

        If RB_laki.Checked = True Then
            RB_Perempuan.Checked = False
            OUT_JK.Text = RB_laki.Text
        ElseIf RB_Perempuan.Checked = True Then
            RB_laki.Checked = False
            OUT_JK.Text = RB_Perempuan.Text
        End If


        If IN_Usia.Text = "" Then
            OUT_Usia.Text = "Masukkan USIA"
        ElseIf IN_Usia.Text <= 5 Then
            OUT_Usia.Text = "BALITA"
        ElseIf IN_Usia.Text <= 12 Then
            OUT_Usia.Text = "ANAK-ANAK"
        ElseIf IN_Usia.Text <= 17 Then
            OUT_Usia.Text = "REMAJA"
        ElseIf IN_Usia.Text <= 55 Then
            OUT_Usia.Text = "DEWASA"
        ElseIf IN_Usia.Text >= 56 Then
            OUT_Usia.Text = "MANULA"
        End If



        If CB_Biru.Checked And CB_Hijau.Checked And CB_Merah.Checked = True Then
            OUT_Warna.Text = "HITAM"
        ElseIf CB_Biru.Checked And CB_Hijau.Checked = True Then
            OUT_Warna.Text = "BIRU MUDA"
        ElseIf CB_Hijau.Checked And CB_Merah.Checked = True Then
            OUT_Warna.Text = "KUNING"
        ElseIf CB_Biru.Checked And CB_Merah.Checked = True Then
            OUT_Warna.Text = "UNGU"
        ElseIf CB_Biru.Checked = True Then
            OUT_Warna.Text = "BIRU"
        ElseIf CB_Hijau.Checked = True Then
            OUT_Warna.Text = "HIJAU"
        ElseIf CB_Merah.Checked = True Then
            OUT_Warna.Text = "MERAH"
        Else
            OUT_Warna.Text = "Tidak ada pilihan"
        End If



    End Sub

    Private Sub IN_Usia_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IN_Usia.TextChanged
       
    End Sub

    Private Sub OUT_Usia_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OUT_Usia.TextChanged
       
    End Sub

    Private Sub KELUAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KELUAR.Click
        End
    End Sub
End Class

NB*
Nama pada :
radiobutton1 saya ganti dengan RB_Laki
radoibutton2 saya ganti dengan RB_Perempuan
textbox1 saya ganti dengan IN_Usia
textbox2 saya ganti dengan OUT_JK
textbox3 saya ganti dengan OUT_Usia
textbox4 saya ganti dengan OUT_Warna
checkbox1 saya ganti dengan CB_Biru
checkbox2 saya ganti dengan CB_Merah
checkbox3 saya ganti dengan CB_Hijau

Jika program tidak jalan mohon dikoreksi lagi, mungkin ada opsi yang belum anda ganti atau anda salah memasukkan coding.