miércoles, 26 de octubre de 2011

Tema: Control Option Button en Visual Basic 6.0


Se utiliza para presentar al usuario un conjunto de opciones mutuamente excluyentes entre si, es decir, si el usuario selecciona un componente OptionButton todos los demás componentes OptionButton en el formulario, se deseleccionan solos.
Su propiedad Caption es la que identifica el propósito del botón, y su propiedad Value es la que refleja el cambio (True,False), es decir, si el botón está seleccionado o no. El evento click es activado automáticamente cada vez que es seleccionado el OptionButton por el usuario.
Es muy importante recordar que cuando el usuario selecciona un OptionButton, todos los demás OptionButton en el objeto(forma o ventana) son deseleccionados automáticamente, esto es, por que dos OptionButton son mutuamente excluyentes entre si.
Esta ultima situación deberá resolverse por parte del programador. Por ejemplo en un programa donde el usuario debe seleccionar uno de entre dos sexos y uno de entre cinco municipios, en este caso se ocupan ocho OptionButton, pero como todos son mutuamente excluyentes entre si, cuando el usuario seleccione uno de ellos, todos los demás se desmarcan automáticamente.
Para resolver este problema se deberá usar el componente de agrupamiento FRAME.
De esta manera se deberá encerrar en su propio Frame todos los OptionButton lógicos, es decir, en un Panel los de sexo, en otro Panel los de municipios, etc.
De esta manera Visual Basic los evalúa por separado y se puede tener seleccionado un OptionButton en cada FRAME.


Para programar el control Option Button simplemente se hace doble click en este, y el código mostrará por defecto el evento Click.



      Private Sub Option1_Click()
      ' Acciones a realizar cuando el Option Button sea seleccionado.
      End Sub



También pueden programarse mediante la sentencia IF. Por ejemplo mediante un botón se necesita saber cual opción está seleccionada.
     Private Sub Command1_Click()
    If Option1.Value = True Then
    ' Acciones a realizar cuando el Option Button1 sea seleccionado.   
    Else If Option2.Value = True Then 
    ' Acciones a realizar cuando el Option Button2 sea seleccionado.
     End If

Ejercicios:

1 Desarrollar una calculadora sencilla en Visual Basic que permita realizar las operaciones básicas entre 2 números. El usuario debe seleccionar la operación por medio de un Option Button.

2.Desarrollar un convertidor de monedas en Visual Basic 6.0. Se debe convertir de Pesos a: Dollar, Euro, Yen y Bolívar. El usuario debe seleccionar la moneda por medio de un Option Button.

3. Desarrollar un convertidor de unidades de longitud. Se debe convertir de metros a : centímetros, milímetros, kilómetros, pies y pulgadas. El usuario debe seleccionar la unidad de longitud por medio de un Option Button.

4. Desarrollar un convertidor de temperaturas en Visual Basic 6.0. Se debe convertir grados Celsius a : Fahrenheit y a Kelvin. El usuario debe seleccionar la unidad de temperatura por medio de un Option Button.

5. Desarrollar un cuestionario en Visual Basic con 6 preguntas y 4 opciones de respuesta en cada una. Mostrar un mensaje en pantalla dependiendo si el usuario selecciona la respuesta correcta o no en cada una de las preguntas.