#include <stdio.h>
#include <string.h>
#define TAMANIO 81
 
//Declaracion de Funciones***************************************************
void Introducir_frase (char frase[])
 {
 printf ("introducir una frase: ");
 gets (frase); fflush (stdin);
 }
 
int Comprobar_frase (char frase[])
 {
 int longitud=strlen(frase);
 int i=0;
 while (i<=longitud/2 && frase[i]==frase[longitud-1-i])
  {
  i++;
  }
 if (i>longitud/2)
   return 1;
   else
   return 0;
}
 
//F.Ppal*********************************************************************
int main (void)
{
char palindroma[81];
Introducir_frase (palindroma);
if (Comprobar_frase (palindroma))
 printf ("Dicha frase es palindroma.");
else
  printf ("Dicha frase no es palindroma.");
getchar();
return 0;
}
 

Private Sub E2C()
On Error GoTo fallo
Text1.Text = f
-------> Text2.Text = cifrar(Text1.Text, "XsG5") <------- desde aqui  
f = Text1.Text
Open "C:\xxxxxxx.txt" For Output As #135
Write #135, f
....

Text1.Text=f 'primero text1 es igual a f
Text2.Text = cifrar(Text1.Text, "XsG5") 'Text2 almacena el texto cifrado
f=Text1.Text '????? machacas f con lo mismo que tenía antes?, creo que aquí va f=Text2.Text
 
Open "C:\xxxxxxx.txt" For Output As #135
Write #135, f

Write #135, f

Option Explicit
Dim data As String
Dim vdata As Variant
Dim cont, i, pos As Integer
 
Private Sub Form_Load()
RichTextBox.HideSelection = False 'En false para que no se deseleccione al perder el foco
Call contar 'llamada a la función contar
End Sub
 
Private Sub Command1_Click()
ProgressBar1.Max = Len(data)
If pos < ProgressBar1.Max Then
    ProgressBar1.Value = pos
Else
    ProgressBar1.Value = ProgressBar1.Max
End If
If i < cont Then
    RichTextBox.SelStart = pos 'Empezamos a seleccionar en la posicion pos
    RichTextBox.SelLength = Len(vdata(i))  'SelLength es el tamaño de vdata(i)
    pos = pos + (Len(vdata(i)) + 1)  'incrementamos selstart +1 para que no seleccione el espacio
    i = i + 1  'incrementamos i (siguiente palabra)
Else
    i = 0 'Cuando se hayan seleccionado todas las palabras volvemos a la primera
    pos = 0
End If
End Sub
 
Function contar() 'Esta función cuenta cuantas palabras tiene el texto
Dim i As Integer
data = RichTextBox.Text  'data almacena el contenido del texbox
vdata = Split(data, " ")   'separamos data por cada espacio que tenga
 
For i = 1 To Len(data)      'desde el primer caracter hasta el último
    If Mid(data, i, 1) = " " Then   ' si el caracter es un espacio sumamos 1 a cont
        cont = cont + 1
    End If
Next i
cont = cont + 1    ' Al final no hay espacio así que para que seleccione la última palabra sumamos uno al final del proceso
End Function

ProgressBar1.Max = Len(data) 'El valor máximo es el total de caracteres
If pos < ProgressBar1.Max Then
    ProgressBar1.Value = pos 'El valor es igual al número de caracter por el que va
Else
    ProgressBar1.Value = ProgressBar1.Max 'Si se pasa del límite ProgressBar1.Value es igual al máximo y ya está
End If
 

For i=1 To Len(RichTextBox.Text) 'Len(RichTextBox.Text) devuelve el número de caracteres que contiene el RichTextBox
       If Mid(RichTextbox.Text, i, 1) = " " Then
            cont = cont + 1
       End If
Next i

Option Explicit
Dim data As String
Dim vdata As Variant
Dim cont, i, pos As Integer
 
Private Sub Form_Load()
RichTextBox.HideSelection = False 'En false para que no se deseleccione al perder el foco
Call contar 'llamada a la función contar
End Sub
 
Private Sub Command1_Click()
If i < cont Then 
    RichTextBox.SelStart = pos 'Empezamos a seleccionar en la posicion pos
    RichTextBox.SelLength = Len(vdata(i))  'SelLength es el tamaño de vdata(i)
    pos = pos + (Len(vdata(i)) + 1)  'incrementamos selstart +1 para que no seleccione el espacio
    i = i + 1  'incrementamos i (siguiente palabra)
Else
    i = 0 'Cuando se hayan seleccionado todas las palabras volvemos a la primera
    pos=0
End If
End Sub
 
Function contar() 'Esta función cuenta cuantas palabras tiene el texto
Dim i As Integer
data = RichTextBox.Text  'data almacena el contenido del texbox
vdata = Split(data, " ")   'separamos data por cada espacio que tenga
 
For i = 1 To Len(data)      'desde el primer caracter hasta el último
    If Mid(data, i, 1) = " " Then   ' si el caracter es un espacio sumamos 1 a cont
        cont = cont + 1
    End If
Next i
cont = cont + 1    ' Al final no hay espacio así que para que seleccione la última palabra sumamos uno al final del proceso
End Function