Hola a todos, estoy haciendo un programa para convertir palabras a palindromas, donde el código contiene 2 funciones:

Una llamada Verificar() que lo que hace es verificar si la palabra ya es palindroma: Por ejemplo, oro, oso, anana

Y otra llamada Convertir() que en el caso de que la palabra ingresada no sea palindroma, entonces la convierte, ejemplo:

Perro -> PerrorreP
Rata -> RatataR

Está validado para que si la palabra es palindroma, muestre en un label un mensaje diciendo "La palabra ingresada ya es palindroma", si no es entonces la convierte y la muestra

Lo que yo quiero hacer es que si el usuario ingresa numeros o cualquier otra cosa que no sean letras, por ej "*5846-!,,,.." y aprete el boton de Convertir, tire un mensaje al Label diciendo "La palabra ingresada no es válida o la caja de texto está vacía, por favor ingrese otro valor"

Se entiende? Me supongo que es sencillo pero no logro aclararme alguna idea de como hacerlo, les dejo el código principal:

Private Sub cmdConvertir_Click()
 
'Declaracion de variables
 
Dim strPalabra As String
 
'Asignacion de valor
 
strPalabra = txtValor1.Text
 
If strPalabra = Verificar(strPalabra) Then
    lblResultado.Caption = "La palabra ya es palindroma" 'Si pasa la verificación de que es palindroma, entonces avisa al usuario de eso"
Else
    lblResultado.Caption = txtValor1.Text & Convertir(strPalabra) 'Si no, entonces la convierte en palindroma
End If
 
End Sub

Está validado para lo que dije, lo que yo quiero es que diga lo otro en caso de que no sean letras lo que contiene la caja pero que tampoco pueda hacer trampa y poner "adsd5648"

Gracias, a ver si se les ocurre algo

PD: El problema es que ya probé poniendo con un Select case y los 3 casos, si es palindroma, si es distinto de palindromo (pero en este caso "*46541" como no es palindroma me la convertiría igual)

Pero estamos en visual basic, no sé programar en C

[b]lo peor que se puede hacer en un lugar de un tema fijado es relacionarlo con otro cuando este no le importa en lo absoluto al individuo sudicho, aquen que lo de expresiones regulares esta bien... pero el ejemplo esta pesimo en este subforo.[/b]

 * Aqui la liga a expresiones regulares en vb6.0.

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/166-expresiones-regulares.htm

Dulce Infierno Lunar!¡.

Claro Karcrack pero la idea no es usar funciones del vb (que yo se que hay muchas) sino crear mis propias funciones, ya que cuando te pasas a otro lenguaje las funciones no son todas igual y varían algunas, la idea es aprender a programar completamente para poder migrar a cualquier otro lenguaje apenas cambiando la sintaxis y aprendiendo unos detalles más (como punteros y todo eso)

Todavía no me pude ingeniar una idea para hcerlo

estoy aburrido asi que hice esto para vos nos vemos.

Son dos funciones para que compares que onda con lo que se te dice arriba un poco:

las funciones son similares como vez xP

 
'
' ////////////////////////////////////////////////////////////////
' // Autor: BlackZeroX ( Ortega Avila Miguel Angel )            //
' //                                                            //
' // Web: http://InfrAngeluX.Sytes.Net/                         //
' //                                                            //
' // |-> Pueden Distribuir Este Codigo siempre y cuando         //
' // no se eliminen los creditos originales de este codigo      //
' // No importando que sea modificado/editado o engrandesido    //
' // o achicado, si es en base a este codigo                    //
' ////////////////////////////////////////////////////////////////
 
Option Explicit
Option Compare Text
 
Public Function vbReverse(ByVal StrInOri As String) As String
Dim TmpChar             As String * 1   '   //  TmpChar = Space(1)
Dim Stringhalf          As Long
Dim StringLen           As Long
Dim Index_String        As Long
Dim index_StrInOri      As Long
    If Not Len(StrInOri) <= 1 Then
        StringLen = Len(StrInOri)
        Stringhalf = StringLen / 2
        For index_StrInOri = 1 To Stringhalf
            TmpChar = Mid$(StrInOri, index_StrInOri, 1)
            Index_String = StringLen - index_StrInOri + 1
            Mid$(StrInOri, index_StrInOri, 1) = Mid$(StrInOri, Index_String, 1)
            Mid$(StrInOri, Index_String, 1) = TmpChar
        Next
    End If
    vbReverse = StrInOri
End Function
 
Public Function EsPalidromoAlt(ByVal StrInOri As String) As Boolean
    EsPalidromoAlt = StrInOri = vbReverse(StrInOri)
End Function
 
Public Function EsPalidromo(ByVal StrInOri As String) As Boolean
Dim TmpChar             As String * 1   '   //  TmpChar = Space(1)
Dim Stringhalf          As Long
Dim StringLen           As Long
Dim Index_String        As Long
Dim index_StrInOri      As Long
Dim TmpStr              As String
    If Not Len(StrInOri) <= 1 Then
        StringLen = Len(StrInOri)
        Stringhalf = StringLen / 2
        TmpStr = Space(StringLen)
        For index_StrInOri = 1 To Stringhalf
            Index_String = StringLen - index_StrInOri + 1
            Mid$(TmpStr, index_StrInOri, 1) = Mid$(StrInOri, Index_String, 1)
            Mid$(TmpStr, Index_String, 1) = Mid$(StrInOri, index_StrInOri, 1)
        Next
    End If
    EsPalidromo = StrInOri = TmpStr
End Function
 
 

 
Private Sub Form_Load()
Const vConst As String = "peep"
    MsgBox vbReverse(vConst)
    MsgBox EsPalidromo(vConst)
    MsgBox EsPalidromoAlt(vConst)
End Sub
 
 

funciones alternativas

 
Public Function EsPalidromo(ByVal StrInOri As String) As Boolean
    EsPalidromo = StrInOri = StrReverse(StrInOri)
End Function
 
 

P.D.: las funciones son similares como vez si hay dudas avisa.

Dulce Infierno Lunar!¡.