Grafik Çizdirme

[ssteeltr]

arkadaşlar her x değeri için karşılığı olan y değerlerinin gösterildiği bir graği nasıl çizerim

* Y ler
*
* - --
* / \ /
* / \---- /
* / \..../
* /
* /
* * * * * * * * * * * * * * * * * * ** X ler

[ssteeltr]

arkadaşlar yukarıdakş şekil çizdiğim gibi çıkmadı

grafik aşagıdaki gibi

[fatihtolgaata]

TChart

[unicorn64]

çizim ne için gerekli??

canvas.moveto(x,y);
canvas.lineto(x,y);

kullanılarak da çizdirebilirsin...

[mrmarman]

@ssteeltr

- Dilediğin grafiği @unicorn64'un dediği gibi canvas operasyonları ile çizdirmen mümkün.

bkz. viewtopic.php?t=21144#120565

- Delphi'deki TChart bileşenini kullanmak istersen senin değerlerini uyguladığım hali...



şeklinde chart oluşturan kodları vereyim incelersin. Forma bir tane TChart koy ve bir TButton altına şunları ekle...

Kod: Tümünü seç

Var
  Seri1 : TLineSeries; // USES Series
  Seri2 : TPointSeries;
begin
  With Chart1 do begin
    View3D               := False;
    Title.Text.Text      := 'TChart Örneği - Başlık';
    BottomAxis.Minimum   :=  0;
    BottomAxis.Maximum   := 70;
    BottomAxis.Increment := 10;
    BottomAxis.Automatic := False;
    BottomAxis.Title.Caption := '10''luk yatay artış değerleri';

    LeftAxis.Minimum     := 0;
    LeftAxis.Maximum     := 0.8;
    LeftAxis.Increment   := 0.1;
    LeftAxis.Automatic   := False;
    LeftAxis.Title.Caption := '0.1''lik düşey artış değerleri';
  end;
  Seri1             := TLineSeries.Create(Nil);
  Seri1.Title       := 'Çizgi Seri'; // Birden fazla seri varsa bu başlık görülür.
  Seri1.ParentChart := Chart1;
  Seri1.VertAxis    := aLeftAxis;
  Seri1.AddXY(0,  0   );
  Seri1.AddXY(10, 0.2 );
  Seri1.AddXY(20, 0.4 );
  Seri1.AddXY(30, 0.6 );
  Seri1.AddXY(40, 0.7 );
  Seri1.AddXY(50, 0.65);
  Seri1.AddXY(60, 0.6 );
  Seri1.AddXY(70, 0.5 );

  Seri2 := TPointSeries.Create(Nil);
  Seri2.Title       := 'Nokta Seri';
  Seri2.ParentChart := Chart1;
  Seri2.VertAxis    := aLeftAxis;
  Seri2.AddXY(0,  0   );
  Seri2.AddXY(10, 0.2 );
  Seri2.AddXY(20, 0.4 );
  Seri2.AddXY(30, 0.6 );
  Seri2.AddXY(40, 0.7 );
  Seri2.AddXY(50, 0.65);
  Seri2.AddXY(60, 0.6 );
  Seri2.AddXY(70, 0.5 );
end;

[ssteeltr]

Arkadaşlar gerçekten çok teşekkür ederim çok yardımcı oldunuz.

inanın çok teşekkürler