Obtener parametros de los paneles solares

Programa que calcula partiendo de los siguientes datos: (se obtienen de la hoja de características del fabricante de los módulos fotovoltaicos)

Intensidad de cortocircuito (Isc).

Tensión de circuito abierto (Voc).

Tensión PMP (Vm).

Intensidad PMP (Im).

Porcentaje de eficiencia.

Temperatura operación nominal (TONC) en grados Kelvin.



El software calcularía los siguientes:





Factor de forma (FF).

Temperatura de célula (Tc) en grados kelvin.

Área (Ac) en metros cuadrados.

Máxima potencia (Pm).

Resistencia para PMP (Rm).

Pulsando el botón "Calcular datos irradiancia G" la aplicación obtendrá los siguientes datos en condiciones de irradiancia G:

Temperatura célula (Tc2).

Tensión (Voc2).

Intensidad cortocircuito (Isc2).

Máxima potencia (Pm2).

Eficiencia con G.





Codigo fuente



Autor: ajpdsoft

Fuente:  http://www.ajpdsoft.com/modules.php?name=News&file=article&sid=439



Ejemplo:

Cálculo para un sistema básico fotovoltaico

Corrección: E4=E1xE2xE3, E3 es la cantidad de horas de uso.

Cálculo de la corriente requerida

A1 Carga total diaria (sumar la columna E4)                                      273
watts-hora/día

A2 Tensión CD del sistema (generalmente 12 ó 24 V)                       12 voltios

A3 Carga diaria corriente (A1/A2)                                                     
22.8 amperios-hora

A4 Multiplicar con el factor de seguridad 20% (para
compensar

las pérdidas en las baterías y otros componentes)                           1.2

A5 Carga diaria corriente corregida (A4*A3)                                     27.3
amperios-hora

A6 Promedio de horas de sol por día.                                               
4 horas

A7 Amperaje que el sistema tendrá que producir (A5/A6)                 6.8 amperios

Cálculo del número de paneles

B1 Amperaje máximo del modulo solar seleccionado

(según especificaciones del fabricante)                                            
3.9 amperios

B2 Divida la línea A7 entre la B1 para obtener el número

de módulos que se necesita                                                             
1.75

B3 Redondee al número completo inmediato superior                       2

Cálculo del número de baterías

C1 Carga total diaria (A5)                                                                  
27.3 amperios-hora

C2 Días de reserva (este es el tiempo que el

sistema tiene que estar funcionando sin sol)                                     3

C3 Capacidad nominal del banco de baterías (C1*C2)                       81.9 amperios-hora

C4 Factor de profundidad de descarga (generalmente 80%,

significa que siempre se deja un 20% de reserva en las
baterías)    0.8

C5 Capacidad corregida del banco de baterías (C3/C4)                    102.4 amperios-hora

C6 Capacidad nominal de batería

(según especificaciones del fabricante)                                             
120 amperios-hora

C7 Número de baterías       
(C5/C6)                                                   0.9

C8 Número de baterías (redondear C7)                                              1

Rotaciones en 3D con RAD Studio

En este post veremos cómo crear y rotar una figura en 3D,  utilizando Delphi RAD Studio.

Empezamos desde File – New – Multi-Device Application y
seleccionamos “3D Application”

A continuación vamos añadiendo los componentes básicos:

-     tViewPort3D : será el lienzo donde se mostrará la
animación en 3D.

-    tColorMaterialSource, en la propiedad “Color”
selecciono “Snow”

.

-  tLightMaterialSource, dejamos marcadas las

propiedades como se indica en la imagen: 

Ahora tenemos que indicar la orientación de la luz y la
orientación del observador de la escena.

Añadimos 2 componentes más:

tLight

tCamera

Estos dos últimos componentes tienen unos botones de control
que permiten moverlos en los 3 ejes del espacio.

Y otro botón más que permite cambiar el tamaño de cada una
de las caras del objeto.

Por último sólo nos queda añadir los bloques de la figura
que queremos crear.

En nuestro caso utilizaremos los siguientes:

tRoundcube (el bloque principal), tPlane (será la pantalla)
y dos tDisk correspondientes a las cámaras

Utilizando los controles de orientación tendremos que mover
cada bloque hasta conseguir lo siguiente:

Ahora sólo nos queda conseguir el movimiento de la figura

Lo haremos utilizando un tTimer y variaremos el ángulo de
rotación.

PROCEDURE TForm1.Timer1Timer(Sender: TObject);

BEGIN

  WITH
RoundCube1.RotationAngle DO

    Point := Point +
Point3D(2, 0, 0);

END;

Activamos el Timer y 
¡¡ ya lo tenemos !!

UNIT Unit1;

INTERFACE

