Search options (Page 3 of 9)

Var
     ChartLine : TChart;

procedure Form1_bLinUpdate_OnClick (Sender: TObject; var Cancel: boolean);
//*** Proc 1334 - LINHA DE TENDÊNCIA GRÁFICO DE LINHA - CHATGPT
var
  Results   : TDataSet;
  DateValue : Double;    // valor TDateTime vindo do SQL
  sValor    : String;
  yVal      : Double;

  // somatórios para regressão (usamos X deslocado = Data - BaseDate)
  sumX, sumY, sumXY, sumX2: Double;
  n: Integer;
  a, b: Double;          // coeficientes da reta y = a*Xoffset + b
  BaseDate, FirstDate, LastDate: Double;
  Xoffset: Double;
  Trend: TLineSeries;
begin
  // Garante que exista ao menos uma série para os valores
  if ChartLine.SeriesCount = 0 then
    ChartLine.AddSeries(TLineSeries.Create(ChartLine));

  // Limpa série de valores
  ChartLine.Series[0].Clear;

  // Assegura que exista a série 1 para a tendência e que seja TLineSeries
  if ChartLine.SeriesCount < 2 then
    ChartLine.AddSeries(TLineSeries.Create(ChartLine))
  else if not (ChartLine.Series[1] is TLineSeries) then
  begin
    ChartLine.Series[1].Free;
    ChartLine.AddSeries(TLineSeries.Create(ChartLine));
  end;

  Trend := TLineSeries(ChartLine.Series[1]);
  Trend.Clear;
  Trend.SeriesColor := clRed;
  Trend.Title := 'Tendência';

  // Formatação do eixo X como data (ajuste visual)
  ChartLine.Axes.Bottom.LabelStyle := talValue;
  ChartLine.Axes.Bottom.DateTimeFormat := 'dd/mm/yyyy';
  ChartLine.Axes.Bottom.LabelsAngle := 90;
  ChartLine.Legend.Visible := True;

  // Inicializa acumuladores
  sumX := 0; sumY := 0; sumXY := 0; sumX2 := 0;
  n := 0;
  BaseDate := 0; FirstDate := 0; LastDate := 0;

  // Query (ordem ASC para cronologia)
  SQLQuery(
    'SELECT Data, valor FROM tbl_medicoes WHERE'+
    ' id_tbl_parametros = '+IntToStr(Form1.cbo_parametro.dbItemID)+' and id_tbl_usuarios = '+IntToStr(Form1.cbo_user.dbItemID)+
    ' and Data >= '+Form1.dt_ano_mes_ini.sqlDate+' and Data <= '+Form1.dt_ano_mes_fim.sqlDate+' and'+
    ' case when length("'+Form1.cbo_sit.Text+'") = 0 then 1=1 else id_tbl_situacao = ' + IntToStr(Form1.cbo_sit.dbItemID)+' end and'+
    ' case when length("'+Form1.cbo_status.Text+'") = 0 then 1=1 else id_tbl_status = ' + IntToStr(Form1.cbo_status.dbItemID)+' end'+
    ' ORDER BY Data ASC',
    Results
  );

  // Percorre resultados — plota pontos e acumula para regressão (usando offset de data)
  while not Results.Eof do
  begin
    DateValue := SQLDateTimeToDateTime(Results.FieldByName('Data').AsString);
    sValor := Results.FieldByName('valor').AsString;

    // tenta converter o valor (aceita "12,5" ou "12.5")
    try
      yVal := StrToFloatLocale(sValor);
    except
      // se não for número válido, ignora este registro
      Results.Next;
      Continue;
    end;

    // primeira data define base (offset = 0)
    if n = 0 then
    begin
      BaseDate := DateValue;
      FirstDate := DateValue;
    end;

    LastDate := DateValue;
    Xoffset := DateValue - BaseDate; // em dias (Double)

    // adiciona ponto real no gráfico (eixo X = DateValue)
    ChartLine.Series[0].AddXY(DateValue, yVal);

    // acumula somatórios usando Xoffset
    sumX  := sumX + Xoffset;
    sumY  := sumY + yVal;
    sumXY := sumXY + (Xoffset * yVal);
    sumX2 := sumX2 + (Xoffset * Xoffset);
    Inc(n);

    Results.Next;
  end;

  // calcula regressão (mínimos quadrados) sobre Xoffset
  if n > 1 then
  begin
    // coeficiente angular a e intercepto b (em relação a Xoffset)
    a := (n * sumXY - sumX * sumY) / (n * sumX2 - sumX * sumX);
    b := (sumY - a * sumX) / n;

    // Desenha a linha de tendência usando as datas reais (primeira e ultima)
    // yParaFirst = a*(FirstDate-BaseDate) + b  (FirstDate-BaseDate = 0)
    Trend.AddXY(FirstDate, a * 0 + b, '', clRed);
    Trend.AddXY(LastDate,  a * (LastDate - BaseDate) + b, '', clRed);
  end;

  // Títulos para a legenda
  ChartLine.Series[0].Title := 'Valores';
  Trend.Title := 'Tendência';
end;

// Função auxiliar que tenta converter string float aceitando pontos ou vírgulas
function StrToFloatLocale(const S: string): Double;
var
  s1: string;
begin
  // tenta conversão direta (sistema local)
  try
    Result := StrToFloat(S);
    Exit;
  except end;

  // tenta trocar '.' por ',' (ex.: "2.25" -> "2,25")
  s1 := ReplaceStr(S, '.', ',');
  try
    Result := StrToFloat(s1);
    Exit;
  except end;

  // tenta trocar ',' por '.'
  s1 := ReplaceStr(S, ',', '.');
  Result := StrToFloat(s1);
end;

procedure Form1_OnShow (Sender: string; Action: string);
begin

    // CHARTLINE====================================================================
    ChartLine := TChart.Create(Form1);
    ChartLine.Parent := Form1.Panel1;
    ChartLine.Align  := alClient;
    ChartLine.AddSeries(TLineSeries.Create(ChartLine));
    ChartLine.Series[0].XValues.DateTime := True;
    ChartLine.BottomAxis.LabelsAngle     := 90;
end;

function ReplaceStrEx(AText, FromText, ToText: string): string;
var //*** Proc 60 - replace por Dmitry
    ArStr: array of string;
    i, c: integer;
begin
    ArStr := SplitString(FromText, ',');
    c := Length(ArStr)-1;
    for i := 0 to c do
    begin
        AText := ReplaceStr(AText, ArStr[i], ToText);
    end;
    result := AText;
end;