Ver Mensaje Individual
  #7  
Antiguo 16-11-2005
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
No sé si lo he entendido bien, ¿es algo así?
Código Delphi [-]
 INTERFACE
const
    // ta = Temperatura Ambiente
{ estos nombres me los he inventado, supongo que tu  puedes
  darle nombres más adecuados
}
     taAlSol = -1.7600413686E-2;
     taSinViento= 3.8921204975E-2;
     taConViento := 1.8558770032E-5;
    ....

 type
     TTemperaturaAmbiente = Class(TParametro)
 
     Private
 
     TempToVolt:array[0..9] of double;
 
     Public
       Constructor Create();
       Function GetValue(): double; Override;
       Function GetVolt(): double; Override;
       Function toVTermK():double;
     End;
 
 IMPLEMENTATION
 
 {########## TTemperaturaAmbiente ################}
 {--------------------------------------------------------}
   Constructor TTemperaturaAmbiente.Create;
   Begin
     TempToVolt[0] := taAlSol;
     TempToVolt[1] := taSinViento;
     TempToVolt[2] := taConViento;
     ....
   End;
 
 {--------------------------------------------------------}
   Function TTemperaturaAmbiente.GetVolt;
   Begin
        Result := (((MaxVolt-MinVolt)/(Power(2,NumBits)))*(Fuente.getFromBuffer(Ubicacion)/Multiplicador))+MinVolt;
   End;
 {--------------------------------------------------------}
   Function TTemperaturaAmbiente.GetValue;
   Begin
        Result := (Self.GetVolt*Pendiente)+Ordenada;
   End;
 {--------------------------------------------------------}
   Function TTemperaturaAmbiente.toVTermK():double;
   Var
     Aux: Double;
     i:Integer;
 
   Begin
     Aux:= 0;
     For i:=0 to 9 do
       Aux:=Aux+(TempToVolt[i]*Power(Self.GetValue,i));
     Result:= Aux;
   End;
 {--------------------------------------------------------}

De esta forma, el usuario de la clase, puede usar las constantes para saber qué temperatura se devuelve.

Ya nos contarás. Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.
Responder Con Cita