Bueno, y así es como se ve en el mio, y como se debería ver en los otros dispositivos si el sistema funciona.
Screenshot_2014-09-21-02-48-09.pngScreenshot_2014-09-21-02-48-15.png
Bueno, no tiene más la pantalla principal donde aparecen los diferentes tamaños de texto, el botón "datos de dispositivo" que nos lleva a la escena en el que se ven los datos de cada dispositivo" y los botones salir.
En cuanto al código: la tarea que lanza la aplicación es esta:
1. Si %PtxtT(16) -> No ajustado
(Esto evitará que vuelv a realizar estos cálculos cada vez que se ejecuta la aplicación)
..... 2. Test Display DPI -> %Ptxtdpi
(Ofrece la información de los DPI del dispositivo)
..... 3. Test Display Resolución -> %Ptxtres
(Ofrece la información de la resolución horizontal y vertical del dispositivo)
..... 4. Separar Variable %Ptxtdpi -> x
(Dividimos los dpi por la "x" y en la hija uno tenemos horizontal y en la segunda los dpi vertival)
..... 5. Separar Variable %Ptxtres -> x
(Dividimos la resolución por la "x" y en la hija uno tenemos la horizontal y en la segunda la vertival)
..... 6. Establecer Variable %Ptxtresdig -> sqrt(((%Ptxtres1)^2)+((%Ptxtres2)^2)) CLACULAR
(Simple pitágoras para calcular el valor de resolución de la diagonal, D^2=H^2 + V^2)
..... 7. Establecer Variable %PtxtVpul -> (%Ptxtres2)/(%Ptxtdpi2) CALCULAR
(Calculamos las pulgadas en dirección vertical, para ello se divide la resolución vertical entre los dpi verticales)
..... 8. Establecer Variable %PtxtHpul -> (%Ptxtres1)/(%Ptxtdpi1) CALCULAR
(Calculamos las pulgadas en dirección horizontal, para ello se divide la resolución horizontal entre los dpi horizontales)
..... 9. Establecer Variable %Ptxtpuldig -> sqrt(((%PtxHpul)^2)+((%PtxtVpul)^2)) CLACULAR
(Otro pitagoras, esta vez para saber las pulgadas en diagonal, el valor caracteristico)
.... 10. Establecer Variable %Ptxtdpidig -> (%Ptxtresdig)/(%Ptxtpuldig) CALCULAR
(Dividimos resolución diagonal entre las pulgadas para obtener el valor en dpi de la diagonal de toda la pantalla)
.... 11. Establecer Variable %PtxtInv -> 1000/(%Ptxtdpidig) CALCULAR
(Hacemos la inversa y multiplicamos por 1000 para que nodesaparezca el valor por desaparición de decimales)
.... 12. For %ptxttam ->Items-> 10,16,20,25,150
(Un for donde se añadiran los diferentes tamaños de texto que empleará nuestra app)
........ 13. Establecer Variable %PtxtT(%ptxttam) -> (%PtxtInv)*(%ptxttam)/4.492 CALCULAR
(Esta es la regla que busca la equivalencia entre nuestro dispositivo y otros, en este caso, entre el mio y los vuestros, y en el mio el 4.492 es el valor de la inversa. Por eso, si este código funcionase y lo quisieseis introducir en vuestra app, en el paso11 debereis cambiar ese valor por el que os de a vosotros en la fórmula)
.... 14. End FOR
.... 15. Mostrar escena -> Escena inicio
16. Else
.... 17. Mostrar escena -> Escena inicio
18. Fin si