Convertir caracter a ASCII

[X-TN]

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 [Seleccionar] Expandir

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

Agradeceria cualquier ayuda
Salu2

[sch3m4]

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.

[FaiF (A¥åHøRå)]

La función Asc te devuelve el valor ASCII de la letra o número.

Código [Seleccionar] Expandir

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 

[X-TN]

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 

[sch3m4]

sacado de la ayuda de vb:

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

[FaiF (A¥åHøRå)]

Código [Seleccionar] Expandir

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 

[soplo]

Hola

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 [Seleccionar] Expandir

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