Make your own free website on Tripod.com
parte 12
Volver a declaracion de variables Ir al Indice Ir a Procedimientos

Veamos un ejemplo con declaración de Variables

Option Explicit

Private Sub Command1_Click()
Dim N As Integer
N = CInt(TxtN.Text)
If N =1 Then
Txtc.Text = "uno"
End If
If N = 2 Then
Txtc.Text = "dos"
Else
Txtc.Text = "resultado desconocido"
End If
End Sub

La indicación Option Explicit nos indica que debemos declarar las Variables, que en este caso será Dim N As Integer. Tal cual vimos anteriormente CInt nos convierte a entero. El resto es conocido.

En el siguiente ejercicio se ha trabajado con dos objetos Shape. Uno de ellos es un cuadrado blanco (Shape2), el otro es un arreglo de shape constituido por 7 puntos negros (S). Un cuadro de texto (Tb) nos permite poner números del 0 al 6, y un botón btnmostrar, nos permite mostrar únicamente los shape del arreglo que se correspondan con el número seleccionado.
Option Explicit

Private Sub btnmostrar_Click()
Dim J As Object
Dim I As Integer
Dim N As Integer
For I = 0 To 6
S(I).Visible = False
'coloca todos los shape (S) en invisible
Next
N = CInt(Tb.Text)
'CInt, convierte a entero una cadena de texto
Select Case N
Case 1
S(3).Visible = True
'solo el shape 3 estará visible
Case 2
S(0).Visible = True
S(6).Visible = True
Case 3
S(0).Visible = True
S(3).Visible = True
S(6).Visible = True
Case 4
S(0).Visible = True
S(1).Visible = True
S(5).Visible = True
S(6).Visible = True
Case 5
S(0).Visible = True
S(1).Visible = True
S(5).Visible = True
S(6).Visible = True
S(3).Visible = True
Case 6
For Each J In S
'para cada objeto (variable J) en el arreglo S
J.Visible = True
Next
S(3).Visible = False
End Select
End Sub

Para evitar repetir código se usan los procedimientos, en la próxima veremos cómo utilizarlos.
Volver arriba Volver a declaracion de variables Ir al Indice Ir a Procedimientos