Czy ktos zna sie na programowaniu w Delphi?

[merec]

Dzisiaj byłem ambitny i postanowiłem uszczelnić drzwi przy okazji montaż rygielków. nie sądziłem ze tyle mi to zajmie póki co zrobiony tył jutro przód. Oto kilka zdjęć z prac.

http://picasaweb.google.pl/115677760660509702382/2010_09_17#

ENJOY

PS Przy okazji nowy breloczek bo stary wyglądał już fatalnie po 8 latach użytkowania

[bradley]

Czy ktos zna sie na programowaniu w Delphi?

Potrzebuje porady w pewnej sprawie.

[Puchacz]

Obawiam, sie że wszyscy już wymarli ;-)

Ps. Sorry za OT MSPANC.

[bradley]

No tez mi sie tak zdaje. Nikt nie pisze w tym szmelcu a taki jest na uczelni i musze projekt dokonczyc. Ale jakos udalo mi sie ogarnac narysowanie wykresow na podstawie danych z tablic tylko dosc ubogo to wyglada. Temat uwazam za "do wygasniecia"

[kropeck]

Dawaj .... zobaczmy, czy jeszcze coś pamiętam :-)

[bradley]

Mam tablice x
I na jej podstawie generuje tablice y1,y2,y3,y4,y5 wg ustalonego wzoru. Ta czesc zrobilem i w kazdej tablicy x jak i y sa 73 elementy
Teraz potrzebuje wygenerowac wykres y1(x), y2(x) itd. na jednym obszarze. Potrzebuje 5 kresek z zaznaczonymi osiami, skala, opisem.

Znalazlem, ze mozna uzyc komponentu timage
Jako ze funkcje sa liniowe to odrazu dalem ostatni element tablicy i pierwszy.

Finalnie tak:

//Rysowanie ukladu wspolrzednych
With Image1 do
begin
Canvas.MoveTo(0,220);
Canvas.LineTo(0, 0);
Canvas.MoveTo(0, 220);
Canvas.LineTo(450, 220);
end;

//Rysowanie wykresu funkcji

begin
Image1.Canvas.Pen.Color := clRed;
Image1.Canvas.MoveTo(90,220);
Image1.Canvas.LineTo(450,(220-round(y1[73])));
Image1.Canvas.Pen.Color := clyellow;
Image1.Canvas.MoveTo(90,220);
Image1.Canvas.LineTo(450,(220-round(y2[73])));
Image1.Canvas.Pen.Color := clgreen;
Image1.Canvas.MoveTo(90,220);
Image1.Canvas.LineTo(450,(220-round(y3[73])));
Image1.Canvas.Pen.Color := clblue;
Image1.Canvas.MoveTo(90,220);
Image1.Canvas.LineTo(450,(220-round(y4[73])));
Image1.Canvas.Pen.Color := clpurple;
Image1.Canvas.MoveTo(90,220);
Image1.Canvas.LineTo(450,(220-round(y5[73])));
end;



Rysuje 5 kresek ale nie mam mozliwosci ladnego opisania wykresu, linii wykresow i skali
A komponent vtchart czy drugi tchart maja jakies dziwne ograniczenie do maksymalnie 4 kolumn z danymi (a ja potrzebuje 5), i do ok 20 wartosci x (potrzebuje 73, ale akurat moge zrobic to dla wartosci 1 i 73 - jako ze funkcja jest liniowa co daje 2 wartosci x. Jednak 4 kolumn zamiast 5 nie przeskocze) dlatego bylem zmuszony uzyc timage.

Ogolnie program liczy predkosc pojazdu na podstawie wielkosci felg, szerokosci opon, profilu, przelozen skrzyni i obrotow. Trywialne no ale lepsze to niz pisanie "problemu komiwojazera" :P

[kropeck]

aaaa ... takie buty .... no to nie pomogę, bo generalnie musiałbym zainstalować środowisko i zająć się tematem kompleksowo, a po prostu nie mam czasu. Myślałem, że jakiś problem z algorytmami itp

Chętnie podjąłbym się z powrotem programowania w DELPHI, ale już jestem wpakowany w dwie inne rzeczy, a jak zacznę eksperymenty z nowymi rzeczami, to będę mocno w plecy ze swoimi obowiązkami. :-)

[bradley]

Moj problem nieco wybiega poza zagadnienie hello world :szeroki_usmiech