• Miércoles 12 de Marzo de 2025, 10:35

Mensajes recientes

Páginas: [1] 2 3 ... 10
1
Visual Basic para principiantes / Re:Sistemas en visual basic 6.0 + codigo fuente
« Último mensaje por Haggen en Jueves 2 de Enero de 2025, 04:00 »
Una lástima, pero es probable que el hosting a donde los subiste los halla borrado (algo común por desgracia).
2
Power Builder / Re:selección de campos!
« Último mensaje por juan419 en Lunes 23 de Diciembre de 2024, 04:17 »
aquí te dejo un link espero sea de tu agrado


https://www.youtube.com/watch?v=4EER3fBU9l4
3
Power Builder / Datawindow dinamico
« Último mensaje por juan419 en Lunes 23 de Diciembre de 2024, 04:10 »
 :ayuda:
Buenas noches foro, necesito que me puedan ayudar con esto:

Tengo un datawindow external en el cual he creado algunos campos que deseo mostrar en el datawindow (dw_1) desde la tabla (delitos_diarios) y los primeros campos que he creado con sus respectivas etiquetas son (FECHA  ,  robo_simple)

para comenzar EN ESA TABLA (delitos_diarios) hay un campo llamado modalidad tipo string en el cual hay MUCHOS registros PERO SOLO DESEO CONTAR LOS QUE DIGAN ("ROBO AL PASO" y también los que digan "HURTO SIMPLE")

ahora con una sentencia para datawindow dinámico, deseo CONTAR los registros que existan en la tabla (delitos_diarios) en esas fechas dentro del campo (modalidad) como ("ROBO AL PASO" y "HURTO SIMPLE") y mostrarlos en pantalla es decir dentro del dw_1 ya creado pero no lo logro

/////////////mi código es este:////////////////

string ls_moda
string ls_subt
date ls_fregi1, ls_fregi2
ls_fregi1=date(em_1.text)
ls_fregi2= date(em_2.text)
st_modal = "ROBO"
SELECT modalidad, subtipo
      INTO :ls_moda, :ls_subt
FROM delitos_diarios
WHERE modalidad = :st_modal USING SQLCA;

AND  (fec_registro between :ls_fregi1 and :ls_fregi2)  ///en esta parte me emite error

como ven, en esta ultima parte del código, me emite error por lo que les pido su ayuda para solucionarlo y también poderlo mostrar en el dw_1, aclaro que soy muy nuevo en este lenguaje de power builder  pero se ve muy interesante

el reporte debe de quedar así como se ve en la imagen que he adjuntado en archivo

agradezco su aporte foro


4
Visual Basic para principiantes / Re:Sistemas en visual basic 6.0 + codigo fuente
« Último mensaje por rodolfo Martinez Cruz en Lunes 23 de Septiembre de 2024, 18:45 »
Saludos.
 Estos programas que comentas se pueden descargar no se pueden descargar como pudiera descargarlos

Buen dia.
5
C# / Re:Matriz/Array sin datos repetidos en C#
« Último mensaje por cesar.queb en Jueves 11 de Julio de 2024, 02:00 »
Cuando desees realizar este tipo de tareas, lo ideal es utilizar un objeto de tipo Diccionario.

Código: C#
  1. // C# program to illustrate how
  2. // to  check the given key or
  3. // value present in the dictionary
  4. // or not
  5. using System;
  6. using System.Collections.Generic;  
  7.  
  8. class GFG {
  9.  
  10.         // Main Method
  11.     static public void Main () {
  12.          
  13.                  // Creating a dictionary
  14.         // using Dictionary<TKey,TValue> class
  15.         Dictionary<int, string> My_dict =  
  16.                       new Dictionary<int, string>();
  17.            
  18.           // Adding key/value pairs in the
  19.           // Dictionary Using Add() method
  20.           My_dict.Add(1123, "Welcome");
  21.           My_dict.Add(1124, "to");
  22.           My_dict.Add(1125, "GeeksforGeeks");
  23.            
  24.           // Using ContainsKey() method to check
  25.           // the specified key is present or not
  26.           if (My_dict.ContainsKey(1122)==true)
  27.           {
  28.               Console.WriteLine("Key is found...!!");
  29.           }
  30.  
  31.           else
  32.           {
  33.                Console.WriteLine("Key is not found...!!");
  34.           }
  35.            
  36.           // Using ContainsValue() method to check
  37.           // the specified value is present or not
  38.           if (My_dict.ContainsValue("GeeksforGeeks")==true)
  39.           {
  40.               Console.WriteLine("Value is found...!!");
  41.           }
  42.  
  43.           else
  44.           {
  45.                Console.WriteLine("Value is not found...!!");
  46.           }
  47.     }
  48. }
  49.  

