Páginas

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:

  1. 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

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

    ResponderEliminar
  3. กำจัดปลวก
    กำจัดแมลง

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

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

    ResponderEliminar
  6. 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

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

    ResponderEliminar