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:
num = numero.Text
Select Case num
Case 0
x = 48
Case 1
x = 49
' etc....
End Select
ascii.Text = x
Agradeceria cualquier ayuda
Salu2
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.
La función Asc te devuelve el valor ASCII de la letra o número.
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 ;)
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
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
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 ;)
Hola
CitarHola, 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 '-'
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