Make your own free website on Tripod.com
3ra.Parte
Volver a Arreglos 2 Ir al Indice Ir a arreglos parte 4
Veamos una forma distinta de realizar el ejemplo del discador telefónico, al que además se han agregado tres botones para realizar las operaciones de potencia btncuadrado, raiz cuadrada btnraiz y borrar btnborrar. Los números del 0 al 9 son parte de un arreglo llamdo btn y un cliclo For-Next. Como el valor Index es quién le da el nombre al Caption de cada botón del arreglo, es importante que el último botón (después del 9) sea index(0) y que index(1) sea el primero de arriba a la izquierda, siguiendo luego en orden correlativo..
El Caption de los botones irá indicado en el formulario y por lo tanto solo se verá en tiempo de ejecución.
Private Sub Form_Load()
For I = 0 To 9
btn(I).Caption = I
'I variará de 0 a 9 y el valor de Caption irá también variando con el índice del botón
Next
End Sub
Private Sub btnraiz_Click()
Tb.Text = Sqr(Val(Tb.Text))
End Sub
Private Sub btncuadrado_Click()
Tb.Text = Val(Tb.Text) ^ 2
End Sub
Private Sub btnborrar_Click()
Tb.Text = ""
End Sub
Private Sub btn_Click(Index As Integer)
Tb.Text = Tb.Text & btn(Index).Caption
End Sub

En el ejercicio siguiente, utilizaremos un formulario con varios arreglos. En la parte superior izquierda habrá una etiqueta y en Caption dirá "Código" Un arreglo con 5 cajas de texto llevarán el nombre TbC. A continuación de la etiqueta "Código" habrán hacia la derecha 4 etiquetas más, y en Caption dirán Descripción, Precio, Cantidad y Subtotal respectivamente. Debajo de la etiqueta "Descripción", habrá otro arreglo de 5 cajas de texto TbD, de "Precio" otro arreglo llamado TbP, de "Cantidad", TbCant y de "SubTotal" TbSub. Habrá también un botón btnCalcular y tres cajas de texto más: Tbst, TbIva, TbNeto con sus respectivas etiquetas SubTot, IVA, Neto.
Al colocar en alguna de las cajas de texto TbC un número de código y presionar el botón btnCalcular se irán completando las respectivas cajas de texto "Descripción"y "Precio". Si además, se indica una cantidad, se completarán también las cajas de texto del subtotal, la de subtot, el Iva y el neto.
Private Sub btncalcular_Click()
For I = 0 To Tbc.UBound
If Val(Tbc(I).Text) = 10 Then
'ciclo If que determina el texto y el precio de acuerdo al código
Tbd(I).Text = "mouse"
Tbp(I).Text = 5
End If
If Val(Tbc(I).Text) = 20 Then
Tbd(I).Text = "monitor"
Tbp(I).Text = 210
End If
If Val(Tbc(I).Text) = 30 Then
Tbd(I).Text = "teclado"
Tbp(I).Text = 20
End If
If Val(Tbc(I).Text) = 40 Then
Tbd(I).Text = "impresora"
Tbp(I).Text = 210
End If
If Val(Tbc(I).Text) = 50 Then
Tbd(I).Text = "disco"
Tbp(I).Text = 90
End If
Tbsub(I).Text = Val(Tbp(I).Text) * Val(TbCant(I).Text)
'determina el valor en Tbsub dependiente del precio y la cantidad.
Next
Tbst.Text = 0
For I = 0 To Tbsub.UBound
Tbst.Text = Val(Tbsub(I).Text) + Val(Tbst.Text)
'Acumula los valores que ya existan en Tbst, sumándoles los valores de Tbsub.
Next
TbIva.Text = 0.21 * Val(Tbst.Text)
'Calcula el 21%
Tbneto.Text = CCur(TbIva.Text) + CCur(Tbst.Text)
'Ccur transforma a formato moneda.
End Sub

Los arreglos pueden usarse de muchas formas, veremos en la próxima un arreglo con colores
Volver a Arreglos 2 Ir al Indice Ir a arreglos parte 4