Foro - Perl en Español

por **jc.morataya** » 2009-08-04 20:56 @914

¡Hola!
Buenas,

Tengo dos preguntas que me gustaría saber si alguien puede ayudarme,

1) Tengo un script de Perl que despliega una GUI hecha con Win32::GUI y WIN32::GUI:Grid; en uno de los procesos estoy utilizando un ciclo infinito que va más o menos así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while(1){
if(condicion){
$Grid->Refresh();
}else{
...
}
}Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

Como ven, dentro del if() estoy haciendo un $Grid->Refresh() para redibujar todas las celdas del Grid, pero no lo consigo... ¿qué puedo hacer para actualizar los datos que caen en el grid durante el proceso infinito?

2) En el mismo script, me gustaría hacer algo que rompa el ciclo infinito con un botón, es decir, que el mismo botón active y desactive el ciclo infinito... de ahí lo de los procesos paralelos ya que en un proceso estaría el while(1) (ciclo infinito) y en el otro se le permitiría al usuario pinchar el botón para parar este ciclo de manera paralela... ¿cómo hago esto?

¡Muchas gracias a todos y un saludo!

JC

Yo creo que no deberías utilizar un bucle infinito, porque puedes comerte todos los recursos de la CPU.

Es mejor usar un timer o temporizador, algo así como el sleep() del Perl, pero con una llamada al sistema gráfico de Windows, para que el sistema tenga la oportunidad de hacer cambios de contexto entre aplicaciones.

Actualización: Encontré un hilo que habla de Win32::Sleep.

por **jc.morataya** » 2009-08-07 13:04 @586

Gracias, explorer, voy a intentarlo con sleep().