Saludos.
6
Visual Basic 6.0 e inferiores / Re:Como Usar El Scroll En El Ide De Visual
« Último mensaje por cesar.queb en Miércoles 10 de Julio de 2024, 22:38 »
Encontré un proyecto que contiene la librería para el IDE de VB6, pero tampoco funciona. Adjunto el .zip que contiene el código fuente para crear el Add-in.

7
Visual Basic 6.0 e inferiores / Re:Como Usar El Scroll En El Ide De Visual
« Último mensaje por cesar.queb en Miércoles 10 de Julio de 2024, 22:27 »
Costix, muchas gracias por el aporte.. ¿De casualidad tendrás la versión del add-in para la IDE de VB6; pues he registrado la librería con éxito, se carga dentro de la ventana de add-ins en VB6 pero no funciona, ni ejecutando VB6 en modo Administrador. He buscado por la web y no logro encontrar la versión original de Microsoft. He encontrado una librería que se llama de forma similar (creado por un tal Solar), pero no funciona como add-in.

Actualmente estoy usando una librería externa llamada VB6ScrollwheelFix.exe que sí funciona en VB6.
8
Perl / Perl v5.40
« Último mensaje por explorer en Martes 11 de Junio de 2024, 11:59 »
Estos son los cambios que trae la versión v5.40.0, del 9 de junio de 2024.

Perl 5.40.0 representa aproximadamente 11 meses de desarrollo desde Perl 5.38.0 y contiene aproximadamente 160 000 líneas modificadas a lo largo de 1500 archivos por parte de 75 autores.

Las novedades que trae (entre otras):

Cambios principales

  • Nuevo identificador __CLASS__
    Ahora, cuando se usa la característica class, en el código de un método, bloque ADJUST o expresión de inicialización de un campo, se permite usar el nuevo identificador __CLASS__. Éste devuelve el nombre de una clase, de forma similar a __PACKAGE__, pero mientras que este último da el nombre del paquete del código en tiempo de compilación, el identificador __CLASS__ tiene en cuenta la clase a la que pertenece la instancia del objeto, en tiempo de ejecución. Esto es útil para el despachado de métodos de esa clase, especialmente en los constructores, donde no se permite el acceso a $self.

    Para más información, consultar "__CLASS__" en perlfunc.

  • Atributo :reader para las variables field
    Mientras se usa la característica class, las variables field pueden tener un atributo :reader. Esto solicita que se cree un método de acceso de forma automática que simplemente retorne el valor de la variable field, desde la instancia indicada.
Código: Perl
  1.     field $nombre :reader;
Es equivalente a
Código: Perl
  1.     field $nombre;
  2.     method nombre () { return $nombre; }
Se puede proporcionar un nombre alternativo:
Código: Perl
  1.     field $nombre :reader(obtener_nombre);
