Extraer caracteres asignarles un valor y sumarlos

Hola Amigos expertos!
¿Alguno me podría decir el código para asignarle un valor a cada letra escrita en el teclado?
Por ejemplo si yo escribo en un textcuadro CARLOS MORENO, que extraiga la C, luego que extraiga la A, luego la R... Y así sucesivamente.
Pero también, que vaya sumando el valor de cada letra, por ejemplo: la C vale 6, la A vale 4, la R vale 8... Que vaya sumando 6+4+8... Y así sucesivamente hasta terminar el nombre completo.
Ej.
C  A  R  L  O  S      M  O  R  E  N  O  = 64
6+4+8+9+2+4  +  5+2+8+5+9+2  = 64

1 Respuesta

Respuesta
1
te voy a ayudar pero puedo preguntar PARA Q HACES ESTOOOOOOOOOOOOOOOO
x=len(alltrim(thisform.text1.value))
valor=0
for i=1 to x
    letra=upper(subs(alltrim(thisform.text1.value),i,1))
    do case
         CASE letra='A'
             valletra=4
         CASE letra='C'
             valletra=6
         CASE letra='R'
             valletra=8
         *** aqui podes poner el abcesdario completo si quieres
         *** no me puedo imaginar para q cuernos quieres hacer esto
    other wise
            velletra=0
    endcase
    valor=valor+valletra
Endfor
Messagebox('el valor del nombres es '+alltrim(str(valor)))
Listo wey
jajajaja!! Muchas Graciaas !!! xD enserio muchas gracias
esque estoy haciendo un programa para mi mamá, para sacar la numerología hebrea de los nombres, o sea el valor numérico del nombre.... y ocupaba saber eso porque apenas soy una principiante en visual...
Muchaass Graaciaaaaasssssss!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
xD  !! hug*

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas