Mensajes

Esto es una tontería pero bueno...

Código (c) [Seleccionar] Expandir

#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;
}


[EDIT: Novlucker, me parece que te me has adelantado, pero bueno es igual, creo que le hemos dicho más o menos lo mismo, lo de la variable f y lo del text2.text, ala saludos! xD]

Lo llamo asi dentro del form

Código (vb) [Seleccionar] Expandir

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
....

Claro men, no me extraña que no funcione...

Código (vb) [Seleccionar] Expandir

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

Así debería de funcionar, cambia f=Text1.Text por f=Text2.Text y ya está.

Código [Seleccionar] Expandir

Write #135, f

no es print??, no estoy en windows, asi que despue que llege a mi casa le echo un vistaso, yo uso print...

Se puede usar Print, Put, Write... hay varias funciones, cada una es distinta pero pueden servir para este tipo de cosas varias de ellas...

EDIT: Novlucker, me parece que te me has adelantado, pero bueno es igual, creo que le hemos dicho más o menos lo mismo, lo de la variable f y lo del text2.text, ala saludos! xD
Saludos!

¿Y como llamas a la función cifrar?, porque me parece a mí que no la estás llamando con los parámetros correctos y por eso no te funciona bien. Pon la llamada que tú haces a la función a ver si es correcta y sino te ayudamos a corregirla.

Lo del mail es mejor que uses un servidor interno para mandarlo, busca en internet que hay varios ejemplos de como mandar mails sin usar servidores ni programas externos.

Un saludo!

a ver hay una pagina muyy util para verificar fuentes de imagenes, la encontre hace poco xD

http://www.myfonts.com/WhatTheFont/

espero que te sirva a mi me ha ayudado... si no te da la fuente que es, te da una parecida vale? espero que te sirva  Salu2

dime como uso esta pagina para ver que fonts son las de un poster dice que tiene 77 elementos y se limita a 55

Recorta la imagen, que queden sólo las letras que quieres saber su font, así es mucho más fácil, yo he probado una imagen y me decía lo mismo y la he recortado para dejar sólo las letras y ha reconocido la fuente perfectamente.

Está muy bien.

Saludos!

Me alegro que te haya servido de ayuda y hayas aprendido algo nuevo. Ahora a seguir aprendiendo y programando. Y cuando tengas alguna duda ya sabes donde estamos.

Mira como hice yo lo de la barra de progreso, a ver que te parece, es un poco mas corto:

Código (vb) [Seleccionar] Expandir

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

Solo he añadido esto:

Código (vb) [Seleccionar] Expandir

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


Lo que pasa es que mi método hace que la ProgressBar progrese un poco más de golpe que la tuya, pero bueno, igual funciona.

Saludos!

El método que tú pones para contar palabras y el que yo he usado en realidad son parecidos, yo para recorrer todo el texto lo único que hago es un For.

Código (vb) [Seleccionar] Expandir

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

Es sencillo porque con la función Len saco el número de caracteres total del TextBox, luego digo que lo recorra desde el caracter 1 hasta el número total de caracteres.

Luego la función Mid funciona así: Mid(RichTexBox.Text, i, 1)
Es algo así: coge el caracter de la posición i de RichTexBox.Text tomado de 1 en 1.

Así recorres cada caracter y compruebas si el caracter es un espacio, como el espacio siempre separa las palabras, cada espacio que encuentras sumas 1 ya que es una palabra más. Y como tras la última palabra no hay espacio pues al final del proceso le sumo uno más.

Lo de vdata(i) es en realidad un array separado por la función, Split un ejemplo sería:

Dim data as String
Dim vdata as Variant

data="hola|adios|bien|mal"
vdata=Split(data, "|")

La función Split lo que hace es dividir a partir del caracter o caracteres que pongas en la función, es algo así como: Separa lo que hay en data a partir del caracter "|"

Entonces esto daría:

vdata(0) = "hola"
vdata(1) = "adios"
vdata(2) = "bien"
vdata(3) = "mal"

Pues yo he hecho lo mismo pero usando como separador los espacios. Así obtuve cada palabra separada.

Y a la pregunta de si se puede usar este método para otros controles, la respuesta es sí. En labels, en textox, en listbox, en listviews... etc.

Espero haberte aclarado un poco, si no entiendes algo, sólo tienes que preguntarlo.
Saludos!

Yo lo he conseguido hacer, a lo mejor hay una forma más fácil pero bueno aquí te pongo el método que yo he usado:

Código (vb) [Seleccionar] Expandir


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

Seguramente se pueda simplificar pero bueno a lo mejor te sirve como idea

PD: Si no entiendes alguna parte del código puedes preguntarme y te lo explicaré sin problemas.

Saludos!

Y redireccionar los puertos de tu router al puerto por el que se conecta el troyano, sino es imposible que conecte.

[InStr]

Para poner el texto en el lugar correspondiente usa InStr. Para guardarlo en el formato que quieras: Open "ruta del archivo.extension" For Output As #freefile

Investiga un poco, estudia y aprende antes de programar, no pidas que te lo den todo hecho.

Saludos!

No pretendía hacerlo, pretendía que escribieses bien, más que nada porque a lo mejor si la gente ve que te preocupas de escribir bien tu post y le pones empeño a lo que haces quizás te responda mejor ya que se supone que tendrás las mismas ganas de hacer el resto de cosas. Pero si te dedicas a escribir un post corriendo a la ligera, seguro que mucha gente, pensará que eres igual para todo, que lo quieres todo hecho y rápido y no te ayudarán tanto.. al menos yo lo hago así. Una persona que ni siquiera relee o corrige un post antes de enviarlo no se preocupará lo suficiente de aprender como para que yo o muchos otros usuarios le ayuden..

Saludos!