No sé si lo he entendido bien, ¿es algo así?
Código Delphi
[-]
INTERFACE
const
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
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