Utilizamos cookies propias y de terceros. Al navegar entendemos que aceptas el uso de cookies. +Info.
Política de cookies
Proyecto AjpdSoft

· Inicio
· Buscar
· Contactar
· Cookies
· Descargas
· Foros
· Historia
· Nosotros
· Proponer
· Temas
· Top 10
· Trucos
· Tutoriales
· Usuario
· Wiki

Nick


Contraseña


Nuevo usuario


English

Delphi: AjpdSoft Cálculo parámetros módulos fotovoltaicos
AjpdSoft


Añadida a la sección Descargas la aplicación AjpdSoft Cálculo parámetros módulos fotovoltaicos: el programa está planteado para que con los datos de una hoja de características de un módulo fotovoltaico comercial, calcular algunos otros datos desconocidos y que nos pueda interesar conocer. Liberamos el código fuente - source code en Borland Delphi 6 100% Open Source.



 

 

Características más importantes de AjpdSoft Cálculo parámetros módulos fotovoltaicos

  • Aplicación de muy sencillo manejo, muy fácil e intuitiva, todas las opciones están en una misma ventana.
  • La aplicación ha sido desarrollada en el lenguaje de programación Borland Delphi 6.
  • No necesita instalación, es suficiente con ejecutar el fichero celulas.exe.
  • Calcula los datos del módulo para STC (factor de forma, temperatura de célula, área, máxima potencia, resistencia para PMP) a partir de los standar conditions test (intensidad de cortocircuito, tensión de circuito abierto, tensión PMP, intensidad PMP, porcentaje de eficiencia, temperatura operación nominal).
  • Muestra los cálculos obtenidos en pantalla.

 

AjpdSoft Cálculo parámetros módulos fotovoltaicos en funcionamiento

AjpdSoft Cálculo parámetros módulos fotovoltaicos está planteado para que con los datos de una hoja de características de un módulo fotovoltaico comercial, calcular algunos otros datos desconocidos y que nos pueda interesar conocer.

Por ejemplo, a partir de los datos siguientes medidos en condiciones de medición estándar del módulo: intensidad de cortocircuito, tensión de circuito abierto, tensión PMP, intensidad PMP, eficiencia y TONC se puede calcular los siguientes otros datos del módulo: Factor de Forma, Temperatura de Célula, Área de célula, Potencia y Resistencia para el Punto de Máxima Potencia.

Además, se puede obtener a partir de la irradiancia, medida en W/m2, y la temperatura ambiente la temperatura de la célula, tensión, intensidad cortocircuito, máxima potencia y eficiencia con un nivel de irradiancia (G) distinto al de las condiciones estándar.

El programa también realiza algunas conversiones de temperaturas (grados Centígrados, grados Fahrenheit, grados Kelvin) y conversiones de superficie: metros cuadrados, centímetros cuadrados, milímetros cuadrados, superficie.

Para que la aplicación realice los cálculos automáticos del módulo para STC, pulsaremos en "Introducir datos conocidos" he introduciremos los standar conditions test:

  • 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.

Una vez introducidos los datos conocidos (standar conditions test) pulsaremos en "Calcular datos STC":

AjpdSoft Cálculo parámetros módulos fotovoltaicos

La aplicación calculará los datos del módulo para STC:

  • 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 calculará automáticamente 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.

AjpdSoft Cálculo parámetros módulos fotovoltaicos

Además, la aplicación permite realizar conversiones de superficie (de metros cuadrados a centímetros cuadrados y milímetros cuadrados), calcula la superficie a partir del largo y el ancho. Para ello marcaremos el chec de "Superficie" y marcaremos por qué unidad queremos convertir:

AjpdSoft Cálculo parámetros módulos fotovoltaicos

La aplicación también permite convertir temperaturas de grados centígrados a grados farenheit y grados kelvin y viceversa. Para ello marcaremos el chec de "Temperaturas" y seleccionaremos la unidad a convertir:

AjpdSoft Cálculo parámetros módulos fotovoltaicos

 

 

Instalación y configuración de AjpdSoft Cálculo parámetros módulos fotovoltaicos

Podéis descargar el programa con el código fuente (freeware, gratuito) desde esta URL:

Descarga gratuita (freeware) de AjpdSoft Cálculo parámetros módulos fotovoltaicos