Para más detalles ver ":reader" en perlclass.

  • Se permite un espacio en la opción de línea de comandos -M
    Cuando se procesan las opciones en la línea de comandos, perl ahora permite un espacio entre la opción -M y el nombre del módulo que le sigue.
    Código: [Seleccionar]
        $ perl -M Data::Dumper=Dumper -E 'say Dumper [1,2,3]'Esto coincide con el comportamiento actual de la opción -I.

  • Restricciones en las declaraciones de use VERSIÓN
    En Perl v5.36 se añadió una advertencia de obsolescencia cuando se degrada una declaración use VERSIÓN desde una que esté por encima de la versión 5.11, hacia abajo. Ahora esto se ha convertido en un error fatal.

    Adicionalmente, ahora es un error fatal una posterior declaración use VERSIÓN cuando exista otra en el mismo ámbito, si es una versión 5.39 o superior. Esto es para evitar complicaciones a las funciones léxicas importadas desde builtin. También se añadió una advertencia de obsolescencia para cualquier otra declaración posterior de use VERSION que esté por debajo de la versión 5.39, para avisar que ya no se permitirá en la Perl versión 5.44.

  • Nuevas funciones experimentales builtin::inf y builtin::nan

    Se han añadido dos nuevas funciones, inf y nan, al espacio de nombres builtin. Actúan como constantes que devuelven los valores en punto flotante infinito y Not-a-Number (No es-un-Número), respectivamente.

  • Nuevo operador xor lógico ^^

    Perl siempre ha tenido tres operadores lógicos de baja precedencia: and, or y xor, así como tres versiones binarias de alta precedencia: &, | y ^. Hasta esta versión, mientras que también estaban presentes los operadores lógicos de media precedencia && y ||, no existía un equivalente a or-exclusivo. Esta versión de Perl añade el último operador ^^, completando el conjunto.

    Código: Perl
    1.     $x ^^ $y and say "Uno de x o y es verdadero, pero no ambos";

  • La característica try/catch ya no es experimental

    Antes de esta versión, la característica try/catch para el manejo de errores estaba considerada como experimental. Presentada en Perl versión 5.34.0, se considero que era una característica estable del lenguaje y su uso ya no imprimía una advertencia. Se debe seguir activando con la feature 'try'.

    Ver "Manejo de excepciones con Try y Catch" en perlsyn.

  • Iterar múltiples valores con for al mismo tiempo ya no es experimental

    Antes de esta versión, iterar sobre múltiples valores al mismo tiempo se consideró experimental. Presentada en Perl versión 5.36.0, ahora se considera una característica estable del lenguaje y su uso ya no imprime una advertencia. Ver "Sentencias compuestas" en perlsyn.

  • El módulo builtin ya no es experimental

    Antes de esta versión, el módulo builtin y todas sus funciones se consideraban experimentales. Presentadas en Perl versión 5.36.0, este módulo se considera ahora estable y su uso ya no imprime una advertencia. Sin embargo, muchas de sus funciones se siguen considerando experimentales.

  • La feature empaquetada :5.40 añade try

    La última versión de la feature empaquetada contiene ahora la reciente característica estable try. Ya que esta característica empaquetada se usa por la opción -E de línea de comandos, está disponible inmediatamente para los scripts -E.

  • use v5.40; importa las funciones builtin

    Además de la característica empaquetada de feature, use v5.40; (o siguientes versiones) importa la correspondiente versión de builtin empaquetada.
Cambios incompatibles

  • reset EXPRESIÓN ahora llama a set-magic en escalares
    Lo hacía con arrays y hashes, pero no con escalares.
  • Llamar a un método import de un paquete desconocido produce una advertencia
    Ahora, llamar a un código como este genera una advertencia:
    [perl]    Clase::Que::No::Existe->import("foo");[/perl]
  • return ya no permite un objeto indirecto
    La sintasix del operador return ahora rechaza los objetos indirectos. En la mayor parte de los casos compilaría e incluso se ejecutaría, pero no estaba documentado y podía producir resultados confusos, por ejemplo:
    Código: Perl
    1.     # note que "sum" no está definido
    2.     sub sum_positive {
    3.         return sum grep $_ > 0, @_;
    4.         # interpretado inesperadamente como:
    5.         #   return *sum, grep $_ > 0, @_;
    6.         # ... con la palabra suelta actuando como un argumento extra de tipo typeglob
    7.     }
    8.     say for sum_positive(-1, 2, 3);
    producía:
    Código: [Seleccionar]
        *main::sum
        2
        3
  • Las clases literales ya no se resuelven como manejadores de archivo, en llamadas de método bajo no feature "bareword_filehandles"
    Había un error con la ejecución de no feature "bareword_filehandles". Se permitía hacer esto:
    Código: Perl
    1.     open FH, "<", $archivo or die;
    2.     no feature 'bareword_filehandles';
    3.     FH->binmode;
      Ahora,
    FH->binmode intentará resolver FH como una clase, resultando típicamente en un error en tiempo de ejecución.
