Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: X-TN en 10 Junio 2006, 12:58 pm



Título: Convertir caracter a ASCII
Publicado por: X-TN en 10 Junio 2006, 12:58 pm
Hola, mi intensión era crear un programa donde se inserta una letra o nº. Y que luego una funcion te de su código ASCII, y que apartir del código ASCII te calcule su codigo binario.

No se me había ocurrido mejor cosa, que usar select case, pero esto no tiene mucha ciencia, y supongo que tendra que haber otra manera para que el ordenador te indique el código ASCII de la tecla introducida no?

la forma en la que yo lo hice:

Código:
num = numero.Text
Select Case num
Case 0
x = 48
Case 1
x = 49
' etc....
End Select
ascii.Text = x

Agradeceria cualquier ayuda
Salu2


Título: Re: Convertir caracter a ASCII
Publicado por: sch3m4 en 10 Junio 2006, 13:08 pm
puedes hacer un bucle, recorriendo los 255 codigos ascii, y cuando te den un caracter, comprobar (usando la funcion Chr() ) si Chr(codigo) es igual al caracter, y si lo es, que te muestre el código. Es algo lento, pero no se me ocurre cómo pasar de caracter a ascii en vb.


Título: Re: Convertir caracter a ASCII
Publicado por: FaiF (A¥åHøRå) en 10 Junio 2006, 14:51 pm
La función Asc te devuelve el valor ASCII de la letra o número.

Código:
Label1.Caption = Asc(Text1.Text)

COn ese código si escribieras una A en el textbox te pondría 65 en el label. Ahora ya solo tendrías que pasarlo a binario.

salu2  ;)


Título: Re: Convertir caracter a ASCII
Publicado por: X-TN en 10 Junio 2006, 15:06 pm
Muchas gracias

Ya lo habia hecho con el código que me dejo Lympex
y me ahorré unas cuantas lineas de código xDD

Pero probaré eso que dijiste

Salu2  :D



Título: Re: Convertir caracter a ASCII
Publicado por: sch3m4 en 10 Junio 2006, 17:52 pm
sacado de la ayuda de vb:

Citar
Function Asc(String As String) As Integer
    Miembro de VBA.Strings
    Devuelve el código ANSI del primer carácter de una cadena

Solo te sirve para un caracter, asegúrate de lo que contiene el textbox


Título: Re: Convertir caracter a ASCII
Publicado por: FaiF (A¥åHøRå) en 10 Junio 2006, 17:57 pm
Código:
Dim enascii As String
For i = 1 To Len(Text1.text)
enascii = enascii & Format(Asc(Mid(Text1.Text, i, 1)))
Next i

Con ese código te quedaría en la variable "enascii" el valor ASCII de todos los carácteres del Text1.

salu2  ;)


Título: Re: Convertir caracter a ASCII
Publicado por: soplo en 10 Junio 2006, 19:16 pm
Hola
Citar
Hola, mi intensión era crear un programa donde se inserta una letra o nº. Y que luego una funcion te de su código ASCII, y que apartir del código ASCII te calcule su codigo binario

Pongamos que en text1 vas a ir escribiendo y que en text2 quedarán los binarios de cada caracter tecleado separados por el caracter '-'

Código:
sub text1_keypress(keyascii as integer)
' en keyascii tienes el código ascii de la tecla pulsada
text2=text2 & "-" & ConvertiraBinario(keyascii)
end sub
´

Lo único que necesitas es es convertir un valor a binario que podrias hacerlo mediante el típico algoritmo recursivo de las divisiones sucesivas.

Un saludo