Para el correcto funcionamiento sólo es necesario el fichero celulas.exe, el resto de ficheros corresponden al código fuente y no son necesarios para su ejecución.

La aplicación no necesita instalación, el fichero celulas.exe se puede ejecutar directamente.

 

Datos técnicos de AjpdSoft Cálculo parámetros módulos fotovoltaicos

Esta aplicación ha sido desarrollada en el lenguaje de programación Borland Delphi 6.

Si eres desarrollador de software y te has registrado en nuestra web (si aún no te has registrado puedes hacerlo desde aquí gratuitamente) puedes descargar el código fuente 100% Open Source (completo y totalmente gratuito) en Borland (ahora Codegear) Delphi 6:

AjpdSoft Cálculo parámetros módulos fotovoltaicos (Código fuente Open Source en Borland Delphi 6)

AjpdSoft Cálculo parámetros módulos fotovoltaicos ha sido testeada y funciona correctamente en equipos con sistemas operativos: Windows 98, Windows XP, Windows 2000 Server, Windows Server 2003, Windows Vista y Windows Seven (7).

 

A quién va dirigida AjpdSoft Cálculo parámetros módulos fotovoltaicos

La aplicación va dirigida a ingenieros y trabajadores que quieran montar placas solares, permite calcular determinados parámetros útiles para el correcto montaje de las placas solares. También puede ser útil para estudiantes que tengan que realizar algún proyecto de cálculo de parámetros para módulos fotovoltaicos.

 

Anexo

  • Código fuente (source code) de la aplicación completa:

 

unit parametros_celula;
  {$R WinXP.res}

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TF_parametrosCelula = class(TForm)
    GB_SCT: TGroupBox;
    L_Isc: TLabel;
    L_Voc: TLabel;
    E_Voc: TEdit;
    E_Isc: TEdit;
    GB_datosCelula: TGroupBox;
    F_factorforma: TLabel;
    L_tempCelula: TLabel;
    E_FF: TEdit;
    E_Tc: TEdit;
    L_Vm: TLabel;
    E_Vm: TEdit;
    E_Im: TEdit;
    l_Im: TLabel;
    GB_DatosAmbientales: TGroupBox;
    L_TempAmbiente: TLabel;
    L_irradiancia: TLabel;
    E_Ta: TEdit;
    E_irradiancia: TEdit;
    L_areaCelula: TLabel;
    E_Ac: TEdit;
    B_calcular: TButton;
    CB_datosCelula: TCheckBox;
    B_salir: TButton;
    GB_temperaturas: TGroupBox;
    E_centigrados: TEdit;
    E_kelvin: TEdit;
    E_farenheit: TEdit;
    L_centigrados: TLabel;
    L_kelvin: TLabel;
    B_convertir: TButton;
    Cb_temperaturas: TCheckBox;
    B_calcular2: TButton;
    RB_farenheit: TRadioButton;
    RB_centigrados: TRadioButton;
    RB_kelvin: TRadioButton;
    L_farenheit: TLabel;
    E_eficiencia: TEdit;
    L_eficiencia: TLabel;
    Gb_conciciones2: TGroupBox;
    L_Isc2: TLabel;
    L_Voc2: TLabel;
    L_TCelula2: TLabel;
    E_Tc2: TEdit;
    E_Voc2: TEdit;
    E_Isc2: TEdit;
    L_pm: TLabel;
    E_Pm: TEdit;
    L_Rm: TLabel;
    E_Rm: TEdit;
    E_pmp2: TEdit;
    L_pmp2: TLabel;
    L_eficiencia2: TLabel;
    E_eficiencia2: TEdit;
    Label4: TLabel;
    E_TONC: TEdit;
    B_limpiar: TButton;
    GB_superficie: TGroupBox;
    L_m2: TLabel;
    L_cm2: TLabel;
    L_mm2: TLabel;
    E_m2: TEdit;
    E_cm2: TEdit;
    E_mm2: TEdit;
    B_convertirSuperficie: TButton;
    CB_superficie: TCheckBox;
    RB_mm2: TRadioButton;
    RB_m2: TRadioButton;
    RB_Cm2: TRadioButton;
    LE_largo: TLabeledEdit;
    LE_ancho: TLabeledEdit;
    B_calcularSuperficie: TButton;
    procedure B_salirClick(Sender: TObject);
    procedure CB_datosCelulaClick(Sender: TObject);
    procedure B_calcularClick(Sender: TObject);
    procedure Cb_temperaturasClick(Sender: TObject);
    procedure B_convertirClick(Sender: TObject);
    procedure B_calcular2Click(Sender: TObject);
    procedure RB_centigradosClick(Sender: TObject);
    procedure RB_kelvinClick(Sender: TObject);
    procedure RB_farenheitClick(Sender: TObject);
    procedure B_limpiarClick(Sender: TObject);
    procedure RB_m2Click(Sender: TObject);
    procedure RB_Cm2Click(Sender: TObject);
    procedure RB_mm2Click(Sender: TObject);
    procedure B_calcularSuperficieClick(Sender: TObject);
    procedure CB_superficieClick(Sender: TObject);
    procedure B_convertirSuperficieClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_parametrosCelula: TF_parametrosCelula;

