| Usuario |
Programar en visual basic 6.0 |
Desconocido
|
| Enviado - 22/10/2004 |
| |
Hola, he escrito ya antes, en un ejercicio llamado palindromo; pero no me han contestado y es que realmente tengo dudas en este programa. Vuelvo a comentar a ver si alguien me puede ayudar.
El programa se trata de hacer un formulario donde hay un textbox; y se trata de que mientras no se pulse la tecla intro se siguen introduciendo palabras; y en el momento en el que pulse intro aparece un mensaje en el que pone si la frase o palabra introducida es n palindromo o no, un palindromo es aquella palabra o frase que se lee igual de izquierda a derecha que de derecha a izquierda. Los eventos que se dieron para hacer este ejercicio son: mid(cadena,posicion,nº elementos a extraer), strcmp(cadena1,cadena2), Len(cadena). Ademas de esto el programa debe ignorar los espacios porque si no algunas frases no serian palindromo.
Espero que alguien me pueda ayudar y que yo me haya dejado entender.
Gracias y un saludo |
| |
|
nostromo
390 Mensaje(s)
|
| Enviado - 22/10/2004 |
| |
Hola;
Trata de ver en :
http://www.mundoprogramacion.com/
En:
http://www.planet-source-code.com/
Busca en el search y el combo en vibsual basic colocas palindromo en inglés.
Nos vemos. |
| |
|
Desconocido
|
| Enviado - 22/10/2004 |
| |
Si todavia requieres ayuda mandame un correo a la direcciòn [email protected]
se ve interesante ese problema pero te ayudo solo si aun lo requieres |
| |
|
fmarredo
486 Mensaje(s)
|
| Enviado - 25/10/2004 |
| |
Public Function Reemplazar(Cadena As String, Buscar As String, Reemplazo As String) As String
Dim intPos As Integer
Dim strTmp As String
strTmp = Cadena
intPos = InStr(1, strTmp, Buscar)
Do While intPos > 0
strTmp = (Left$(strTmp, intPos - 1) & Reemplazo & Mid$(strTmp, intPos + 1))
intPos = InStr(intPos + Len(Reemplazo), strTmp, Buscar)
Loop
Reemplazar = strTmp
End Function
Public Function Invertir(Cadena As String) As String
Dim i As Integer
Dim strTmp As String
For i = Len(Cadena) To 1 Step -1
strTmp = strTmp & Mid(Cadena, i, 1)
Next i
Invertir = strTmp
End Function
Public Function EsPalindromo(Cadena As String) As Boolean
EsPalindromo = (StrComp(Invertir(Reemplazar(Cadena, " ", "")), Reemplazar(Cadena, " ", ""), vbTextCompare) = 0)
End Function
Modo de uso:
Msgbox EsPalindromo("Dabale arroz a la zorra el abad") |
| |
|
Desconocido
|
| Enviado - 27/10/2004 |
| |
| Okis, muchas gracias a todos, me habeis servido de gran ayuda!!!! |
| |
|
|
|
