Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

Visual Basic - Convertir de ascii a caracter

Life is soft - evento anual de software empresarial
  Imprimir  
Vista:
Me gusta: Está pregunta es útil y esta clara
0
No me gusta: Está pregunta no esta clara o no es útil
 
Asunto:

Convertir de ascii a caracter

Autor:Rodrigo (3 intervenciones)
Fecha:13/04/2008 20:12:23
Hola necesito ayuda, como puedo convertir de codigo ascci al carater. tambien necesito encriptar en base a la caja de julio cesar
Responder
información
Otras secciones de LWP con contenido similar...
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:Convertir de ascii a caracter

Autor:alejandro (50 intervenciones)
Fecha:14/04/2008 11:16:36
Hola, mira a ver si te sirve esto para lo de la caja de julio. es con dos textbox un list y un boton

Private Sub Command1_Click()
Dim LongitudCadena As Single 'para calcular la longitud de la cadena q tiene q ser un cuadrado perfecto
Dim elCuad As Integer
Dim cadena As String
Dim QQ As String
Dim n As Integer
Dim p As Integer

List1.Clear

cadena = Replace(Text1.Text, " ", "", 1) 'eliminamos los espacios

LongitudCadena = Sqr(Len(cadena))

If Int(LongitudCadena) <> LongitudCadena Then ' miramos si la longitud de la cadena es un cuadrado y si no calculamos
LongitudCadena = Int(LongitudCadena) + 1 'de cuanto debe ser

End If
elCuad = LongitudCadena
LongitudCadena = LongitudCadena ^ 2

cadena = cadena & String((LongitudCadena - Len(cadena)), "g") 'rellenamos las cadena para q tenga la longitud adecuada

For n = 1 To elCuad
QQ = ""
For p = 0 To elCuad
QQ = QQ & Mid(cadena, n + (elCuad * p), 1)
Next
List1.AddItem QQ
Next
QQ = ""
For n = 0 To List1.ListCount
QQ = QQ & List1.List(n)
Next
Text2.Text = QQ
End Sub

lo del codigo asccii es la funcion chr() o algo asi

nos vemos
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:Convertir de ascii a caracter

Autor:Rodrigo (3 intervenciones)
Fecha:14/04/2008 15:00:55
Gracias eso es lo que buscaba
Comentar
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:

RE:Convertir de ascii a caracter

Autor:felipe (1 intervención)
Fecha:09/07/2008 23:00:11
intenten realizar ejemplos un poco mas detallados, en los que principiantes como yo se nos facilite un poco mas..porfavor
Comentar