Sebenarnya program ini saya tulis waktu praktek pemrograman visual basic, kebetulan saya simpan d flas disk trus q posting dehh source code program jenis kelamin,,hehehehe nGokk,,,,
Program disini menggunakan radiobutton dll. Cara cukup mudah tinggal kamu copy aja source code nya lalu kamu paste kan di program yg sedang kamu buat,,jika terjadi kesalahan mungkin terjadi pada saat pemostingan saya’ mohon maaf jika itu terjadi
Tapi smoga tidak,,,,hehehehe
Public Class Form1
'event ketika memilih Kawin
Private Sub rbtnKawin_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtnKawin.CheckedChanged
If rbtnPria.Checked = True Then 'jika pilihan "Pria" sudah dipilih
txtHasil.Text = "ISTRI" 'maka memunculkan tulisan "ISTRI" di teksboks
ElseIf rbtnWanita.Checked = True Then 'jika pilihan "Wanita" sudah dipilih
txtHasil.Text = "SUAMI" 'maka memunculkan tulisan "SUAMI" di teksboks
Else
txtHasil.Text = ""
End If
End Sub
Private Sub rbtnTakkawin_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtnTakkawin.CheckedChanged
If rbtnPria.Checked = True Or rbtnWanita.Checked = True Then 'jika pilihan "Pria" atau "Wanita"
txtHasil.Text = "MASIH LAJANG" 'menampilkan tulisan "MASIH LAJANG" di textbox
Else
txtHasil.Text = ""
End If
End Sub
Private Sub rbtnPria_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtnPria.CheckedChanged
'jika "Kawin" telah terpilih
If rbtnKawin.Checked = True Then
txtHasil.Text = "ISTRI" 'menampilkan "ISTRI" di textbox
'jika "Tidak Kawin" telah terpilih
ElseIf rbtnTakkawin.Checked = True Then
txtHasil.Text = "MASIH LAJANG" 'menampilkan "MASIH LAJANG" di textbox
Else
txtHasil.Text = ""
End If
End Sub
Private Sub rbtnWanita_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles rbtnWanita.CheckedChanged
'jika "Kawin telah" terpilih
If rbtnKawin.Checked = True Then
txtHasil.Text = "SUAMI" 'menampilkan "SUAMI" di textbox
'jika "Tidak Kawin" telah terpilih
ElseIf rbtnTakkawin.Checked = True Then
txtHasil.Text = "MASIH LAJANG" 'menampilkan "MASIH LAJANG" di textbox
Else
txtHasil.Text = ""
End If
End Sub
Private Sub btnTutup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnTutup.Click
Application.Exit()
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
End Sub
End Class