Obsolescencias

  • Usar goto para saltar desde un ámbito externo a un ámbito interno es obsoleto y se eliminará completamente en Perl v5.42
Nuevas plataformas
  • Serenity OS
9
¡Hola a todos!

Soy Arjun Sharma, el fundador y director del sitio web mehndi design
de diseño de imágenes, donde proporcionamos modelos de imágenes listos para la comunidad apasionada por el arte visual. No solo somos un lugar para encontrar inspiración y plantillas de diseño, sino también un foro interesante para discutir cómo crear obras hermosas.

Creo que el poder de la inteligencia artificial puede ser la clave para abrir una nueva puerta en el mundo del diseño de imágenes. Al utilizar la inteligencia artificial en el proceso de diseño, podemos crear obras únicas e impresionantes como nunca antes. Desde analizar tendencias hasta crear variantes de una imagen específica, la inteligencia artificial nos brinda una variedad de herramientas poderosas para explorar y ser creativos.

Espero poder compartir experiencias y opiniones sobre cómo usar la inteligencia artificial en el diseño de imágenes. ¡Juntos podemos discutir y explorar el potencial ilimitado de esta tecnología para mejorar nuestras habilidades y crear hermosas obras para el mundo!

¡Vamos a construir una comunidad artística vibrante y llena de emoción juntos!

Saludos,
Arjun Sharma
10
Perl / Perl v5.38
« Último mensaje por explorer en Viernes 4 de Agosto de 2023, 03:45 »
Estos son los cambios que trae la versión v5.38, del 2 de julio de 2023.

Perl 5.38.0 representa aproximadamente 12 meses de desarrollo desde Perl 5.36.0 y contiene aproximadamente 290 000 líneas modificadas a lo largo de 1500 archivos por parte de 100 autores.

Las novedades que trae (entre otras):

Cambios principales

  • class
    Ahora está disponible una nueva sintaxis experimental para definir clases de objetos, donde los datos de cada instancia se almacenan en variables "field" (campo) que se comportan como variables léxicas.
Código: Perl
  1. use feature 'class';
  2.  
  3. class Punto
  4. {
  5.     field $x;
  6.     field $y;
  7.  
  8.     method cero { $x = $y = 0; }
  9. }
Se describe con más detalle en perlclass. Las notas sobre detalles internos de su implementación y otros detalles relacionados se pueden encontrar en perlclassguts.

Se queda como característica nueva y experimental, y sigue estando en desarrollo. Será sujeto de más adiciones, refinamientos y alteraciones en versiones futuras. Como es experimental, lanza advertencias en la categoría experimental::class. Se pueden silencias con una sentencia no warnings:
Código: Perl
  1. use feature 'class';
  2. no warnings 'experimental::class';

  • Unicode 15.0
  • Las advertencias de obsolescencia tienen ahora subcategorías específicas


Todas las advertencias de obsolescencia tienen ahora su propia categoría de obsolescencia que se puede desactivar individualmente. Puede ver una lista de las características obsoletas en perldeprecation, y en warnings. La siguiente lista es de warnings:
+- deprecated ----+
|                 |
|                 +- deprecated::apostrophe_as_package_separator
|                 |
|                 +- deprecated::delimiter_will_be_paired
|                 |
|                 +- deprecated::dot_in_inc
|                 |
|                 +- deprecated::goto_construct
|                 |
|                 +- deprecated::smartmatch
|                 |
|                 +- deprecated::unicode_property_name
|                 |
|                 +- deprecated::version_downgrade

Sigue siendo posible desactivar todas las advertencias de obsolescencia con una única sentencia
Código: Perl
  1. no warnings 'deprecated';
pero ahora es posible tener un control más fino. Como ha sido siempre, estas advertencias se activan automáticamente con
Código: Perl
  1. use warnings;

  • Nueva API %{^HOOK}