implementation

{$R *.dfm}

procedure TF_parametrosCelula.B_salirClick(Sender: TObject);
begin
  close;
end;

procedure TF_parametrosCelula.CB_datosCelulaClick(Sender: TObject);
begin
  If CB_datosCelula.checked then
    begin
      E_Isc.enabled := true;
      E_Isc.setfocus;
      B_calcular.enabled := true;
      B_limpiar.enabled := true;
    end
  else
    begin
      E_Isc.enabled := false;
      B_calcular.enabled := false;
      B_calcular2.enabled := false;
      B_limpiar.enabled := false;
    end;
  E_Voc.enabled := E_Isc.enabled;
  E_eficiencia.Enabled := E_Isc.enabled;
  E_Vm.Enabled := E_Isc.enabled;
  E_Im.Enabled := E_Isc.enabled;
  E_Ta.Enabled := E_Isc.enabled;
  E_irradiancia.Enabled := E_Isc.enabled;
  E_TONC.Enabled := E_Isc.enabled;

end;


procedure TF_parametrosCelula.B_calcularClick(Sender: TObject);
var
  FF,Vm,Pm,Im,Voc,Isc,Rm,Ac,eficiencia : real;
  factorF, PotM, resMax, AreCel : string;
  i : integer;
begin
  if (E_Vm.text <> '') and (E_Im.text <> '') and (E_Voc.Text <> '') and
  (E_Isc.Text <> '') and (E_eficiencia.Text <> '') then
     begin
       val(E_Vm.text,Vm,i);
       if (i<>0) then
       begin
         showmessage('Introduzca datos válidos');
         E_Vm.setfocus;
       end;
       Val(E_Im.Text,Im,i);
        if (i<>0) then
          begin
            showmessage('Introduzca datos válidos');
            E_Im.setfocus;
          end;
       Val(E_Voc.Text,Voc,i);
       if (i<>0) then
         begin
           showmessage('Introduzca datos válidos');
           E_Voc.setfocus;
         end;
       Val(E_Isc.Text,Isc,i);
       if (i<>0) then
         begin
           showmessage('Introduzca datos válidos');
           E_Isc.setfocus;
         end;
       val(E_eficiencia.text,eficiencia,i);
       if (i<>0) then
         begin
           showmessage('Introduzca datos válidos');
           E_eficiencia.setfocus;
         end
       else
         Pm := Vm*Im;
         Rm := Vm/Im;
         FF := (Pm)/(Voc*Isc);
         Ac := Pm / 1000*eficiencia;
         str(FF:6:2,factorF);
         E_FF.text := factorF;
         str(Pm:6:2,PotM);
         E_Pm.text := potM;
         str(Rm:6:2,resMax);
         E_Rm.text := resMax;
         str(Ac:6:2,areCel);
         E_Ac.text := areCel;
         E_Tc.text := '298';
         B_calcular2.enabled := true;
       end
  else
    begin
      showmessage('Introduzca los datos necesarios');
      E_Isc.setfocus;
    end;
end;


procedure TF_parametrosCelula.B_calcular2Click(Sender: TObject);

var
  Ta,g,Tonc,Tc2,Voc2,Isc2,Isc,Voc,Tc,FF,Pm2,E2,Ac : real;
  Tcel,Vopen2,Iscir2,Pmp2,efi2 : string;
  i : integer;
