Case con Array


([N2] alexandro galussio) #1

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 & vector(1, I)
Next I

Alguien podra ayudarme???


([N1] wikan) #2

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 a javascript


([N2] alexandro galussio) #3

Como paso de vb.net a javascript?


([N1] wikan) #4

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.