Por distintas razonas puede ser dificultoso crear envoltorios de subrutinas para algunos palabra clave de perl. Cualquier palabra clave que tenga un prototipo indefinido, simplemente no se puede envolver con una subrutina, y algunas palabras clave que permiten ese envoltorio, lo hacen mediante trucos muy sucios. Por ejemplo, require es complicado de envolver; es posible hacerlo cambiando la profundidad de la pila, y los métodos estándares de exportación asumen que exportarán a un paquete a una cierta profundidad de la pila, y entonces el envoltorio cambiará esas funciones pero con una implementación muy cuidada. Esto puede ser muy complicado de gestionar.

De acuerdo con todo esto, presentamos un nuevo hash llamado %{^HOOK} cuya intención es facilitar tales casos. Cuando una palabra clave soporte cualquier enganche especial entonces el gancho vivirá en este nuevo hash. Los ganchos se nombrarán como la función desde donde se les llama, seguidos por dos guiones bajos y luego por la fase en donde se ejecutan, actualmente puede ser antes o después de ejecutarse la palabra clave.

En esta publicación inicial soportamos los ganchos require__before y require__after. Se proporcionan para hacer más fácil la realización de tareas antes y después de una sentencia require.

Vea perlvar para más detalles.

  • PERL_RAND_SEED


Se añadió una nueva variable de entorno: PERL_RAND_SEED, que se puede usar para que un programa perl sea repetible, tanto si usa rand sin srand() explícitamente o use srand() sin argumentos. Vea perlrun. Esta característica se puede desactivar en tiempo de compilación pasando -Accflags=-DNO_PERL_RAND_SEED a Configure.

  • Expresiones de asignación por defecto con defined-or y logical-or en firmas de subrutinas


Se puede asignar ahora la expresión por defecto para el parámetro de una firma de subrutina utilizando los operadores //= y ||=, para aplicar valores por defecto tanto si el llamador proporciona un valor indefinido o falso (respectivamente), en los casos cuando el parámetro no se indica. Para más detalles vea la documentación en perlsub.

  • @INC Hook Enhancements and $INC and INCDIR


Las internas de los ganchos @INC se han reforzado para manejar varios casos límite y no deberían provocar fallos de segmentación o fallos de aserción cuando los ganchos modifican @INC durante una operación require. Ahora aseguramos que cualquier gancho proporcionado se ejecuta al menos una vez durante una llamada a require, y que cualquier directorio duplicado no dispara pruebas de directorio adicionales.

Ahora se da soporte a un nuevo método de enganche llamado INCDIR para proporcionar a los desarrolladores más control sobre la búsqueda de módulos dinámicos. Se puede inyectar un objeto que admita este método en la matriz @INC, y cuando se encuentra en el proceso de búsqueda del módulo, se ejecutará, al igual que se ejecutan los ganchos de INC, y su valor de retorno se usa como una lista de directorios para buscar ese módulo. Devolver una lista vacía actúa como un NO-OP. Tenga en cuenta que dado que cualquier referencia devuelta por este gancho se convertirá y se usará como cadena de caracteres, no puede devolver un gancho para ejecutarse más adelante a través de esta API.

Cuando se llama a un gancho @INC (ya sea INC o INCDIR) durante el require, la variable $INC se localizará para ser el valor del índice de @INC del que proviene el gancho. Si el gancho desea anular cuál debería ser el "próximo" índice en @INC, puede actualizar $INC para ser uno menos que el índice deseado (undef es equivalente a -1). Esto permite que un gancho @INC reescribe por completo la matriz @INC y haga que Perl reinicie sus sondas de directorio desde el comienzo de @INC.

