Wykres radarowy

0

Witam serdecznie

Mam wielki problem z narysowaniem wykresu radarowego w delphi
nie moglem znaleŹĆ odpowiedniego komponentu i musze robic od poczatku, jednak w delphi nie jestem biegly a tymbardziej w rysowaniu na canvasie, wiec ugrzazlem i nie wiem jak dalej mam ruszyc

dane wejsciowe sa np takie
.
.
+001,66
+005,410
+002,035
+008,552
+002,095
-004,497
+007,00
+004,503
-000,947
+004,002
-002,331
+002,807
+004,455
+006,942
.
.

i chce narysowac wykres radarowy gdzie beda polaczone poszczegolne punkty czyli +001,66 z +005,410 itd az utworzy caly wykres. Zalozeniem jest ze na pewnej srednicy mamy okrag o wartosci zero i teraz zaleznie czy punkt jest w plusie czy w minusie to ma rysowac pod lub nad linia zero i tworzyc linie lamana.

Program potrzebuje do obslugi miernika cyfrowego.

Moze ktos wie jak to rozwiazac, moze jakis komponent, jakies podpowiedzi.
Z gory dziekuje i pozdrawiam

0
const
  r = 100;
  o_x = 150;
  o_y = 150;
var
  i: Integer;
  x, y: Integer;
  dane: array[0..max] of Integer;
  a: Integer;
begin
  Canvas.MoveTo(o_x, o_y);
  for i := 0 to max do
  begin
    a := i mod 360;
    x := Trunc(cos(DegToRad(a)) * (r / 2 + dane[i]);
    y := Trunc(sin(DegToRad(a)) * (r / 2 + dane[i]);
    Canvas.LineTo(x, y);
  end;
end;

to tak na szybko. Pewnie się będzie w złą stronę kręciło ale to pozostawiam Tobie no i wypadało by mazać stary ślad oraz rysować kreskę "radaru". Ale to już dopracujesz

0

Wielkie dzieki, zaraz zobacze czy soc uda mi sie z tego zrobic i zaadoptowac do mojego programu

Pozdrawiam

1 użytkowników online, w tym zalogowanych: 0, gości: 1