Make your own free website on Tripod.com
- Parte 4
En este ejercicio, mediante el botón "Activar/Desactivar"(btnad), la caja de verificación(checka) aparecerá alternativamente activada (=1) y desactivada (=0). Para lograrlo haremos uso de "If", "Then", y "Else".
Private Sub btnad_Click()
If Checka.Value = 0 Then
Checka.Value = 1
Else
Checka.Value = 0
End If
End Sub

En este ejercicio mediante el botón "cambiar"(btncambiar), no solo activamos/desactivamos la caja de verificación A(checka) sino que esta alternará su estado con la caja de verificación B(checkb). Mostramos dos formas de resolver el ejercicio.
Private Sub btncambiar_Click()
If Checka.Value = 0 Then
Checkb.Value = 0
Checka.Value = 1
Else
Checkb.Value = 1
Checka.Value = 0
End If
End Sub
Otra Forma:
Private Sub btncambiar_Click()
Checka.Value = 1 - Checka.Value
Checkb.Value = 1 - Checka.Value
End Sub

Este formulario permite elegir distintos tipos de monitor y también de computadoras, mediante el boton (btncalcular).
Puede elegir entre: Monitor Sony(chksony) 19 a U$S800, Nec(Chknec) 17 a U$S400 y Samsung(chksamsung) 14 a U$S180 y también entre equipos IBM(chkibm) U$S800, Acer(chkibm) U$S700, Compaq(chkcompaq) U$S650. El formulario indica el precio final.(Textprecio)

Private Sub btncalcular_Click()
Textprecio.Text = 0
If Chksony.Value = 1 Then
Textprecio.Text = Textprecio.Text + Val(800)
End If
If Chknec.Value = 1 Then
Textprecio.Text = Textprecio.Text + Val(700)
End If
If Chksamsung.Value = 1 Then
Textprecio.Text = Textprecio.Text + Val(180)
End If
If Chkibm.Value = 1 Then
Textprecio.Text = Textprecio.Text + Val(800)
End If
If Chkacer.Value = 1 Then
Textprecio.Text = Textprecio.Text + Val(700)
End If
If Chkcompaq.Value = 1 Then
Textprecio.Text = Textprecio.Text + Val(650)
End If
End Sub

CONTRASEÑAS
Este formulario nos permite aceptar o rechazar una cadena de caracteres de acuerdo a su coincidencia con una clave previamente establecida. En nuestro caso hemos establecido como clave "1234" (sin las comillas).Debemos escribir la clave en la caja de texto () y activar el evento mediante el botón Aceptar(btnaceptar). Para cancelar el formulario esta el formulario (btncancelar)
Private Sub btnaceptar_Click()
If C.Text = "1234" Then
MsgBox ("contraseña aceptada")
Else
MsgBox ("contraseña equivocada")
End If
End Sub
Private Sub btncancelar_Click()
End
End Sub
Hay más ejercicios,