-- 18 paź 2017, o 22:00 --
Witam, poszukałem, poczytałem, pokombinowałem i wyszło to:
Chodzi o to że, chciałem przedstawi graficznie zmianę temperatury. Z mikrokontrolera odbieram przez port COM string z datą, godziną i temperaturą. Wyświetlanie danych odbywa się w obsłudze tajmera , tu to Timer3 , poniżej zamieszczam listing moich kombinacji - może się komuś przyda.
[syntax=delphi]{$J+}
procedure TForm1.Timer3Timer(Sender: TObject);
const x: integer=6;
y: integer=6;
krokx: integer=1;
var wynik: integer;
begin
with PaintBox1.Canvas do
begin
wynik := 400 - tempCal; //zmiana wartości temperatury tak aby rysowana linia odpowiadała zmianom góra , dół
x:= x+5; // współrzędna x odpowiada za przesuwanie w prawo wykresu
y:= wynik; // współrzędna y to wartośc temperatury
Label32.Left := Label32.Left + 5;
Label32.Caption := Panel7.Caption;
Label33.Top := wynik;
Label33.Caption := Panel8.Caption;
Pen.Color:= clRed; // kolor rysowanej linii wykresu
LineTo(x,y); // rysowanie linii
if (x>PaintBox1.Width-3) then // jeśli linia dojdzie do końca obszaru PaintBox
begin // następuje wyzerowanie kroku
krokx:= -krokx; // wyczyszczenie pola PaintBox
brush.Color:= clWhite; // przeniesienie kursora linii na początek obszaru
Pen.Color:= clBlack;
rectangle(0,0,500,200);
x:= 3;
y:= wynik;
MoveTo(x,y);
Label32.Left := 34;
Label34.Caption := Label32.Caption;
end;
if (y>PaintBox1.Height-3) then
begin
TrackBar2.Max := 10000; // tu można zmienic interval timera, tzn zakres czasu wyświetlania
TrackBar2.Tag := 100;
if (TrackBar2.Position = 0) then TrackBar2.Position := 100; // aby nie wyłączyc timera minimalna wartośc to 100
Timer3.Interval := TrackBar2.Position;
Label35.Caption := 'Interwał: '+ IntToStr(TrackBar2.Position);
end;
end;[/syntax]
Statystyki: Napisane przez KazioB — 18 paź 2017, o 22:00
]]>