X Y düzleminde grafik...

[uğur alkan]

X ve Y degerlerim iki adet dizide tutuluyor. X ve Y arasında matematiksel bir fonksiyon yok, Y nin X 'e bağımlı degişimini grafik olarak çizmek istiyorum ne önerirsiniz ?
Teşekkürler...

[naile]

Chart nesnesi ile yapabilirsin.

[gkimirti]

TChart kullanabilirsin
bir seri ekle TChart ta data kısmı none olsun

Chart1.Series[0].AddXY(1,5);
Chart1.Series[0].AddXY(8,12);
Chart1.Series[0].AddXY(9,10);

bir butonun olayında calıstır.

[uğur alkan]

TChart kullanabilirsin
bir seri ekle TChart ta data kısmı none olsun

Chart1.Series[0].AddXY(1,5);
Chart1.Series[0].AddXY(8,12);
Chart1.Series[0].AddXY(9,10);

bir butonun olayında calıstır.

series1.AddXY(strtofloat(X),strtofloat(Y)); dediğin gibi yaptım ama
o hala x degerini 1 2 3 4 5... olarak alıyor. Data kısmı nasıl none yapılıyor.

[gkimirti]

TeeChart ekranında Add ile bir series ekliyorsun
ben Line tipi sectim
bu eklenen satırın ustune cift tıklayınca serinin ozellikleri acılıyor
Datasource sekmesini None yaptım ve Close dedim
sonra sana yazdıgım kod ile denedim sorunsuz ekranda x ve y degerlerinden gecen grafigimi elde ettim

[uğur alkan]

data source sekmesinin altında none seçeneği bulunmuyor.
manuel
random
function
crosstab
texfile
xmlfile sekmeleri var none seçenegi yok...
Teechart6.0 kullanıyorum (Trial Versiyon)

[gkimirti]

bendeki TeeChart Por 4.02 delphi 5 ile gelen
No Data yok ise manuel i dene

[uğur alkan]

gkimirti yardımın için çok teşekkür ederim. Ama manuelde bunu çözmüyor hepsini tek tek denedim.

Tchartı sistemden kaldırdım bu seferde chart nesnesi tamamen yok oldu başka bir versiyon denemeyi yada delphiyi yeniden kurmayı düşünüyorum

[mrmarman]

Merhaba...

- Böyle durumlarda işlemleri manuel ele almak çözümü hızlandırır...

Kod: Tümünü seç

Var
  Grafik  : TChart;       // Uses Chart
  Seri1   : TLineSeries;  // Uses Series
  Seri2   : TBarSeries;   // Uses Series
begin
  Grafik := TChart.Create(Self);
     Grafik.Parent := Form1;
     Grafik.Left   := 10;
     Grafik.Top    := 45;
  Seri1             := TLineSeries.Create(Nil);
  Seri1.Title       := 'Bizim Seri';
  Seri1.ParentChart := Grafik;
  Seri1.AddXY(1,5);
  Seri1.AddXY(8,12);
  Seri1.AddXY(9,10);

  Seri2              := TBarSeries.Create(Nil);
  Seri2.Title        := 'Sizin Seri';
  Seri2.ParentChart  := Grafik;
  Seri2.AddXY(1,5);
  Seri2.AddXY(8,12);
  Seri2.AddXY(9,10);
end;

- Yukardaki örneği aynen deneyin.. Boş bir projede Forma sadece buton koyup yukardaki örneği kopyala/yapıştır yapın. Uses'a Chart ve Series eklemeyi unutmayın. Run edip buttona bastığınızda Form üzerinde Chart görürseniz sisteminiz çalışıyor olduğuna kanaat getirebilirsiniz.

- Başarılar...

[uğur alkan]

mrmcop teşekkür ederim sorun manuelde düzeldi...
delphi6 ile gelen tchart nesnesinin data source kısmında None seçeneği bulunuyor
daha üst versiyonlarda bu seçenek yok... 6 ve 7 de bu secenek yok
kullancakların bilgisine...
herkese yardımlarından dolayı teşekkür ederim.

[zayfin]

arkadaşlar;
grafikte kesirli sayılar kullanamıyorum.
bunu nasıl çözebilirim.

[aslangeri]

s.a.
kesirli sayıları (10,100,1000) hangisi işinize geliyorsa onla çarparsınız.
label ini değiştirirsiniz.
aklıma bunlar geliyor.
kolay gelsin.