begin
  if (E_Ta.text <> '') and (E_TONC.text <> '') and (E_irradiancia.Text <> '') and
  (E_Voc.text <> '') and (E_Isc.text <> '') then
     begin
       val(E_Ta.text,Ta,i);
       if (i<>0) then
         begin
           showmessage('Introduzca datos válidos');
           E_Ta.setfocus;
         end;
       Val(E_TONC.Text,Tonc,i);
       if (i<>0) then
         begin
           showmessage('Introduzca datos válidos');
           E_TONC.setfocus;
         end;
       Val(E_irradiancia.Text,G,i);
       if (i<>0) then
         begin
           showmessage('Introduzca datos válidos');
           E_irradiancia.setfocus;
         end;
       Val(E_Voc.text,Voc,i);
       if (i<>0) then
         begin
           showmessage('Introduzca datos válidos');
           E_Voc.setfocus;
         end;
       Val(E_Isc.text,Isc,i);
       if (i<>0) then
         begin
           showmessage('Introduzca datos válidos');
           E_Isc.setfocus;
         end
       else
         begin
           Tc2 := Ta + g*((tonc-293)/800);
           str(Tc2:6:2,Tcel);
           E_Tc2.text := Tcel;
           Tc := 298;
           Voc2 := Voc - 0.0023*(Tc2-Tc);
           str(Voc2:6:2,Vopen2);
           E_Voc2.text := Vopen2;
           Isc2 := Isc*(G/1000);
           str(Isc2:6:2,Iscir2);
           E_Isc2.Text := Iscir2;
           Val(E_ff.text,ff,i);
           Pm2 := FF*(Isc2*Voc2);
           str(pm2:6:2,pmp2);
           E_pmp2.Text := pmp2;
           Val(E_Ac.text,Ac,i);
           E2 := Pm2/Ac*G;
           str(E2:6:2,efi2);
           E_eficiencia2.text := efi2;
         end;
     end
  else
    begin
      showmessage('Introduzca los datos necesarios');
      E_Isc.setfocus;
    end;
end;

             
procedure TF_parametrosCelula.B_limpiarClick(Sender: TObject);
begin
  E_Isc.Text := '';
  E_Voc.text := '';
  E_eficiencia.text := '';
  E_Pm.text := '';
  E_FF.text := '';
  E_Tc.text := '';
  E_Vm.text := '';
  E_Im.text := '';
  E_Ta.text := '';
  E_irradiancia.text:= '';
  E_Ac.text := '';
  E_TONC.text := '';
  E_Rm.Text := '';
  E_Tc2.Text := '';
  E_Voc2.text := '';
  E_Isc2.text := '';
  E_eficiencia2.text := '';
  E_pmp2.Text := '';
  B_calcular2.enabled := false;
end;


procedure TF_parametrosCelula.Cb_temperaturasClick(Sender: TObject);
begin
  if Cb_temperaturas.Checked then
    begin
      L_kelvin.Enabled := true;
      L_centigrados.enabled := true;
      L_farenheit.enabled := true;
      B_convertir.enabled := true;
      RB_centigrados.Enabled := true;
      RB_kelvin.Enabled := true;
      RB_farenheit.enabled := true;
      RB_centigrados.Checked := true;
      E_centigrados.enabled := true;
      E_centigrados.setfocus;
    end
  else
    begin
      E_centigrados.enabled := false;
      E_farenheit.Enabled := false;
      E_kelvin.enabled := false;
      L_kelvin.Enabled := false;
      L_centigrados.enabled := false;
      L_farenheit.enabled := false;
      B_convertir.enabled := false;
      E_centigrados.Text := '';
      E_farenheit.Text := '';
      E_kelvin.text := '';
      RB_centigrados.Enabled := false;
      RB_kelvin.Enabled := false;
      RB_farenheit.enabled := false;
      RB_centigrados.checked := false;
      RB_kelvin.checked := false;
      RB_farenheit.checked := false;
    end;
end;

procedure TF_parametrosCelula.B_convertirClick(Sender: TObject);
var
  k,c,f,r : real;
  kelv,centi,faren : string;
  i : integer;