USES
  System.SysUtils, System.Types, System.UITypes, System.Classes,
  System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
  System.Math.Vectors, FMX.Types3D, System.Sensors, System.Sensors.Components,
  FMX.Controls.Presentation, FMX.StdCtrls, FMX.Layouts, FMX.MaterialSources,
  FMX.Objects3D, FMX.Controls3D, FMX.Viewport3D;

TYPE
  TForm1 = CLASS(TForm)
    Viewport3D1: TViewport3D;
    Dummy1: TDummy;
    Camera1: TCamera;
    Light1: TLight;
    RoundCube1: TRoundCube;
    Plane1: TPlane;
    Disk1: TDisk;
    LightMaterialSource1: TLightMaterialSource;
    ColorMaterialSource1: TColorMaterialSource;
    Disk2: TDisk;
    Timer1: TTimer;
    PROCEDURE Timer1Timer(Sender: TObject);
  PRIVATE
    { Private declarations }
  PUBLIC
    { Public declarations }
  END;

VAR
  Form1: TForm1;

IMPLEMENTATION

{$R *.fmx}


PROCEDURE TForm1.Timer1Timer(Sender: TObject);
BEGIN

  WITH RoundCube1.RotationAngle DO
    Point := Point + Point3D(2, 0, 0);

END;

END.

Crear códigos QR

 

 

Los códigos QR son una forma eficiente de almacenar y acceder a información. Las ventajas de usarlos son:

1. Facilidad de uso: Los códigos QR pueden ser escaneados fácilmente con la mayoría de los smartphones.
2. Versatilidad: Pueden ser utilizados para una amplia gama de propósitos, desde el marketing hasta la identificación de productos.
3. Eficiencia: Permiten un acceso rápido a la información, simplemente escaneando el código con un dispositivo móvil.
4. Ahorro de espacio: Pueden almacenar una gran cantidad de información en un espacio muy pequeño.

Ahora, vamos a ver cómo podríamos generar códigos QR en Delphi. Para este ejemplo, se necesita una biblioteca de terceros para generar códigos QR, como “DelphiZXingQRCode”.

En el archivo adjunto les dejo al archivo  DelphiZXingQRCode.pas en la carpeta "Source"

UNIT DelphiZXingQRCodeTestAppMainForm;

// Demo app for ZXing QRCode port to Delphi, by Debenu Pty Ltd (www.debenu.com)
// Need a PDF SDK? Checkout Debenu Quick PDF Library: http://www.debenu.com/products/development/debenu-pdf-library/

INTERFACE

USES
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, DelphiZXingQRCode, Vcl.ExtCtrls,
  Vcl.StdCtrls, jpeg;

TYPE
  TForm1 = CLASS(TForm)
    edtText: TEdit;
    Label1: TLabel;
    cmbEncoding: TComboBox;
    Label2: TLabel;
    Label3: TLabel;
    edtQuietZone: TEdit;
    Label4: TLabel;
    PaintBox1: TPaintBox;
    Memo1: TMemo;
    Button1: TButton;
    Label5: TLabel;
    PROCEDURE HazCodigoQR(texto: STRING);
    PROCEDURE FormDestroy(Sender: TObject);
    PROCEDURE FormCreate(Sender: TObject);
    PROCEDURE PaintBox1Paint(Sender: TObject);
    PROCEDURE edtTextChange(Sender: TObject);
    PROCEDURE cmbEncodingChange(Sender: TObject);
    PROCEDURE edtQuietZoneChange(Sender: TObject);
    PROCEDURE Button1Click(Sender: TObject);
    PROCEDURE CargarFichero;
  PRIVATE
    QRCodeBitmap: TBitmap;
  PUBLIC
    PROCEDURE Update;
  END;

VAR
  Form1: TForm1;

IMPLEMENTATION

{$R *.dfm}

PROCEDURE TForm1.Button1Click(Sender: TObject);
VAR
  i: integer;
  bmp: TBitmap;
  MyJPEG: TJPEGImage;

