Palíndromo en PowerBuilder

😀 Para los que no saben, PowerBuilder es una herramienta CASE. Es un programa que hace programas…😯 Y tiene su propio lenguaje: PowerScript En la U, estamos aprendiendo a usarlo y ps lo primero que hicimos (nos hicieron hacer porque el profe dijo: Háganlo Solitos) fue un programa que identifique si una palabra es o no un palíndromo. Un palíndromo es una palabra (0 número) que se lee/escribe igual -><- Ejemplo: ana, aerea, “Anita lava la tina”, etc. Y ps, nos juimos😉 En Inacap ocupamos la versión 9.0, así que el tuto sigue esa línea🙂

  1. Creamos un nuevo WorkSpace, en la ubicación y nombre que quieran🙂
    Screenshot - 02_06_2010 , 14_51_57
  2. Ahora, agregamos Lo que vamos a hacer: Una aplicación.
    El nombre puede ser lo que quieran, mientras sean ordenados😛
    Screenshot - 02_06_2010 , 14_53_36
    Screenshot - 02_06_2010 , 14_53_59
    Screenshot - 02_06_2010 , 14_54_34
    (como que con tanta imagen se ve feo…)
  3. De la misma forma, agregamos una “ventana(window)” y una “clase(custom class)” , ambas en la pestaña PB Object. Screenshot - 02_06_2010 , 15_14_43Las guardamos, y quedamos con esto:Screenshot - 02_06_2010 , 15_17_01

Ventana

Doble click a palin_window(en mi caso) y tenemos el layout de nuestra aplicación.
Para lo que vamos a hacer, necesitamos simplemente:

  • Un StaticText (label)
  • SingleLineEdit (textBox o textField)
  • Un CommandButton

Screenshot - 02_06_2010 , 15_21_04
Y nos queda algo como esto (a menos que quieran ponerle color😯 ) :Screenshot - 02_06_2010 , 15_25_40

Lógica

Cómo vamos a comprobar? Ps fácil🙂
En el sle escribimos la palabra, con el botón enviamos el string. Comparamos si el string es igual al string, pero alverre🙂 Dependiendo de la respuesta mandamos un mensaje.

De esta forma, creamos las funciones correspondientes en la clase.

  • public setPalabra(string palabra) returns (none)
    Ella simplemente envía la palabra a la función que comprueba y todo.
    gira(palabra)
  • private gira(string palabra) returns (none)
    Es la realiza todo.
    if(palabra = reverse(palabra)) then
        messagebox("Titulo del mensaje", "Es un palíndromo :D")
    else
        messagebox("Titulo del mensaje", "No es uno :(")
    end if

    Sin título

Ahora, para crear el objeto de la clase, vamos al layout. Y en el evento clicked() del botón, escribimos esto:

palin_clase objeto
objeto = create palin_clase
objeto.setpalabra(sle_1.text)

Donde sle_1.text es el nombre del singleLineEdit

Por último, debemos iniciar la aplicación. Para ello en el evento open de la aplicación en sí y escribimos

open(palin_window)

Y listo😀

En la tarde (en 1 hora más…) vamos a hacer una calculadora…. así que cuando la termine, subo el código en algún lado😉

Acerca de MaritoCares

Ingeniero Informático. Con tendencias a la programación en [C#, VB].NET, Java(Web principalmente...), PHP, JavaScript, algo mínimo de [ruby, python], y el clásico C.
Esta entrada fue publicada en Uncategorized. Guarda el enlace permanente.

2 respuestas a Palíndromo en PowerBuilder

  1. PowerBuilder dijo:

    I recently came across your blog and have been reading along. I thought I would leave my first comment.
    I don’t know what to say except that I have enjoyed reading. Nice blog. I will keep visiting this blog very often.
    Thank You
    PowerBuilder development company

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s