Conversión a ASCII
Como convierto un carácter a su equivalente en ASCII, porque la función val() solo funciona con números en string y yo necesito convertir una letra a ascii
2 Respuestas
Respuesta de leosoft
1
Para eso tienes simplemente la función Asc(Letra), por ejemplo
Letra = "A"
numeroascii = Asc(letra)
Eso te entregara en "numeroascii" el valor 65 que es el correspondiente a la letra "A"
Letra = "A"
numeroascii = Asc(letra)
Eso te entregara en "numeroascii" el valor 65 que es el correspondiente a la letra "A"
Respuesta de thema3x
1
Pon En un formulario dos Textboxs... uno llamado txtletra1 y el otro Ascii...
Y en el evento Change del textbox llamado txtletra1 pones este código...
cadena = ""
carac = Len(txtletra1)
For I = 1 To carac
cade = cade & " " & Asc(Mid(txtletra1, I, 1)) 'Asc se encarga de devolver el caracter ascii de una letra, con el for logramos que sea de todas en su orden
Next
ascii= cade
Y veras como te muestra el Código Ascii de cada letra que vayas oprimiendo...
Y en el evento Change del textbox llamado txtletra1 pones este código...
cadena = ""
carac = Len(txtletra1)
For I = 1 To carac
cade = cade & " " & Asc(Mid(txtletra1, I, 1)) 'Asc se encarga de devolver el caracter ascii de una letra, con el for logramos que sea de todas en su orden
Next
ascii= cade
Y veras como te muestra el Código Ascii de cada letra que vayas oprimiendo...