Control RadioButton

Descripción

El control RadioButton se utiliza para proporcionar un conjunto de opciones mutuamente excluyentes.El usuario puede seleccionar un botón de opción en un grupo. Si es necesario colocar más de un grupo de botones de radio en la misma forma, se debe colocar en diferentes controles contenedor como un control GroupBox.

Public Class Form1

    Private Sub btnMatricular_Click(sender As Object, e As EventArgs) Handles btnMatricular.Click
        Dim Turno, Sexo As String : Dim Pago, Desc As Decimal
        Dim Edad As Integer

        'Verificamos si la Edad del alumno es válida para la matrícula
        Edad = CalcularEdad(CDate(DateTimePicker1.Value))

        'Verificamos si algún control radiobutton está activado aplicamos el respectivo descuento
        If rbnMañana.Checked = True Then
            Desc = CDec(txtPago.Text) * CDec(0.05)
            Turno = "Mañana"
        ElseIf rbnTarde.Checked = True Then
            Desc = CDec(txtPago.Text) * CDec(0.07)
            Turno = "Tarde"
        Else
            Desc = CDec(txtPago.Text) * CDec(0.09)
            Turno = "Noche"
        End If

        Pago = CDec(txtPago.Text) - CDec(Desc)

        'Vefiricamos si el control está activado y luego Capturamos el valor de cada RadioButton
        Sexo = If(rbnMasculino.Checked = True, "Masculino", "Femenino")

        'Si la Edad Edad es mayor o igual a 17 Años se realizará la matrícula
        If Edad >= 17 Then
            lblAlumno.Text = CStr(txtAlumno.Text)
            lblEdad.Text = CInt(Edad)
            lblSexo.Text = CStr(Sexo)
            lblDescuento.Text = CDec(Desc)
            lblMontoTotal.Text = CDec(Pago)
        End If
    End Sub

    Private Function CalcularEdad(FechaNacimiento As Date) As Integer
        Dim Ed As Integer = 0
        'Calculamos nuestra Edad Capturando la fecha actual y le restamos la fecha de Nacimiento
        Ed = Year(Date.Now) - Year(FechaNacimiento)

        'Si la Edad es menor a 17 Años enviaremos un mensaje de advertencia
        If Ed < 17 Then
            MsgBox("Por Favor Verifica Edad...!!!", MsgBoxStyle.Exclamation, "Information")
            DateTimePicker1.Value = Now
        End If
        'Retornamos Nuestra Edad
        Return Ed
    End Function

    Private Sub btnNuevo_Click(sender As Object, e As EventArgs) Handles btnNuevo.Click
        'Limpiamos nuestros controles
        txtAlumno.Clear()
        txtPago.Clear()
        lblAlumno.Text = ""
        lblDescuento.Text = ""
        lblEdad.Text = ""
        lblMontoTotal.Text = ""
        lblSexo.Text = ""

        'Mostramos la fehca Actual en nuestro control DateTimePicker1
        DateTimePicker1.Value = Now

        'Activamos nuestro primer control RadioButton
        rbnMañana.Checked = True
        rbnMasculino.Checked = True

        'Colocamos Nuestro cursor en nuestro control TextBox
        txtAlumno.Focus()
    End Sub

    Private Sub btnSalir_Click(sender As Object, e As EventArgs) Handles btnSalir.Click
        Dim Rpta As Integer = MsgBox("Esta Seguro que desea Salir...!!!", MsgBoxStyle.YesNo, "Information")
        If Rpta = 6 Then
            Close()
        End If
    End Sub
End Class