# Case con Array

**URL:** <https://foros.velneo.com/t/case-con-array/7951>\
**Category:** Velneo\
**Created:** [30 Marzo, 2015 11:39 UTC](https://foros.velneo.com/t/case-con-array/7951 "2015-03-30T11:39:16Z")\
**Posts on this page:** 4\
**Page:** 1

<div class="post-metadata">

**Author:** ![alexandro-galussio](https://avatars.discourse-cdn.com/v4/letter/a/e9c0ed/32.png) [@alexandro-galussio](https://foros.velneo.com/u/alexandro-galussio)\
**Post date:** [30 Marzo, 2015 11:39 UTC](https://foros.velneo.com/t/case-con-array/7951/1 "2015-03-30T11:39:16Z")

</div>

Estoy comenzando con velneo y necesito una forma de usar variables array como vector para hacer un case. En VB era facil pero aca, se me complico.  
Es para un simple digito verificador.

En VB el codigo es:

```
For I = 1 To 54
    vector(1, I) = Mid(Valor, I, 1)
Next I

For I = 1 To 54
    Select Case I
        Case 1
            vector(2, I) = 1
        Case 2, 6, 10, 14, 18, 22, 26, 30, 34, 38, 42, 46, 50, 54
            vector(2, I) = 3
        Case 3, 7, 11, 15, 19, 23, 27, 31, 35, 39, 43, 47, 51
            vector(2, I) = 5
        Case 4, 8, 12, 16, 20, 24, 28, 32, 36, 40, 44, 48, 52
            vector(2, I) = 7
        Case 5, 9, 13, 17, 21, 25, 27, 33, 37, 41, 45, 49, 53
            vector(2, I) = 9
    End Select
Next I

nSuma = 0
' calculo el DV para 54 dígitos
For I = 1 To 54
    nSuma = nSuma + (Val(vector(1, I)) * Val(vector(2, I)))
Next I
dv1 = Int(nSuma / 2) Mod 10
vector(1, 55) = Trim(Str(dv1))
vector(2, 55) = 5

nSuma = 0

For I = 1 To 55
    nSuma = nSuma + (Val(vector(1, I)) * Val(vector(2, I)))
Next I

dv2 = Int(nSuma / 2) Mod 10
vector(1, 56) = Trim(Str(dv2))

nuevacadena = ""
For I = 1 To 56
    nuevacadena = nuevacadena &amp; vector(1, I)
Next I

```

Alguien podra ayudarme???

---

<div class="post-metadata">

**Author:** ![manuel.rd](https://yyz1.discourse-cdn.com/flex035/user_avatar/foros.velneo.com/manuel.rd/32/3508_2.png) [@manuel.rd](https://foros.velneo.com/u/manuel.rd)\
**Post date:** [30 Marzo, 2015 15:38 UTC](https://foros.velneo.com/t/case-con-array/7951/2 "2015-03-30T15:38:20Z")

</div>

Buenas,  
en Velneo no existe el select o Switch pero puedes crearte un script javascript y usarlo en una función.  
Incluso más fácil, creas una función y en el mismo set Retorno creas la función en javascript y pasas el código de [vb.net](http://vb.net) a javascript

---

<div class="post-metadata">

**Author:** ![alexandro-galussio](https://avatars.discourse-cdn.com/v4/letter/a/e9c0ed/32.png) [@alexandro-galussio](https://foros.velneo.com/u/alexandro-galussio)\
**Post date:** [30 Marzo, 2015 19:07 UTC](https://foros.velneo.com/t/case-con-array/7951/3 "2015-03-30T19:07:48Z")

</div>

Como paso de [vb.net](http://vb.net) a javascript?

---

<div class="post-metadata">

**Author:** ![manuel.rd](https://yyz1.discourse-cdn.com/flex035/user_avatar/foros.velneo.com/manuel.rd/32/3508_2.png) [@manuel.rd](https://foros.velneo.com/u/manuel.rd)\
**Post date:** [30 Marzo, 2015 23:07 UTC](https://foros.velneo.com/t/case-con-array/7951/4 "2015-03-30T23:07:26Z")

</div>

Buenas, me refiero a que tendrás que hacer el mismo algotirmo, código, en javascript. Te será más fácil de implementar que con Velneo nativo.