Foro - Perl en Español

por **javiandres** » 2013-07-29 18:22 @807

Por favor, necesito alguien que me ayude a crear una calculadora sencilla, con dos cajas de texto y lista de selección (sumar, restar, multiplicar, dividir), un botón y una etiqueta para el resultado.

Gracias.

Para el manejo de interfaz gráfica te conviene revisar algo de las librerías Tk o Tkx (que pertenece a ActiveState y acá hay un manual de Tk mediante Tkx) Estas funcionan en Windows y otras plataformas.

Si solo vas a trabajar en Windows puedes acudir a WIN32::GUI.

Por allí está el Citrus Perl que parece que es más orientado a desarrollo con interfaz gráfica.

Éxitos.

por **explorer** » 2013-07-30 16:46 @740

Hola, MARKO.

javiandres no se refiere a las bibliotecas Tk, sino a las Wx.

por **MARKO** » 2013-07-30 17:30 @771

explorer escribiste:Hola, MARKO.

javiandres no se refiere a las bibliotecas Tk, sino a las Wx.

¿Cuál sería la diferencia?

Cuando leí "caja de texto, lista de selección, botón, etiqueta", pensé en Tk o Win32::GUI.

Parece que Citrus Perl está basado en Wx.

por **explorer** » 2013-07-30 17:55 @788

MARKO escribiste:¿Cuál sería la diferencia?

Hay tanta diferencia como entre Tk y Win32::GUI

Cada entorno tiene sus peculiaridades, y su lenguaje (espacio de nombres).

MARKO escribiste:Parece que Citrus Perl está basado en Wx.

Sí, así es.

Lo que no me atrevo es a recomendarle que se instale Citrus Perl en su Linux, si antes no sabe manejar diferentes instalaciones del intérprete perl, en el mismo sistema.

por **javiandres** » 2013-08-01 16:08 @713

Hola amigos, pues intenté crearla con Wx pero como no me funcionó, quiero cambiar de GUI, o sea necesito crear una calculadora con Perl, no importa con qué interfaz gráfica sea pero que me funcione

por **explorer** » 2013-08-01 16:17 @720

No has publicado el código que dices que te ha fallado...

por **javiandres** » 2013-08-01 16:35 @733

No me está entrando al if

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
use strict;
use Wx;
 
package MyFrame;
 
use Wx qw[:button :textctrl :statictext :menu :sizer :misc :frame];
 
#use Wx qw[:everything];
#use Wx qw[ TAGLIST];
#use Wx qw[Button TextCtrl StaticText MenuBar Menu BoxSizer GridSizer];
#use Wx::Button;
#use Wx::GetValue;
#use Wx::StaticText;
#use Wx::MenuBar;
#use Wx::Menu;
#use Wx::BoxSizer;
#use Wx::GridSizer;
 
use base 'Wx::Frame';
use Wx::Event qw(EVT_BUTTON);
use Switch;
 
sub new {
    my $ref          = shift;
    my $LblResultado = $ref->SUPER::new( undef, -1, '@_javiandres', [ -1, -1 ], [ 300, 250 ], );
    my $panel        = Wx::Panel->new( $LblResultado, -1, );
    my $etiqueta1    = Wx::StaticText->new( $panel, -1, 'Número 1', [ 10, 20 ], [ -1, -1 ], );
    my $txtNumero1   = Wx::TextCtrl->new( $panel, 0, '', [ 100, 20 ], [ -1, -1 ], );
    my $etiqueta2    = Wx::StaticText->new( $panel, 1, 'Número 2', [ 10, 40 ], [ -1, -1 ], );
    my $txtNumero2   = Wx::TextCtrl->new( $panel, 2, '', [ 100, 40 ], [ -1, -1 ], );
    my $CmbOperador
        = Wx::ComboBox->new( $panel, 3, '', [ 10, 70 ], [ -1, -1 ], [ 'Sumar', 'Restar', 'Multiplicar', 'Dividir' ] );
    my $BtnCalcular = Wx::Button->new( $panel, 1, 'Calcular!', [ 10, 100 ], [ -1, -1 ], );
 
    EVT_BUTTON( $LblResultado, $BtnCalcular, \&OnClick );
    return $LblResultado;
}
 
sub OnClick {
    my ( $LblResultado, $event ) = @_;
    my $CmbOperador = '';
    my $txtNumero1  = '';
    my $txtNumero2  = '';
    my $Resultado;
 
    # double num1=double.parse(txtNumero1.text);
    #double num2=double.parse(txtNumero2.text);
    #double resultado;
 
    if ( $CmbOperador = 'Sumar' ) {
 
        #$LblResultado = $txtNumero1 + $txtNumero2;
        $Resultado = $txtNumero1 + $txtNumero2;
 
    }
    else {
        $Resultado = $txtNumero1 - $txtNumero2;
    }
 
    #if ($CmbOperador->GetValue() eq 'Sumar') {
    # $Resultado = $txtNumero1 + $txtNumero2;;
 
    #   }
    $LblResultado->SetTitle($Resultado);
 
    #   print ($CmbOperador->GetValue());
}
 
package MyApp;
use base 'Wx::App';
 
sub OnInit {
    my $frame = MyFrame->new;
    $frame->Show(1);
}
 
package main;
my $app = MyApp->new;
$app->MainLoop;
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

por **javiandres** » 2013-08-01 19:18 @846

Ya, por fin me salió

¡¡¡ Gracias !!!

por **explorer** » 2013-08-01 22:07 @963

Tienes puesto

if ( $CmbOperador = 'Sumar' ) {

Y eso es incorrecto. El operador '=' es el de asignación, no comparación.

Si vas a comparar cadenas de caracteres, por su igualdad, debes usar el operador 'eq'.

Más información en tu propio ordenador en perldoc perlop, y en la Web (traducido al español), en la sección Operadores de igualdad.

Repasa tu bandeja de entrada de mensajes privados. Creo que la línea 61 es la correcta.

Foro - Perl en Español

Calculadora en interfaz gráfica con 'Perl'

Calculadora en interfaz gráfica con 'Perl'

Publicidad

Re: Calculadora en interfaz gráfica con 'Perl'

Re: Calculadora en interfaz gráfica con 'Perl'

Re: Calculadora en interfaz gráfica con 'Perl'

Re: Calculadora en interfaz gráfica con 'Perl'

Re: Calculadora en interfaz gráfica con 'Perl'

Re: Calculadora en interfaz gráfica con 'Perl'

Re: Calculadora en interfaz gráfica con 'Perl'

Re: Calculadora en interfaz gráfica con 'Perl'

Re: Calculadora en interfaz gráfica con 'Perl'

¿Quién está conectado?