Ayuda

[Alex1000]

Iniciado por Insomnia

Hola

A ver si este código te sirve para adaptarlo a tus necesidades:

Código:

Dim letra As String
letra = "A"

For i = 1 To 55
    Text1.Text = Text1.Text & " " & letra
    letra = Chr(Asc(letra) + 1)
    If letra = "[" Then letra = "A"
Next i

--Saludos--

Intente con lo que me dijiste, pero no cambia nada

El programa tiene 3 TextBox, uno donde se escribe un texto para cifrar, otro para decir el desplazamiento que quieres en el alfabeto ( por ejemplo, si quieres que la a sea una d, pondrás 3) y el otro Text Box donde se escribe el text cifrado

Mira, este es mi codigo:

Código:

Dim  longitud As integer
Dim i As integer
Dim desplazamiento As byte
Dim c As byte


desplazamiento = Me.TextBox3.Text
longitud = Len(Me.TextBox1.Text)
Me.TextBox2.Text = ""
For i = 1 to longitud
      c = Asc(Mid(Me.TextBox1.Text,i,1))
      c= c + desplazamiento
      Me.TextBox2.Text = Me.TextBox2.Text + Chr (c)

Next i

Gracias por contestar!