El Guru Programador
Usuario DESCONOCIDO | Registrate Gratis | Usuarios Registrados
Foro de Visual Basic/VB.NET
Foros del Guru > Visual Basic/VB.NET
Usuario Palindromo
Desconocido
Enviado - 14/10/2004
 
Hola, alguien sabria decirme como hacer un programa en visual basic en el que al entrar una frase o palabra en un TextBox me dijera si esta es un palindromo o no?
Muchas gracias!
 
MikelUgarte
4 Mensaje(s)
Enviado - 14/10/2004
 
Prueba esto:

Dim Frase as string
Frase = TextBox.Text.Replace(" ", "")

If Frase.ToUpper = StrReverse(Frase).ToUpper Then
MessageBox.Show(TextBox.Text & " es un palindromo")
Else
MessageBox.Show(TextBox.Text & " NO es un palindromo")
End If

De todas formas, me voy a permitir darte un consejo. Cuando vayas a realizar una consulta en el foro procura ser claro en lo que quieres preguntar, es decir, seguramente más de una persona habrá visto tu mensaje pero no sabrá lo que es un palindromo ... o sea, que seria mejor que en tu planteamiento hubieses explicado lo que es palindromo.

Saludos desde Euskal Herria.

Mikel
 
Desconocido
Enviado - 14/10/2004
 
Okis, tiens razon, pero es la primera vez que entro y no sabia que tenia q explicarlo.
Muchas gracias por tu ayuda.
 
Desconocido
Enviado - 15/10/2004
 
Perdona, esta funcion no me vale porque el reverse y eso no lo hemos usado aun.
Lo que nos dio para poder hacer este ejercicio es el mid(cadena,posicion,nºcaracteres a extraer), tambien dio el strcmp(cadena1,cadena2). Y el ejercicio lo que tiene que hacer es que mientras no se aprete el intro seguimos introduciendo palabras.
Por cierto, un palindromo es aquella frase o palabra que se lee igual de izquierda a derecha que de derecha a izquierda. Por ejemplo: oso.
Por favor, podriais ayudarme a acer este ejerciciocon las pautas que he dado?¿
Muchas gracias!!
 
Desconocido
Enviado - 15/10/2004
 
¿En q lenguaje tienes q hacer el programa C o Visual?
 
MikelUgarte
4 Mensaje(s)
Enviado - 15/10/2004
 
¿Estamos hablando de .NET o de VB 6.0?
 
Desconocido
Enviado - 18/10/2004
 
Estoy hablando de visual basic 6.0
 
 

 

Contactos myStudio Network