Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: kakinets en 2 Julio 2005, 19:48 pm

Título: Como pasar de letras a numeros
Publicado por: kakinets en 2 Julio 2005, 19:48 pm

Hola a todos a ver q tal me explico...
esta es mi situasion.....
Tengo un tex llamado Text1 otro llamado Text2 y un boton llamado cmd

Lo q yo quiero es q cundo ponga en el tex1 la letra R y presione el boton pase al Text2 cun el numero 1 y hasi con todas las letras hasta terminar....

PD:seria como un codificasion

gracias a Todos ;)

Título: Re: Como pasar de letras a numeros
Publicado por: programatrix en 2 Julio 2005, 20:26 pm

No se mi bien lo que quieres hacer pero bueno.

Código:

dim r as string
r = "1"
if text1 = "r" then
text2 = r
end if

Creo que es esto lo que quieres hacer mas o menos, no??

Título: Re: Como pasar de letras a numeros
Publicado por: maxnet en 2 Julio 2005, 21:05 pm

hola
puedes usar el codigo ascii de cada letra

Código:


dim a as integer
text2.text=""
for a=1 to len(text1.text)
 text2.text=text2.text & asc(mid(text1.text,a,1)) & ""
next a