Foro - Perl en Español

por **Txemaracas** » 2011-09-19 06:42 @320

No sé si he entendido bien lo que me dijiste, creo que sí. Hice esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub init{
    &comprobarDB();               # Llamada a subrutina CompararDB.
 
    my $grupo = @_;
    my($conexion,$sth);               # Declaración de las  variables que utilizaremos a continuación.
 
    $conexion = ConectarDBcon->connect(); #  Conectamos con la  base de datos desde el paquete ConectarDB y lo dejamos en la variable $dbh.
 
    #Leer datos.
 
    print "$grupo\n";
 
    #Crear.
 
    &crearTabla($grupo, $conexion);
 
    #Desconectar.
 
    $conexion->disconnect;
    
}
# Subrutina crearTabla.
 
sub  crearTabla {
 
      my($conexion,$tabla);
 
      $tabla = $_[0];
 
      $conexion = $_[1];                                                                           #Desde la llamada a la subrutina le pasamos la  conexión a  la base de datos. Desde la llamada  sería la  segunda  variable  que le pasamos.
 
      eval  {$conexion->do("CREATE TABLE $tabla (nombre VARCHAR(30), correo VARCHAR(100))")};     #Hacemos un eval, cuya función será dejar que la tabla   se cree o no dependiendo de si existe,y desde la conexión a la  base de datos hacemos  crearemos la tabla  si  no existe  ya.
 
      if ($@) {
 
            printf("La tabla existe \n")                                                            # Se captura el error si la tabla existe y nos dice que "La  tabla  existe".
 
      }
 
}
 
#Subrutina  comprobarDB.
 
sub comprobarDB {
 
        my @databases = DBI->data_sources("mysql", {host => 'localhost', user => 'root', password => 'password'});# Cogemos la lista de bases de datos presentes en el sistema.
 
        my $base_datos = 'contactos';                              #Introducimos el nombre de la  base de datos que queremos comprobar que está  en la variable $base_datos.
 
        my $dsn = "DBI:mysql:$base_datos";                         # Conformamos el DSN de esa base de datos.
 
        unless ($dsn ~~ @databases) {                              # Si el $dsn no está entre las @databases la creamos.
 
                my $drh = DBI->install_driver("mysql");            # Carga del controlador mysql
 
                my $rc = $drh->func("createdb", $base_datos, 'localhost', 'root', 'password', 'admin');# Creamos la base de datos.
        }
 
}
 
1;
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

y la llamada desde la interfaz:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub Button13_Click {
        my $texto = $ventanaCG->TextFieldcg1->Text();
        print $texto,"\n";
        
        crearGrupo->init($texto);
        
        $ventanaCG->TextFieldcg2->Text("Listo!!!!!");  
        return 0;
};
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

No me crea todavía el grupo y cuando ejecuto me devuelve el nombre que puse en textfield y un 2 después; el nombre es del print() de la interfaz y el 2 será del print() del init(). Hay algo que estoy haciendo mal, pero no sé qué es.

Cuando, en la línea 5, pones

crearGrupo->init($texto);

Perl mete en la pila de argumentos, el valor 'crearGrupo' y luego el de $texto.

Por eso te sale un 2 cuando no pones paréntesis. Y te sale 'crearGrupo' cuando lo usas bien.

Lo único que te falta es extraer el valor de grupo de forma correcta:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $self  = shift;
my $grupo = shift;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Txemaracas** » 2011-09-23 09:45 @448

Hola. Pongo esta duda por si alguien tiene alguna idea u opinión sobre qué hacer. Tengo la interfaz hecha pero me falta una cosa que me está dando muchos quebraderos de cabeza. Quiero poder mostrar los datos de los usuarios de la base de datos y poder seleccionarlos. El ejemplo que puse al principio es el de los correos de Hotmail. Se muestran los correos y al lado de cada uno un cuadradito para seleccionarlo. En este caso sería un RadioButton pero, claro, tengo problemas para mostrar los datos. Uso :

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$ventanaC->AddTextfield(
    -name      => "Mostar",
    -pos       => [200, 50],
    -size      => [360, 400],
    -multiline => 1,
    -hscroll   => 1,
    -vscroll   => 1,
    -autohscroll => 1,
    -autovscroll => 1,
    -keepselection => 1 ,
    -font => $EditFont,
    -onResize   => \&Notepad_OnSize,
);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y claro, con

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$ventanaC->Mostar->Text("");
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

pero no sé cómo hacerlo para dividirlo en filas.

He pensado también si poder hacer una tabla.

por **explorer** » 2011-09-23 11:09 @506

En la página de manual de Win32::GUI::Textfield se comenta que el delimitador entre las líneas de ese texto ha de ser los caracteres "\r\n".

De todas maneras, un campo de texto está bien para sacar un listado de registros, pero si luego quieres hacer algo más con ellos, quizás te sea más fácil usar un ListView (lista) o un Grid (rejilla).

por **Txemaracas** » 2011-09-26 08:09 @381