BEGIN
  bmp := TBitmap.Create;
  MyJPEG := TJPEGImage.Create;
  TRY
    bmp.Width := PaintBox1.Width;
    bmp.Height := PaintBox1.Height;
    FOR i := 0 TO Memo1.lines.count - 1 DO
    BEGIN
      IF trim(Memo1.lines[i]) <> '' THEN
      BEGIN

        HazCodigoQR(Memo1.lines[i]);
        bmp.Canvas.CopyRect(PaintBox1.ClientRect, PaintBox1.Canvas, PaintBox1.ClientRect);
        WITH MyJPEG DO
        BEGIN
          Assign(bmp);
          SaveToFile('.\imagenes\' + Memo1.lines[i] + '.jpg');
        END;

      END;

    END;

  FINALLY
    bmp.Free;
    MyJPEG.Free;
  END;
END;

PROCEDURE TForm1.cmbEncodingChange(Sender: TObject);
BEGIN
  Update;
END;

PROCEDURE TForm1.edtQuietZoneChange(Sender: TObject);
BEGIN
  Update;
END;

PROCEDURE TForm1.edtTextChange(Sender: TObject);
BEGIN
  Update;
END;

PROCEDURE TForm1.FormCreate(Sender: TObject);
BEGIN
  QRCodeBitmap := TBitmap.Create;
  Update;
  CargarFichero;
END;

PROCEDURE TForm1.CargarFichero;
BEGIN
  Memo1.lines.clear;
  Memo1.lines.loadfromfile('codigos.txt');
  Label5.caption := Memo1.lines.count.Tostring;
END;

PROCEDURE TForm1.FormDestroy(Sender: TObject);
BEGIN
  QRCodeBitmap.Free;
END;

PROCEDURE TForm1.PaintBox1Paint(Sender: TObject);
VAR
  Scale: Double;
BEGIN
  PaintBox1.Canvas.Brush.Color := clWhite;
  PaintBox1.Canvas.FillRect(Rect(0, 0, PaintBox1.Width, PaintBox1.Height));
  IF ((QRCodeBitmap.Width > 0) AND (QRCodeBitmap.Height > 0)) THEN
  BEGIN
    IF (PaintBox1.Width < PaintBox1.Height) THEN
    BEGIN
      Scale := PaintBox1.Width / QRCodeBitmap.Width;
    END
    ELSE
    BEGIN
      Scale := PaintBox1.Height / QRCodeBitmap.Height;
    END;
    PaintBox1.Canvas.StretchDraw(Rect(0, 0, Trunc(Scale * QRCodeBitmap.Width), Trunc(Scale * QRCodeBitmap.Height)), QRCodeBitmap);
  END;
END;

PROCEDURE TForm1.Update;
VAR
  QRCode: TDelphiZXingQRCode;
  Row, Column: integer;
BEGIN
  QRCode := TDelphiZXingQRCode.Create;
  TRY
    QRCode.Data := edtText.Text;
    QRCode.Encoding := TQRCodeEncoding(cmbEncoding.ItemIndex);
    QRCode.QuietZone := StrToIntDef(edtQuietZone.Text, 4);
    QRCodeBitmap.SetSize(QRCode.Rows, QRCode.Columns);
    FOR Row := 0 TO QRCode.Rows - 1 DO
    BEGIN
      FOR Column := 0 TO QRCode.Columns - 1 DO
      BEGIN
        IF (QRCode.IsBlack[Row, Column]) THEN
        BEGIN
          QRCodeBitmap.Canvas.Pixels[Column, Row] := clBlack;
        END
        ELSE
        BEGIN
          QRCodeBitmap.Canvas.Pixels[Column, Row] := clWhite;
        END;
      END;
    END;
  FINALLY
    QRCode.Free;
  END;
  PaintBox1.Repaint;
END;

PROCEDURE TForm1.HazCodigoQR(texto: STRING);
VAR
  QRCode: TDelphiZXingQRCode;
  Row, Column: integer;
BEGIN
  QRCode := TDelphiZXingQRCode.Create;
  TRY
    QRCode.Data := texto;
    QRCode.Encoding := TQRCodeEncoding(cmbEncoding.ItemIndex);
    QRCode.QuietZone := StrToIntDef(edtQuietZone.Text, 4);
    QRCodeBitmap.SetSize(QRCode.Rows, QRCode.Columns);
    FOR Row := 0 TO QRCode.Rows - 1 DO
    BEGIN
      FOR Column := 0 TO QRCode.Columns - 1 DO
      BEGIN
        IF (QRCode.IsBlack[Row, Column]) THEN
        BEGIN
          QRCodeBitmap.Canvas.Pixels[Column, Row] := clBlack;
        END
        ELSE
        BEGIN
          QRCodeBitmap.Canvas.Pixels[Column, Row] := clWhite;
        END;
      END;
    END;
  FINALLY
    QRCode.Free;
  END;
  PaintBox1.Repaint;
END;

END.

 

Una vez compilado el programa se muestra así:

 

No se necesita instalar librerías, ni dlls adicionales, únicamente hay que utilizar la unit DelphiZXingQRCode.pas

Lo que hace el programa es leer las líneas del fichero "codigos.txt"

El fichero contiene números del 100 al 104.

Para cada línea genera su código QR como si fuese una imagen y la guarda en la carpeta "imágenes" siguiendo el esquema:  <linea>.jpg

Y al final el resultado es el siguiente:

 Descargar programa