begin
  if RB_centigrados.checked then
    begin
      if (E_centigrados.text = '') then
        begin
          showmessage('Introduzca el valor de temperatura conocido');
          E_centigrados.setfocus;
        end
      else
        begin
          {c := strtofloat(E_centigrados.text);}
          val(E_centigrados.text,c,i);// valida el número introducido, si es correcto i=0
          if (i<>0) then             //y si se ha introducido alguna letra i es distinto de cero
            begin
              showmessage('Introduzca un valor de temperatura válido');
              E_centigrados.SetFocus;
            end
          else
            begin
              k := c+273;
              f := (1.8*c)+32;
              str(k:6:2,kelv);
              E_kelvin.text:=kelv;
              str(f:6:2,faren);
              E_farenheit.text:=faren;
            end;
        end;
    end;
  if RB_kelvin.Checked then
    begin
      if (E_kelvin.Text = '') then
        begin
          showmessage('Introduzca el valor de temperatura conocido');
          E_kelvin.setfocus;
        end
      else
        begin
          {k := strtofloat(E_kelvin.text);}
          val(E_kelvin.text,k,i);
          if (i<>0) then
            begin
              showmessage('Introduzca un valor de temperatura válido');
              E_kelvin.SetFocus;
            end
          else
            begin
              c := k-273;
              f := (1.8*c)+32;
              str(c:6:2,centi);
              E_centigrados.text:= centi;
              str(f:6:2,faren);
              E_farenheit.text:=faren;
            end;
        end;
    end;
  if RB_farenheit.Checked then
    begin
      if (E_farenheit.Text = '') then
        begin
          showmessage('Introduzca el valor de temperatura conocido');
          E_kelvin.setfocus;
        end
      else
        begin
          {f := strtofloat(E_farenheit.text);}
          val(E_farenheit.text,f,i);
          if (i<>0) then
            begin
              showmessage('Introduzca un valor de temperatura válido');
              E_farenheit.SetFocus;
            end
          else
            begin
              c := (f-32)/1.8;
              k := c+273;
              str(c:6:2,centi);
              E_centigrados.text:= centi;
              str(k:6:2,kelv);
              E_kelvin.text:=kelv;
            end;
        end;
    end;
end;


procedure TF_parametrosCelula.RB_centigradosClick(Sender: TObject);
begin
  E_centigrados.enabled := true;
  E_centigrados.setfocus;
  E_kelvin.Enabled := false;
  E_farenheit.Enabled := false;
end;

procedure TF_parametrosCelula.RB_kelvinClick(Sender: TObject);
begin
  E_kelvin.enabled := true;
  E_kelvin.setfocus;
  E_centigrados.Enabled := false;
  E_farenheit.Enabled := false;
end;

procedure TF_parametrosCelula.RB_farenheitClick(Sender: TObject);
begin
  E_farenheit.enabled := true;
  E_farenheit.setfocus;
  E_kelvin.Enabled := false;
  E_centigrados.Enabled := false;
end;




procedure TF_parametrosCelula.RB_m2Click(Sender: TObject);
begin
  E_m2.enabled := true;
  E_m2.setfocus;
  E_cm2.Enabled := false;
  E_mm2.Enabled := false;
end;

procedure TF_parametrosCelula.RB_Cm2Click(Sender: TObject);
begin
  E_cm2.enabled := true;
  E_cm2.setfocus;
  E_m2.Enabled := false;
  E_mm2.Enabled := false;
end;

procedure TF_parametrosCelula.RB_mm2Click(Sender: TObject);
begin
  E_mm2.enabled := true;
  E_mm2.setfocus;
  E_m2.Enabled := false;
  E_cm2.Enabled := false;
end;

procedure TF_parametrosCelula.B_calcularSuperficieClick(Sender: TObject);
var
  l,a,s : real;
  superf : string;
  i : integer;
begin
  if (LE_largo.Text <> '') and (LE_ancho.Text <> '') then
    begin
      val(LE_largo.text,l,i);
      val(LE_ancho.text,a,i);
      if (i <> 0) then
        begin
          showmessage('Introduzca valores adecuados');
          LE_largo.setfocus;
        end
      else
        begin
          s := a*l;
          str(s:6:2,superf);
          if RB_m2.checked  then
            E_m2.text := superf;
          if RB_cm2.checked  then
            E_cm2.text := superf;
          if RB_mm2.Checked then
            E_mm2.text := superf;
        end;
      end
  else
    LE_Largo.setfocus;