En este mismo contexto, fíjate que estoy haciendo un cronómetro de conteo regresivo en Perl. Tiene tres botones: "Correr","Detener","Reiniciar"; para el caso del botón "Correr", estoy usando esta subrutina:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub Run_Click {
        print "Corre el Cronómetro...\n";
        $Cero = "0";
        for ($i = 5; $i >= 0; $i--) {
                for ($j = 59; $j >= 0; $j--) {
                        # Minutos
                        if ($i <= 9) {
                                $Mins = $Cero."".$i;
                        } else {
                                $Mins = $i;
                        }
                        # Segundos
                        if ($j <= 9) {
                                $Secs = $Cero."".$j;
                        } else {
                                $Secs = $j;
                        }
                        $timevar = $Mins.":".$Secs;
                        print "$timevar\n";
                        sleep(1);
                }
        } 
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

El problema es que cuando ésta se ejecuta, el proceso se queda en las funciones for() que corren el cronómetro y no me permite en la GUI pinchar los botones "Detener" y "Parar"... Lo que creo es que hay que hacer algo con fork() para crear otros procesos que permitan usar estos otros botones... si es así, ¿cómo lo hago...? si no es así o si hay otra forma más fácil, ¿cuál sería?

Muchas gracias por la siempre efectiva ayuda,

Un saludo.

por **explorer** » 2009-08-07 13:38 @610

Debes usar Win32::Sleep, como te comento en la actualización del mensaje anterior.

En la documentación de Win32, busca por Sleep. Verás que pone que, mientras espera tu programa, Sleep da opciones a Windows a responder a eventos.

Ahora no sé decirte si Win32::GUI dispone de algo parecido, pero yo creo que sí.

Actualización: Aquí está: Win32::GUI::Tutorial::Part4::Timers. De todas maneras, si tu programa está haciendo cuentas constantemente, entonces no estamos hablando de hacer esperas. Lo que quieres es, realizar cuentas, presentarlas y al mismo tiempo, que el programa responda a eventos Windows que le lleguen. La solución es hacer un sleep de 0 segundos dentro del bucle: de esta manera tu programa no espera, pero, lo importante, le da la oportunidad a Windows a responder a eventos.

por **jc.morataya** » 2009-08-07 14:42 @654

Perlfecto... funcionó muy bien, lo he solucionado con la función addtimer() del Win32::GUI. Muchas gracias, explorer,

Un saludo cordial.

por **explorer** » 2009-08-09 13:23 @599

Sería interesante ver un ejemplo muy pequeño de esto... para que quedase claro cómo hacerlo.

por **jc.morataya** » 2009-08-10 11:31 @521

Hola,

El que sigue es el código de un simple pero funcional cronómetro hecho con Perl. Aún requiere algunos ajustes pero funciona bastante bien, está basado en el uso de Timers disponibles en la distribución corriente del Win32::GUI...

Cualquier comentario de mejora es bienvenido...

¡Ciao!

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#! perl
#
#  Cronómetro
 
#use strict  # activa esto pero antes tienes que hacer los arreglos necesarios...
use Win32::GUI;
 
my $Window;
my $Zero = "0";
my $i = 60;
my $Resetting = 0;
 
# Parámetros del Cronómetro
my $MinuteParam = 1; # Acá pones los minutos que quieras que corra tu cronómetro...
$MinuteParam = $MinuteParam - 1;
my $j = $MinuteParam;
 
# Ventana principal del cronómetro
$Window = Win32::GUI::Window->new (
    -title  => "Cronometro Perl",
    -left   => 270,
    -top    => 10,
    -width  => 250,
    -height => 200,
    -name   => "Window",
) or die "Window";
 
# Fuente con tamaño 14 y negrita
$Font = Win32::GUI::Font->new(
              -name => "Font", 
              -size => 14,
              -bold => 1,
);
 
# La etiqueta donde se despliega el tiempo del cronómetro
$initimevar = IniTimeVar($j);
$Window -> AddLabel(
                    -name   => "timex",
                    -pos    => [10,10],
                    -height => 30,
                    -width  => 250,
                    -font   => $Font,
                    -text   => "$initimevar",
) or die "new Label";
 
# Correr el Cronometro
$Run =  $Window ->AddButton(
                    -name => "Run",
                    -pos  => [ 25, 95 ],
                    -width    => 60,
                -height   => 30,
                -text     => 'Correr',
);
 
# Resetear el Cronómetro
$Reset =  $Window ->AddButton(
                    -name => "Reset",
                    -pos  => [ 90, 95 ],
                    -width    => 60,
                -height   => 30,
                -text     => 'Resetear',
);
 
# Detener el Cronómetro
$Stop =  $Window ->AddButton(
                    -name => "Stop",
                    -pos  => [ 155, 95 ],
                    -width    => 60,
                -height   => 30,
                -text     => 'Detener',
);
 
# Aquí está en timer
$t1 = $Window->AddTimer('T1', 1000);
 
# Lo de cajón para que esto funcione bien...
$Window->Show;
$Window->Center;
Win32::GUI::Dialog();
 
 
# ================================================================
# Subrutinas
# ================================================================
sub Window_Terminate {
        $Window->Hide();
        return -1;
}
 
sub Run_Click {
        $t1 = $Window->AddTimer('T1', 1000);
}
 
sub Reset_Click {
        $i = 60;
        $j = $MinuteParam;
        $t1->Interval(0);
        $i --;
    $initimevar = IniTimeVar($j);
        $Window->timex->Change( -text => $initimevar);
        $Window->timex->Update();
}
 
sub Stop_Click {
        $t1->Interval(0);
}
 
sub T1_Timer {
        if ($Resetting == 1) {
                $i = 59;
                $j = $MinuteParam;
        $timevar = IniTimeVar($j);
                $Window->timex->Change( -text => $timevar);
                $Window->timex->Update();
                $Resetting = 0;
    } else {
            $i--;
                if ($i == 0) {
                        $j--;
                    $i = 59;
                    if ($j == -1) {
                            $t1->Kill();
                            $i = 0;
                            $j = 0;
                            $Resetting = 1;
                     }
                } 
            # Segundos
                if ($i <= 9) {
                        $Secs = $Zero."".$i;
                } else {
                        $Secs = $i;
                }
                # Minutos
                if ($j <= 9) {
                        $Mins = $Zero."".$j;
                } else {
                        $Mins = $j;
                }       
                $timevar = $Mins.":".$Secs;
                $Window->timex->Change( -text => $timevar);
                $Window->timex->Update();
    }
}       
 
sub IniTimeVar {
        $jj = $_[0];
        $jj = $j + 1;
        if ($j <= 9) {
                $initimevar = $Zero."".$jj.":".$Zero."".$Zero;
        } else {
                $timevar = $jj.":".$Zero."".$Zero;
        }
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **jc.morataya** » 2009-08-11 13:07 @588

Pues no es un pequeño ejemplo, sino más bien todo el código. Igual creo que le vendrá bien a alguien que quiera usar los "timers" del Win32::GUI.

Saludos y ¡gracias por la siempre excelente ayuda!

Foro - Perl en Español

Procesos Paralelos con Perl

Procesos Paralelos con Perl

Publicidad

Re: Procesos Paralelos con Perl

Re: Procesos Paralelos con Perl

Re: Procesos Paralelos con Perl

Re: Procesos Paralelos con Perl

Re: Procesos Paralelos con Perl

Re: Procesos Paralelos con Perl

Re: Procesos Paralelos con Perl

Re: Procesos Paralelos con Perl

¿Quién está conectado?