Make your own free website on Tripod.com
- parte 5
Este formulario tiene dos botones (btnbajar y btnsubir) y una caja de texto (N). Un botón funciona como contador sumando y el otro restando. Si se cumple la condición de un valor superior a 10 o menor que 0 deberá aparecer un mensaje de error en una caja de Texto.
Private Sub btnbajar_Click()
N.Text = Val(N.Text) - 1
End Sub
Private Sub N_Change()
If N.Text > 10 Then
MsgBox ("Error número mayor que 10")
End If
If N.Text < 0 Then
MsgBox ("Error número menor que 0")
End If
End Sub
Private Sub btnsubir_Click()
N.Text = Val( N.Text) + 1
End Sub

Este formulario nos permite cargar valores en un cuadro de texto (importe) y tres cajas de verificación (chkd, chkc, chke) permitirán recargar o descontar un porcentaje pre-determinado. Los valores aparecerán en otro cuadro de texto (total). Un botón (btncalcular)activará el evento.
Private Sub btncalcular_Click()
If Chkd.Value = 1 Then
total.Text = Val(importe.Text) - Val(importe.Text) * 5 / 100
End If
If Chkc.Value = 1 Then
total.Text = Val(importe.Text) + Val(importe.Text) * 10 / 100
End If
If Chke.Value = 1 Then
total.Text = Val(importe.Text) - Val(importe.Text) * 10 / 100
End If
End Sub

OTRA FORMA:

Private Sub btncalcular_Click()
total.Text = Val(importe.Text) * (0.95 * Chkd.Value + 1.1 * Chkc.Value + 0.9 * Chke.Value)
End Sub

Para seguir viendo ejercicios,