martes, 15 de junio de 2010

Aplicación 7: Cómo saber el codigo Ascii de una letra o número con Visual Basic. Net

Aplicación de mucha utilidad a la hora de querer saber el código ASCII de cualquier letra, símbolo y número. El formulario es el siguiente:



El código esta desarrollado en el botón Aceptar:

[sourcecode language="vb"]
Dim Texto, Letra As String
Dim x, valor As Integer

Texto = Trim(txtTexto.Text)
For x = 1 To Len(txtTexto.Text)

Letra = Microsoft.VisualBasic.Mid(txtTexto.Text, x, 1)
valor = Asc(Letra)
txtAscii.Text = valor.ToString

Next
[/sourcecode]

Si quieres descargar la aplicación click AQUI

Código ASCII de letras minúsculas y mayúsculas

  • 097 a - 65 A

  • 098 b - 66 B

  • 099 c - 67 C

  • 100 d - 68 D

  • 101 e - 69 E

  • 102 f - 70 F

  • 103 g - 71 G

  • 104 h - 72 H

  • 105 i - 73 I

  • 106 j - 74 J

  • 107 k - 75 K

  • 108 l - 76 L

  • 109 m - 77 M

  • 110 n - 78 N

  • 241 ñ - 241 Ñ

  • 111 o - 79 O

  • 112 p - 80 P

  • 113 q - 81 Q

  • 114 r - 82 R

  • 115 s - 83 S

  • 116 t - 84 T

  • 117 u - 85 U

  • 118 v - 86 V

  • 119 w - 87 W

  • 120 x - 88 X

  • 121 y - 89 Y

  • 122 z - 90 Z


Código ASCII de los Números

  • 48  0

  • 49  1

  • 50  2

  • 51  3

  • 52  4

  • 53  5

  • 54  6

  • 55  7

  • 56  8

  • 57  9


Clic AQUI para poder ver el código ASCII de muchos otros caracteres. Recuerda que estos valores  o códigos no son los que hacemos con el ALT de nuestro teclado.

9 comentarios:

Ander dijo...

Hola,

Es un buen ejemplo, pero si me lo permites te voy a hacer una sugerencia.

Dices que es Visual Basic .NET y usas las funciones de Visual Basic 6 que estan en el espacio de nombres 'Microsoft.VisualBasic'

La mayoría de los programadores de VB.NET intentan no utilizar estas funciones, por encontrarse ya obsoletas y prefieren usar las que trae .NET en sus objetos string (por ejemplo)

Usando los métodos de la clase string de .NET, tu codigo podria ser algo así:

Dim Texto, Letra As String
Dim x, valor As Integer
Texto = txtTexto.Text.Trim
For x = 1 To txtTexto.Text.Length
Letra = txtAscii.Text.Substring(x, 1)
valor = Asc(Letra)
txtAscii.Text = valor.ToString
Next

Sin más. Es solo una sugerencia.

Saludos

Enator dijo...

Hee gracias por la sugerencia... la verdad me gusta!! esta me la echo a la bolsa! Gracias!! Salu2...

Sila dijo...

กำจัดปลวก
กำจัดแมลง

Volkodlak dijo...

necesito saber el codigo ascci de abajo - arriba - derecha - izquierda :/ y no los encuentro por ninguna parte!!!

prinzis dijo...

cual es la formula para transformar un numero al codigo aschii en excel

cejo dijo...

necesito saber es para validar que si es una si solo es numérico y digiten un una letra o un signo les aparezca un error

javi dijo...

chr(variable)
y para leerla asc(variable)
por ej: range ("a1")=asc(64)
da un arroba

giancarlo guerra dijo...

me fue de mucha ayuda

giancarlo guerra dijo...

gracias