SoloCodigo

Una vez mas gracias por todas las aportaciones anteriores me han servido mucho...

Tengo mas problemas con los arrays que con las cadenas...

Hice un tex1.text donde almaceno mi cadena de caracteres y un text2.text donde almaceno el resultado.

Para obtener el resultado tengo que hacer ciertas comparaciones con respecto a este cuadro:

   1   2   3   4   5
1   L   O   R   E   N
2   A   B   C   D   F
3   G   H   I/J   K   M
4   P   Q   S   T   U
5   V   W   X   Y   Z


Primero hay que dividir la cadena del text en pares,y si en uno de los pares se repite la letra o caracter se le agrega la "x" entre las dos, y si es necesario se agrega la "x" al final paracmpletar el digrafo, ejemplo:

CERRAR, esto quedaría asi  sin "x"  (CE) (RR) (AR)...ahora con "x" (CE) (RX) (RA) (RX).

las condiciones para :

  a) Si ambas letras están en la misma fila, son reemplazadas por la letra que queda a la derecha de cada una de ellas. (ejemplo: RE, la R= E, la E=N)

  Si una de las letras está al final de la fila, es reemplazada por la letra que hay al principio de la fila. (ejemplo: NE, la N=L, la E=N)

  c) Si ambas letras están en la misma columna, son reemplazadas por la letra que hay debajo de cada una de ellas. (ejemplo: LA, la L=A, la A=G)

  d) Si una de las letras está en la parte inferior de la columna, es reemplazada por la letra de la parte superior de la columna: (ejemplo: ZU, la Z=N, la U=Z)

  e) Si las letras del dígrafo no están ni en la misma fila ni en la misma columna, entonces:

          Para codificar la primera letra, hay que mirar en su fila hasta llegar a la columna que contiene la segunda letra; la letra que hay en esa intersección reemplaza a la primera letra. (ejemplo: OX, la (O,X)=R)

          Para codificar la segunda letra, mirar en su fila hasta llegar a la columna que contiene a la primera letra, la letra que hay en la intersección reemplaza a la segunda letra. (ejemplo: OX, la (X,O)=W)

Quedaría entonces: la O=R y la X=W.


EJEMPLO: Si codificamos CERRAR,

en pares: (CE) (RX) (RA) (RX)

codificado: (DR)(CR)(LC)(CR) o DRCRLCCR

Para todoesto hice el siguiente codigo pero no me salio:

Option Base 1
Dim cuadrado(5, 5) As String
Dim cadena, X

Private Sub Command1_Click()

cuadrado(1, 1) = "L"
cuadrado(1, 2) = "O"
cuadrado(1, 3) = "R"
cuadrado(1, 4) = "E"
cuadrado(1, 5) = "N"
cuadrado(2, 1) = "A"
cuadrado(2, 2) = "B"
cuadrado(2, 3) = "C"
cuadrado(2, 4) = "D"
cuadrado(2, 5) = "F"
cuadrado(3, 1) = "G"
cuadrado(3, 2) = "H"
cuadrado(3, 3) = "I" & "J"
cuadrado(3, 4) = "K"
cuadrado(3, 5) = "M"
cuadrado(4, 1) = "P"
cuadrado(4, 2) = "Q"
cuadrado(4, 3) = "S"
cuadrado(4, 4) = "T"
cuadrado(4, 5) = "U"
cuadrado(5, 1) = "V"
cuadrado(5, 2) = "W"
cuadrado(5, 3) = "X"
cuadrado(5, 4) = "Y"
cuadrado(5, 5) = "Z"

cadena= text1.text

X= len (cadena)
For I = 1 To X

.....aqui ya no se como meter las condiciones y comparar caracter a caracter en mi text1 con los valores del array....

End Sub

Si me pudieran orientar se los agradecería

hola nuevamente....

tengo otra duda con los caracteres...


Private Sub Command1_Click()

cadena= txt1.text

X = Len(cadena)

txt2.Text = X

End Sub


mi cadena es ESTUDIOS, tengo en total 8 caracteres, como le hago para imprimir en un txt3.text primero todas las posiciones impares y luego los pares

de tal manera que en mi txt3.text quede de esta manera:

ETDOSUIS

 y so lo hago con un array, como mando a imprimir las posiciones impares y luego las impares??

ingreso una cadena de caracteres en un text, luego leo cuantos caracteres tiene con el len, y mi pregunta es ¿como le hago para recorrer esa cadena comparando caracter por caracter de tal manera que me cambie el valor real por otro de cada uno de los caracteres?

es decir la  A=D, la B=E, y asi sucesivamente con cada letra de la cadena de caracteres, para eso tengo una formula que me toma el resto de una division (Mod)...

chequen....

A   B   C   D   E   F   G   H   I   J   …   Z
0   1   2   3   4   5   6   7   8   9   …   26

mi cadena en el text es:

FEA

comparando cada caracter con la formula: y=(caracter+3) Mod 27

F=5     entonces   y=(5+3)Mod 27... y=8...entonces para F la letra seria I
E=4     emtonces y=(4+3)Mod 27... y=7...entonces para E la letra H
A=0     emtonces y=(0+3)Mod 27... y=7...entonces para E la letra A

la cadena que apareceria en mi siguiente text seria: IHA

utilice el len para contar cuantos caracteres tengo...como le ago para lo anterior


modulo = 27

longitud = Len(txt1.Text)

For I = 1 To longitud
siguiente = Mid(txt1.Text, I, 1)

operacion = (caracter + 3) Mod modulo

Next I

  txt2.Text = operacion
 
End Sub