Foro de elhacker.net

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 :huh:

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)

Podrías usar expresiones regulares. Como está:

[a-zA-Z]

Donde solo acepta Letras Minúsculas y Mayúsculas. En caso de ingresar un carácter especial o un numero no se cumpliría la RegExp.

Por ejemplo: (Aunque me falto la validación que mensionabas)

<?php /* #!/usr/bin/php
 
		Autor: Shell Root
		Archivo: PoC.php
		Descripción: Verificación si una o varías palabra son palindromás		
 
*/
 
 
    /* Verificamos la cantidad de parámetros */
    if(sizeof($_SERVER['argv']) == 2){
  		$strOriginal = str_replace(' ', '', $_SERVER['argv'][1]);
  	 	$strInvertida = strrev($strOriginal);
    	if(strtolower($strOriginal) == strtolower($strInvertida)){
  			echo "Es palindroma \n";
			echo strtolower($_SERVER['argv'][1])."\n";
			echo strrev(strtolower($_SERVER['argv'][1]))."\n";
  		}else{
  			echo "No es palindroma \n";
			echo strtolower($_SERVER['argv'][1])."\n";
			echo strrev(strtolower($_SERVER['argv'][1]))."\n";
  		}
    }else{
        echo "\n  Modo de uso: php PoC.php [Oración o Palabra] \n";
        echo "       PoC: php PoC.php hola \n";
        echo "       PoC: php PoC.php 'anita lava la tina \n\n";
    }
 
?>

PoC:

shellroot@alex-laptop:~/Escritorio$ php PoC.php oso
Es palindroma 
oso
oso
shellroot@alex-laptop:~/Escritorio$ php PoC.php 'Anita lava la tina'
Es palindroma 
anita lava la tina
anit al aval atina
shellroot@alex-laptop:~/Escritorio$ php PoC.php 'No se que poner aqui'
No es palindroma 
no se que poner aqui
iuqa renop euq es on

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

No es C, es PHP, y solo te di un ejemplo.

[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!¡.

Con un poco de logica y StrReverse() tienes mas que suficiente ;)

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) :laugh:

Todavía no me pude ingeniar una idea para hcerlo :-\

lo que dices se entiende de por medio desde que empiesas a programar, solo que hay que saber que hace X funcion despues puedes recrearla sin problemas, si no sabes que hace entonces en C/C++ como ejemplos no migrarias tan facil.

En resumen solo hay que saber que hace X funcion lo demas es logica rudimentaria en la migracion a otro lenguaje X.

Dulces Lunas!¡.

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

Cuando pones:

Dim TmpChar             As String * 1

Es para declarar que la variable contendrá un carácter y por eso se coloca el *1?

Para qué es necesario? Declarando que contendrá un sólo carácter ocupa menos memoria que si le pones un sólo caracter sin poner el *1?

yo en lo personal lo hago por que solo ocupo y dejo lo nesesario en su declaracion es decir su longitud maxima y cuando uso el mid$ no se nesesita seguir estos pasos:

Redimencionar string
establecer String

y esto X veces sea en el bucle por lo cual conlleva un poco mas de tiempo, por lo contrario si se hace de la forma en la declaracion en una longitud fija solo va a pasar a introducir el valor y la variable  string SIEMPRE va a contener la logitud deseada y si no se llenace totalmente se poner Bytes 0 o nullos.

Dulce Infierno Lunar!¡.

No entiendo por que te complicas tanto para hacer el StrReverse() :-\

Public Function Str_Reverse(Expression As String) As String
    Dim i     As Integer
    For i = Len(Expression) To 1 Step -1
        Str_Reverse = Str_Reverse & Mid$(Expression, i, 1)
    Next i
End Function

Karcrack, que hace el Mid con el signo "$"?

Porque yo hasta ahora lo usaba simplemente Mid(<Cadena>,<Posición>,<Longitud>)
 :huh:

Utilizar el dolar es mas optimo, debido a que si no especificas usando el dolar que quieres que devuelva String, la funcion devuelve Variant, luego VB tiene que hacer la conversion para meter los datos en una String ;)

hola,
sin ánimo de comenzar una discusión con los grandes (porque seguro saldría perdiendo.... :-[) tenía entendido que la función mid devuelve un string de por sí  :-\

Public Shared Function Mid( _
   ByVal str As String, _
   ByVal Start As Integer, _
   Optional ByVal Length As Integer _
) As String
 

http://msdn.microsoft.com/en-us/library/05e63829%28VS.80%29.aspx

saludos.

Fijate que gran parte de la documentacion de la MSDN ya no es para VB6

' Creates text string.
Dim TestString As String = "Mid Function Demo"
' Returns "Mid".
Dim FirstWord As String = Mid(TestString, 1, 3)
' Returns "Demo".
Dim LastWord As String = Mid(TestString, 14, 4)
' Returns "Function Demo".
Dim MidWords As String = Mid(TestString, 5)
 

Prueba a ejecutar eso en VB6 :P

Fijate que al poner Mid( te saldra la declaracion de la funcion, si pones Mid$( pone al final "As String"

A la hora de programar no hay diferencia, pero una vez compilado el proceso es distinto ;)

Sacado de msvbvm60.dll

ya que se sale el tema, pregunto con respecto a valores numericos con los singnos.

he visto que cuando se utiliza una API muchas veces en los valores nulos (cero u otros tambien)  se los pasa con los singos

por ejemplo


al cero se lo marca como un long

ahora si yo ago esto, es nesesario, esta bien o esta mal?

o esto


Saludos.