Proyecto Tecnología e Informática Informática Uso De Botones De Radio, Cajas De Cheque
Uso De Botones De Radio, Cajas De Cheque
Publicado el 31 Mayo de 2010
Autor: Jorge Armando Hernández
Descripción
Crear una aplicación donde se colocará un groupBox y dentro de éste se coloocan tres botones de radio:- El primer botón de radio su etiqueta dirá: Rojo
- El seguno botón de radio su etiqueta dira: Amarillo
- El tercer botón de radio su etiqueta dirá: Verde
A la vez, se ubicará otro control groupBox y tres cajas de cheque con las leyendas:
- Mouse
- MoDem
- Sonido
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:
- Con la leyenda Inmediato
- Con la leyenda Manual
LABORATORIO III
USO DE:
: Botones de Radio
: Caja de Cheque
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.ClickLabel2.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.CheckedChangedIf optInme.Checked Then
btnEstablece_Click(sender, e)
End If
End Sub
End Class
Ficha técnica
Área:Tecnología e Informática
Asignatura:Informática
Edad: - No hay restriccion de edad
Duración:
Herramientas:
Auto Aplicaciones
Hojas de cálculo
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
Recursos
Recursos:
- PC
- Visual BAsic 2008
- Cuaderno de clase de programación
- Cuaderno de clase de laboratorio
Requisitos
.Proceso
Crear una aplicación donde se colocará un groupBox y dentro de éste se coloocan tres botones de radio:- El primer botón de radio su etiqueta dirá: Rojo
- El seguno botón de radio su etiqueta dira: Amarillo
- El tercer botón de radio su etiqueta dirá: Verde
A la vez, se ubicará otro control groupBox y tres cajas de cheque con las leyendas:
- Mouse
- MoDem
- Sonido
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:
- Con la leyenda Inmediato
- Con la leyenda Manual
LABORATORIO III
USO DE:
: Botones de Radio
: Caja de Cheque
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.ClickLabel2.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.CheckedChangedIf optInme.Checked Then
btnEstablece_Click(sender, e)
End If
End Sub
End Class
Actividades 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
Actividades Estudiante
.Evaluación
.Notas
.*Nota: toda la información que aparece en los Proyectos de Clase y WebQuest del portal educativo Eduteka es creada por los usuarios del portal.