Interruptores - I

Dentro de un proceso repetitivo, un interruptor o switch consiste en una variable que tomará dos estados: conectado y desconectado; de forma que en función de dicho estado se ejecutará un determinado bloque de código. Veamos un ejemplo en el Código fuente 149.

Sub Main()

Dim Valores() As Integer = {345, 43, 875, 126, 900, 4112}

Dim Interruptor As Integer

Dim Contador As Integer

Dim Cantidad1 As Integer

Dim Cantidad2 As Integer

' inicializar el estado del interruptor

Interruptor = 1

For Contador = 0 To UBound(Valores)

' según el estado del interruptor

' acumular el valor de la posición actual

' del array en una u otra variable

If Interruptor = 1 Then

Cantidad1 += Valores(Contador)

Else

Cantidad2 += Valores(Contador)

End If

' cambiar el estado del interruptor

If Interruptor = 1 Then

Interruptor = 0

Else

Interruptor = 1

End If

Next

End Sub

Código fuente 149