Pantalla negra inicio App (Cosa fea)

[jhonalone]

Hola Agustín.
Gracias por tu interés.
En Madrid son mas de las 12 de la noche y estoy cansado. Mañana reviso el enlace.
Las funciones de comprobación son muy simples.
Te pongo un par de ellas de las más complicadas:

Código Delphi [-]
 function Fila(Tablero: TTablero; y,n: Integer): boolean;
var
  x: Integer;
begin
  Result:= TRUE;
  x:= 0;
  while (x < NUM_COLUMNAS) and Result do
  begin
    if Tablero[x,y] = n then
      Result:= FALSE;
    inc(x);
  end;
end;

function Valido(Tablero: TTablero; x,y,n: Integer): boolean;
begin
  Result:= Fila(Tablero,y,n) and Columna(Tablero,x,n)
    and Cuadrante(Tablero,x,y,n);
end;

function Obvio(Tablero: TTablero; x,y: Integer): Integer;
var
 i,j,n: Integer;
begin
 j:= 0; n:= 0;
 for i:=1 to 9 do
   if Valido(Tablero,x,y,i) then
   begin
     n:= i;
     inc(j);
   end;
 if j=1 then
   Result:= n
 else
   Result:= 0;
end;

He estado haciendo mediciones de tiempo en distintos dispositivos:
En la Tablet Samsung Galaxy Tab3 tarda 31/32 seg.
En teléfono Samsung Galaxy S III mini 12 seg.
En teléfono Samsung Galaxy A3 7 seg.

Está claro que depende del procesador implicado.

Creo que me va a servir el enlace que me has dejado. Estoy convencido de que sólo necesito no dejar la pantalla en negro, para que el usuario no quede sorprendido y desinformado.

Buenas noches para mi y buenas tardes para ti.

Saludos.

[[AgustinOrtu]]

Es que ese algoritmo, a simple vista solamente, ya se ve que tiene un orden de tiempo de ejecucion mucho mas elevado de lo que te parece

Debe haber alguna magica propiedad matematica que permita generar estos tableros de una forma mucho mas rapida

Hay bucles en los que invocas a funciones que invocan a mas bucles... y esto se repite con varias veces de anidamiento

[jhonalone]

Hola Agustín.
Seguro que tienes razón y existe alguna manera más eficiente de generar el tablero.
Pero seguramente no sea lo que más retrasa. Te explico.

He hecho comprobaciones de tiempo con la Tableta, que es el dispositivo más lento, para ver las diferencias.

Como te dije, he hecho una prueba implementando una pantalla de bienvenida en un form con un botón que es el que llama al form donde está implementado todo el programa con Forrm2.Show. En el procedimiento OnShow hace toda la generación del programa incluido el generador del tablero. Los resultados son los siguientes:

En cargar todo el programa y la pantalla de bienvenida tarda 18/19 seg.
Al pulsar el botón llama al procedimiento OnShow y tarda 11/12 seg.

Evidentemente, la mayor parte del tiempo de espera se la lleva la carga del programa.
Te recuerdo que el programa, sin pantalla de bienvenida, en Windows tarda en cargar y presentar el primer tablero UN SEGUNDO ESCASO.

Voy a estudiar el enlace que me dejaste y te cuento.

Saludos.

[[AgustinOrtu]]

Cuantos y que componentes tenés en el form?

[jhonalone]

Hola a todos.

Agradeciendo el desinteresado interés que habéis puesto ambos en ayudarme.

Para los que defienden lo "indefendible" (Neftalí) Para los que creen que tengo cosas raras y pesadas en mi código (Agustín)

Para el que quiera escucharlo.

He hecho más pruebas.

Código Delphi [-]
unit Principal;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,
  FMX.Controls.Presentation, FMX.StdCtrls, FMX.Layouts;

type
  TPrin = class(TForm)
    ScaledLayout1: TScaledLayout;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Prin: TPrin;

implementation

{$R *.fmx}

end.

Aquí tenéis un código muuuuuuiiiiii peeeeesaaaadoooo.

Ninguna TLabel tiene más de 4 palabras.

¿A que no sabéis lo que tarda en aparecer la pantalla en mi tableta Samsung GalaXY Tab 3?

Bien. Probarlo vosotros y la solución mañana.

Saludos.

[jhonalone]

Por cierto. Agustín.
El link que me me dejaste, he estado trabajando toda la tarde con él y tres cosas:
1.- El código bajado no compila. No encuentra el directorio c:\res (Es el error que da).
2.- Generando un proyecto nuevo y copiando el código. Intenta poner en marcha la unidad Principal2.pas (que es el programa de Sudoku) y el sistema Android de la misma tableta lo aborta antes de verse la pantalla del Sudoku.
3.- Este método es muy similar al que yo estoy utilizando con la unidad que he colgado más arriba ampliado en un único procedure llamado Button1Click() y que lleva el código siguiente:

Código Delphi [-]
procedure TPrin.Button1Click(Sender: TObject);
begin
Prin.Visible:=False;

Princi.Show; // El nombre de la unidad Principal2.pas (que lleva todo el programa de sudoku)

end;

Este es el esquema del programa de la unidad Principal2.pas que lleva todo el programa de Sudoku

Código Delphi [-]
unit Principal2;

interface

uses
.....................

  TPrinci = class(TForm)
...........

var
  Princi: TPrinci;
...........

Y con esto si que arranca el programa Sudoku, pero tarda en salir la pantalla de TPrin, (que es la pantalla de bienvenida) (os lo digo porque ya es mañana) 18 segundos con el código que os he puesto.
Y después de pulsar el Button1, tarda otros 12 segundos en arrancar el programa de TPrinci (o sea el programa verdadero de Sudoku).

Estuve mirando seriamente lo de los hilos, como dijo Neftalí, pero no encontré cómo implementarlos y sospecho que el programa lanzador tardará otros 18 segundos (en negro) en arrancar, con la fea e innecesaria imagen que transmite esa pantalla que todos sabemos que es de relleno y de espera.

Saludos. Buenas noches.

[[AgustinOrtu]]

Los thread no van a ser la solucion, al menos no de manera simple. En lo unico que te puede ayudar un thread es si implementas el codigo en paralelo, y como dije, es algo muy complicado a menos que entiendas que son los deadlocks, como compartir recursos entre varios hilos, y como permitir a esos hilos que escriban en el mismo recurso

Yo he hecho aplicaciones Android simples y tambien "complejas" por ejemplo que se conectan a servidores remotos, guardan informacion en forma local, y muestran tablas de bases de datos y no he tenido grandes problemas

No me respondiste la pregunta

Si realmente creas un form con 4 label no te puede tardar ni 12 ni 18 segundos nunca