Hola tengo una duda porque estuve mirando en Internet como poder agregar un radioButton en una de las celdas. Encontré que en Java sí se puede; con Tk, también, pero no sé cómo poder hacerlo con Win32::GUI. El código que utilizo es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub Button2_Click {
    
        $ventanaC->Show();
        
        my $conexion = ConectarDBcon->connect();                              # Recogemos la  conexión en esta variable.
 
        my $sth = $conexion->prepare("show tables")or die("Couldn't prepare statement: " . $conexion->errstr); # Cogemos los nombres de las tablas de la base de datos que le hemos pasado en la conexión.
 
        $sth->execute() or die("Couldn't execute statement: " . $sth->errstr);                                 # Ejecutamos la  acción.
    
        my @tables = &misTablas($conexion);                                     # Declaración del array en el cual introduciremos cada uno de los nombres de las tablas que hemos seleccionado.
        
        my $fila = 1;
        my $columna = 1;
        my $cont = 0;
        
        my $val = $GridC->SetRows(30);
        $GridC->SetHandleTabKey(True);
        
        for my $tabla (@tables) {
            
                #$GridC->SetCellText($fila, $columna,addRadioButton());
                $GridC->SetCellText($fila, $columna,"   $tabla   ");
                
                my $sel = $conexion->prepare("SELECT * FROM $tabla") or die("Couldn't prepare statement: " . $conexion->errstr); # Cogemos los nombres de las tablas de la base de datos que le hemos pasado en la conexión.
 
                $sel->execute() or die("Couldn't execute statement: " . $sth->errstr);
                $columna++;
            
                while (my $ref = $sel->fetchrow_hashref()){
                        
                        $fila++;
                        
                        my  $nombre= $ref->{'nombre'};
                        
                        print "$nombre\n";
                        
                        $GridC->SetCellText($fila, $columna,"   $nombre   ");
                        
                        $columna++;
                        
                        my  $correo = $ref->{'correo'};
                        
                        $GridC->SetCellText($fila, $columna,"   $correo   ");
                        
                        $columna = 2;
                          
                }
                
                $columna=1;
                $fila=  $fila+2;           
        }
            
        return 0;
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

He intentado hacer lo que pongo en la línea 23 pero no funciona. ¿Hay alguna manera de añadir un radio button por cada línea?

por **explorer** » 2011-09-26 09:23 @433

No veo la opción de poner radio botones, pero sí cajas de marcado de opciones.

Según la documentación de Win32::GUI::Grid debes cambiar el tipo de la celda a GVIT_CHECK (CheckBox) con SetDefCellType() o SetCellType().

Luego, podrás indicar el estado de la marca, con SetCellCheck() o SetCellOptions().

por **Txemaracas** » 2011-09-26 09:29 @436

Gracias explorer. Ahora lo estaba escribiendo, que había encontrado la solución entre los demos de Win32::GUI.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$GridC->SetCellType($fila, $columna, GVIT_CHECK);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Txemaracas** » 2011-09-28 10:39 @485

He modificado el Grid como quería pero a la hora de seleccionar un grupo y de esta forma seleccionar todos los contactos pertenecientes a él, se me bloquea el programa solo cuando intento seleccionar el último grupo, el cual no me deja clicar y al hacerlo se bloquea. El código es el siguiente (he puesto en el campo texto "" en cada casilla con un checkBox para poder identificarlas):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub Grid_Click {
    my ( $row, $col ) = @_;
 
    my $estado = $GridC->GetCellCheck( $row, $col );
 
    my $text = $GridC->GetCellText( $row, $col );
 
    if ( $col == 0 and $estado == 1 ) {
 
        $col = 1;
        $row++;
        $text = $GridC->GetCellText( $row, $col );
        while ( $text eq "" ) {
 
            $GridC->SetCellCheck( $row, $col, 1 );
            $row++;
            $text = $GridC->GetCellText( $row, $col );
        }
    }
    elsif ( $col == 0 and $estado == 0 ) {
 
        $col = 1;
        $row++;
        $text = $GridC->GetCellText( $row, $col );
        while ( $text eq "" ) {
 
            $GridC->SetCellCheck( $row, $col, 0 );
            $row++;
            $text = $GridC->GetCellText( $row, $col );
        }
    }
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Crear interfaz gráfica con Win32::GUI

Re: Crear interfaz gráfica con Win32::GUI

Publicidad

Re: Crear interfaz gráfica con Win32::GUI

Re: Crear interfaz gráfica con Win32::GUI

Re: Crear interfaz gráfica con Win32::GUI

Re: Crear interfaz gráfica con Win32::GUI

Re: Crear interfaz gráfica con Win32::GUI

Re: Crear interfaz gráfica con Win32::GUI

Re: Crear interfaz gráfica con Win32::GUI

Re: Crear interfaz gráfica con Win32::GUI

Re: Crear interfaz gráfica con Win32::GUI

¿Quién está conectado?