Las referencias de CODE bendecidas en @INC que no admiten los métodos INC o INCDIR ya no dispararán una excepción, y en su lugar se tratarán de la misma manera que coderefs sin bendecir, y se ejecutarán como si fueran un gancho de INC.

  • Ahora se detecta en tiempo de compilación el uso de control de flujo prohibido fuera de defer o finally

    Está prohibido intentar dejar un bloque defer o finally por medio de un control de flujo tales como return o goto. Versiones anteriores de perl sólo podría detectarlo cuando se intenta ejecutar en tiempo de ejecución.

    Esta versión de perl añade detección en tiempo de compilación para muchos casos que se pueden determinar estáticamente. Esto puede significar que el código que se puede compilar exitosamente en una versión anterior de perl ahora se reporta como un error en tiemp de compilación. Esto sólo sucede en los casos donde ocurriría un error al ejecutar código de todas maneras; ahora el error sucede antes.

  • Evaluación optimista en patrones


El uso de (?{ ... }) y (??{ ... }) en un patrón desactiva varias optimizaciones en ese patrón, de forma global. Esto puede ser deseable o no por el programador. Esta publicación añade el equivalente (*{ ... }). La única diferencia es que no desactiva ni desactivará ninguna optimización en el motor regex. Esto puede hacerlo más inestable en el sentido de que puede llamarse más o menos veces en el futuro, sin embargo el número de veces que se ejecuta coincidirá exactamente con el funcinamiento del motor regex. Por ejemplo, ciertos tipos de optimización se desactivan cuando se incluye (?{ ... }) en un patrón, así que los patrones que son O(N) en un uso normal se convierten en O(N*N). Cambiar a (*{ ... }) significa que el patrón se mantendrá en O(N).

  • REG_INF se ha elevado desde 65 536 a 2 147 483 647


Muchos cuantificadores regex que estaban limitados en el pasado a U16_MAX, ahora están limitados a I32_MAX, así que ahora es posible escribir /(?:word){1000000}/ por ejemplo. Note que hacerlo así puede provocar que el motor de regex se ejecute durante más tiempo y usar más memoria.

  • Ahora se permite algunos goto en bloques defer y finally

    Perl version 5.36.0 añadió bloques defer y permitió que la palabra clave finally añade un comportamiento similar para la sintaxis try/catch. Estos no permiten ninguna expresión goto dentro del cuerpo, ya que podría provocar un salto del control de flujo fuera del bloque. Ahora, se permiten a algunas expresiones goto, si se trata de un destino con una etiqueta constante, y que la etiqueta se encuentre dentro del bloque.
    Código: Perl
    1. use feature 'defer';
    2.  
    3. defer {
    4.   goto LABEL;
    5.   print "This does not execute\n";
    6.   LABEL: print "This does\n";
    7. }

  • Nueva variable de expresiones regulares ${^LAST_SUCCESSFUL_PATTERN}

Permite acceder al último patrón que coincidió de forma exitosa, en el ámbito actual. Muchos aspectos del motor de regex se refieren al "último patrón exitoso". El patrón vacío lo rechaza, y todas las variables regex mágicas se relacionan con él. Esto permite acceder a ese patrón. El código siguiente
Código: Perl
  1. if (m/foo/ || m/bar/) {
  2.     s//PQR/;
  3. }
se puede reescribir como
Código: Perl
  1. if (m/foo/ || m/bar/) {
  2.     s/${^LAST_SUCCESSFUL_PATTERN}/PQR/;
  3. }
    haciendo lo mismo.


Cambios incompatibles

  • readline() ya no limpia los indicadores de error y eof
  • los bloques INIT ya no se ejecutan después de un exit() en un BEGIN
Obsolescencias

  • El uso de ' como separador de los nombres del paquete

  • switch y el operador Smart Match (coincidencia inteligente)

La característica "switch" y el operador smartmatch ~~, se presentaron en v5.10. Su comportamiento se cambió significativamente en v5.10.1. Cuando el sistema "experiment" se añadió en v5.18.0, switch y smartmatch se declararon experimentales, de forma retroactiva. Durante estos años, se han propuesto y desechado propuestas para arreglarlos o suplementarlos.

En v5.38.0, declaramos el experimento como un fallo. Algunos otros sistemas futuros pueden tomar el lugar conceptual de smartmatch, pero no se han diseñado ni construido, todavía.

Estas características se eliminarán completamente en Perl v5.42.0.[/list]

Plataformas obsoletas
  • Ultrix
Páginas: [1] 2 3 ... 10