Make your own free website on Tripod.com
parte 7

El siguiente ejercicio cuenta con dos frames, uno de ellos llamado "Dirección" y el otro "Intervalo". Los frames nos permiten seleccionar dos botones de radio. Normalmente solo es posible seleccionar un boton de radio, para seleccionar dos, debemos tener 2 grupos de botones y esto se logra mediante por lo menos un frame.
Al oprimir varias veces el botón "Cambiar" (btncambiar), si está seleccionado el botón de radio "subir" (brsubir) en la caja de texto (T) aparecerán números en forma incremental. Por el contrario si está seleccionado el botón "bajar" los números irán decreciendo en su valor. El botón de radio 1 (br1) del frame intervalo, nos permitirá que los cambios en los valores numéricos en la caja de texto sean de 1 en 1. El botón 2(br2) producirá cambios de 2 en 2, mientras que el botón 5(br5) nos hará ver saltos de 5 en 5.

Private Sub btncambiar_Click()
If br1.Value Then
I = 1
End If
If br2.Value Then
I = 2
End If
If br5.Value Then
I = 5
End If
If brsubir.Value Then
T.Text = Val(T.Text) + I
Else
T.Text = Val(T.Text) - I
End If
End Sub
Por defecto, si no se indica otra cosa el valor de la propiedad Value es "True". Esto significa que no es necerio escribir por ejemplo: "if br.Value = True Then....." En realidad con solo escribir "if Br.Value Then...." para lograr el mismo resultado.
Vamos a conocer el bucle "For - Next"