end;

procedure TF_parametrosCelula.CB_superficieClick(Sender: TObject);
begin
  if CB_superficie.Checked then
    begin
      B_convertirSuperficie.enabled := true;
      B_calcularSuperficie.enabled := true;
      LE_largo.enabled := true;
      LE_ancho.enabled := true;
      L_m2.enabled := true;
      L_cm2.enabled := true;
      L_mm2.enabled := true;
      RB_m2.enabled := true;
      RB_cm2.enabled := true;
      RB_mm2.enabled := true;
      RB_m2.checked := true;
      LE_largo.SetFocus;
    end
  else
    begin
      B_convertirSuperficie.enabled := false;
      B_calcularSuperficie.enabled := false;
      LE_largo.enabled := false;
      LE_ancho.enabled := false;
      L_m2.enabled := false;
      L_cm2.enabled := false;
      L_mm2.enabled := false;
      RB_m2.enabled := false;
      RB_cm2.enabled := false;
      RB_mm2.enabled := false;
      RB_m2.checked := false;
      RB_cm2.Checked:= false;
      RB_mm2.Checked := false;
      LE_largo.Text := '';
      LE_ancho.Text := '';
      E_m2.text := '';
      E_cm2.text := '';
      E_mm2.text := '';
    end;
end;

procedure TF_parametrosCelula.B_convertirSuperficieClick(Sender: TObject);
var
  m2,cm2,mm2 : real;
  metr2,cent2,mili2 : string;
  i : integer;
begin
  if RB_m2.checked then
    begin
      if (E_m2.text = '') then
        begin
          showmessage('Introduzca el valor de superficie en metros cuadrados');
          E_m2.setfocus;
        end
      else
        begin
          val(E_m2.text,m2,i);
          if (i<>0) then
            begin
              showmessage('Introduzca un valor de superficie válido');
              E_m2.SetFocus;
            end
          else
            begin
              cm2 := m2*10000 ;
              mm2 := m2*1000000;
              str(cm2:6:2,cent2);
              E_cm2.text:= cent2;
              str(mm2:6:2,mili2);
              E_mm2.text := mili2;
            end;
        end;
    end;
  if RB_cm2.checked then
    begin
      if (E_cm2.text = '') then
        begin
          showmessage('Introduzca el valor de superficie en centímetros cuadrados');
          E_cm2.setfocus;
        end
      else
        begin
          val(E_cm2.text,cm2,i);
          if (i<>0) then
            begin
              showmessage('Introduzca un valor de superficie válido');
              E_cm2.SetFocus;
            end
          else
            begin
              m2 := cm2/10000 ;
              mm2 := Cm2*10000;
              str(m2:6:6,metr2);
              E_m2.text:= metr2;
              str(mm2:6:2,mili2);
              E_mm2.text := mili2;
            end;
        end;
    end;
  if RB_mm2.checked then
    begin
      if (E_mm2.text = '') then
        begin
          showmessage('Introduzca el valor de superficie en milímetros cuadrados');
          E_mm2.setfocus;
        end
      else
        begin
          val(E_mm2.text,m2,i);
          if (i<>0) then
            begin
              showmessage('Introduzca un valor de superficie válido');
              E_mm2.SetFocus;
            end
          else
            begin
              cm2 := m2/10000 ;
              m2 := m2/1000000;
              str(cm2:6:6,cent2);
              E_cm2.text:= cent2;
              str(m2:6:8,metr2);
              E_m2.text := metr2;
            end;
        end;
    end;
end;

end.
 

Artículos relacionados

 

Créditos

Artículo realizado íntegramente por Alino (Ingeniero Industrial) miembro del proyecto AjpdSoft.

Otros programas desarrollados por Alino:



Nota: Revisado por AjpdSoft el 28-12-2009.
Anuncios


Enviado el Lunes, 07 diciembre a las 03:20:42 por ajpdsoft
Este sitio web NO CONTIENE malware, todos los programas con código fuente aquí. Autor: Alonso Javier Pérez Díaz Google+ Síguenos en Google+