Proyecto

Uso de botones de radio, cajas de cheque

Descripción

Crear una aplicación donde se colocará un groupBox y dentro de éste se coloocan tres botones de radio:

  1. El primer botón de radio su etiqueta dirá: Rojo
  2. El seguno botón de radio su etiqueta dira: Amarillo
  3. El tercer botón de radio su etiqueta dirá: Verde
Cuando se dé un click sobre alguno de ellos la etiqueta se colocará el color indicado, en la propiedad backcolor de la etiqueta.
A la vez, se ubicará otro control groupBox y tres cajas de cheque con las leyendas:
  1. Mouse
  2. MoDem
  3. Sonido
Al dar click en alguna de ellos deberá presentar un mensaje sobre la activado/desactivadode estos elementos; lo informará en una etiqueta multilinea.

El formulario funcionará en dos modalidades: a) Inmediato y b) Manual. En forma inmediata al dar click sobre un radioButton o sobre una caja de cheque deberá aparecer el corresondiente mensaje en la etiqueta arriba descrita. De manera manual se presentará la información hasta que se dé un click sobre el botón "establecer".
Para esto se coloca un control groupBox con dos botones de radio:
  1. Con la leyenda Inmediato
  2. Con la leyenda Manual
Ver Imagen:

LABORATORIO III

USO DE:

:  Botones de Radio

:  Caja de Cheque

Formulario Uso de RadioButtons y CheckBox

CODIGO DE LA APLICACION

Public Class Form1

 

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optRojo.CheckedChanged

        If optInme.Checked Then

            btnEstablece_Click(sender, e)

        End If

End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optAmarillo.CheckedChanged

 

        If optInme.Checked Then

            btnEstablece_Click(sender, e)

        End If

End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optVerde.CheckedChanged

 

        If optInme.Checked Then

            btnEstablece_Click(sender, e)

        End If

    End Sub

Private Sub chkMouse_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkMouse.CheckedChanged

        If optInme.Checked Then

            btnEstablece_Click(sender, e)

        End If

    End Sub

Private Sub btnEstablece_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEstablece.Click

        Label2.Text = ""

        If optRojo.Checked Then

         Label1.BackColor = Color.Red

            Label2.Text += Environment.NewLine & "Etiqueta Color: Rojo"

        End If

        If optAmarillo.Checked Then

            Label1.BackColor = Color.Yellow

            Label2.Text += Environment.NewLine & "Etiqueta Color: Amarillo"

        End If

        If optVerde.Checked Then

            Label1.BackColor = Color.Green

            Label2.Text += Environment.NewLine & "Etiqueta Color: Verde"

        End If

        If chkMouse.Checked Then

            Label2.Text += Environment.NewLine & "Mouse: Activado"

        Else

            Label2.Text += Environment.NewLine & "Mouse: Desactivado"

        End If

        If chkModem.Checked Then

            Label2.Text += Environment.NewLine & "MoDem: Activado"

        Else

            Label2.Text += Environment.NewLine & "MoDem: Desactivado"

        End If

        If chkSonido.Checked Then

            Label2.Text += Environment.NewLine & "Sonido: Activado"

        Else

            Label2.Text += Environment.NewLine & "Sonido: Desactivado"

        End If

    End Sub

Private Sub chkModem_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkModem.CheckedChanged

        If optInme.Checked Then

            btnEstablece_Click(sender, e)

        End If

End Sub

Private Sub chkSonido_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkSonido.CheckedChanged

        If optInme.Checked Then

            btnEstablece_Click(sender, e)

        End If

    End Sub

 

End Class

 


Objetivos

  • El alumno practica las propiedades de los controles de radio
  • El alumno usa los métodos de los controles de radio
  • El alumno practica establecer las propiedades de las cajas de cheque
  • El alumno practica el uso de lso métodos de las cajas de cheque

Area

Tecnología e Informática - Informática

Edad

Sin especificación

Duración

Sesión 1:

Herramientas

  • Procesador de Texto
  • Editor de imágenes (Photoshop
  • etc)

Recursos

Recursos:

  • PC
  • Visual BAsic 2008
  • Cuaderno de clase de programación
  • Cuaderno de clase de laboratorio

Requisitos

.

Actividades de Clase

Propósito

Crear una aplicación donde se colocará un groupBox y dentro de éste se coloocan tres botones de radio:
  1. El primer botón de radio su etiqueta dirá: Rojo
  2. El seguno botón de radio su etiqueta dira: Amarillo
  3. El tercer botón de radio su etiqueta dirá: Verde
Cuando se dé un click sobre alguno de ellos la etiqueta se colocará el color indicado, en la propiedad backcolor de la etiqueta.
A la vez, se ubicará otro control groupBox y tres cajas de cheque con las leyendas:
  1. Mouse
  2. MoDem
  3. Sonido
Al dar click en alguna de ellos deberá presentar un mensaje sobre la activado/desactivadode estos elementos; lo informará en una etiqueta multilinea.

El formulario funcionará en dos modalidades: a) Inmediato y b) Manual. En forma inmediata al dar click sobre un radioButton o sobre una caja de cheque deberá aparecer el corresondiente mensaje en la etiqueta arriba descrita. De manera manual se presentará la información hasta que se dé un click sobre el botón "establecer".
Para esto se coloca un control groupBox con dos botones de radio:
  1. Con la leyenda Inmediato
  2. Con la leyenda Manual
Ver Imagen:

LABORATORIO III

USO DE:

:  Botones de Radio

:  Caja de Cheque

Formulario Uso de RadioButtons y CheckBox

CODIGO DE LA APLICACION

Public Class Form1

 

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optRojo.CheckedChanged

        If optInme.Checked Then

            btnEstablece_Click(sender, e)

        End If

End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optAmarillo.CheckedChanged

 

        If optInme.Checked Then

            btnEstablece_Click(sender, e)

        End If

End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles optVerde.CheckedChanged

 

        If optInme.Checked Then

            btnEstablece_Click(sender, e)

        End If

    End Sub

Private Sub chkMouse_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkMouse.CheckedChanged

        If optInme.Checked Then

            btnEstablece_Click(sender, e)

        End If

    End Sub

Private Sub btnEstablece_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEstablece.Click

        Label2.Text = ""

        If optRojo.Checked Then

         Label1.BackColor = Color.Red

            Label2.Text += Environment.NewLine & "Etiqueta Color: Rojo"

        End If

        If optAmarillo.Checked Then

            Label1.BackColor = Color.Yellow

            Label2.Text += Environment.NewLine & "Etiqueta Color: Amarillo"

        End If

        If optVerde.Checked Then

            Label1.BackColor = Color.Green

            Label2.Text += Environment.NewLine & "Etiqueta Color: Verde"

        End If

        If chkMouse.Checked Then

            Label2.Text += Environment.NewLine & "Mouse: Activado"

        Else

            Label2.Text += Environment.NewLine & "Mouse: Desactivado"

        End If

        If chkModem.Checked Then

            Label2.Text += Environment.NewLine & "MoDem: Activado"

        Else

            Label2.Text += Environment.NewLine & "MoDem: Desactivado"

        End If

        If chkSonido.Checked Then

            Label2.Text += Environment.NewLine & "Sonido: Activado"

        Else

            Label2.Text += Environment.NewLine & "Sonido: Desactivado"

        End If

    End Sub

Private Sub chkModem_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkModem.CheckedChanged

        If optInme.Checked Then

            btnEstablece_Click(sender, e)

        End If

End Sub

Private Sub chkSonido_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkSonido.CheckedChanged

        If optInme.Checked Then

            btnEstablece_Click(sender, e)

        End If

    End Sub

 

End Class

 


Duración

Actividad Docente

El docente preparará:
  • Material teórico sobre el uso y funcionamiento de los botones de radio
  • Material teórico sobre el uso y funcionamiento de los botones de cajas de cheque

Actividad Estudiante

.

Propósito

Duración

Actividad Docente

Actividad Estudiante

Evaluación

.

Notas

.

Créditos

Autor: Jorge Armando Hernández

Fecha de publicación : 2010-05-31


Responsive image