🚀 go-pugleaf

W dniu 08.05.2018 o 11:23, stchebel@gmail.com pisze:
> W dniu wtorek, 8 maja 2018 09:28:17 UTC+2 użytkownik danielma...@gmail.com napisał:
>> W jakim evencie rysujesz na canvasie?
> 
> ButtonxClick. Kod wygląda tak:
> 
> procedure TForm1.Button10Click(Sender: TObject);
> var
> k,ftresult,Write_Result,Read_Result,Marker:integer;
> EchoL,Wynik:TablicaEcho;
> Found:boolean;
> begin
> CT_START:=not CT_START;
> if CT_START then begin
>   Button10.Caption:='CT_STOP';
> // UstawBit(Port_8,3);
>   end;
>   if (not CT_START) then begin
>   Button10.Caption:='CT_START';
> // ZerujBit(Port_8,3);
>   end;
> //ZapiszPort(8,Port_8);
> 
> repeat
> UstawBit(Port_8,3);
> ZapiszPort(8,Port_8);
> ZerujBit(Port_8,3);
> ZapiszPort(8,Port_8);
> 
> 
> 
> // Prezentacja 1D
> 
> k:=16384;
> ftresult:=FT_Read(FT_HANDLE,@EchoL,k,@Read_Result);
> ZnajdzMarker(EchoL,Marker,Found);
> if Found then Label27.Caption:=IntToStr(Marker) else Label27.Caption:='Not Found';
> RysujPrzebieg(ObrazGorny,Marker,8000,EchoL,Wykres);
> Image6.Canvas.Draw(0,0,Wykres);
> 
> Application.ProcessMessages;
> until (not CT_START);
> end;
> 
> Po kliknięciu guzika Button10 zmienna globalna CT_START zmienia wartość na true i wszystko zaczyna się kręcić w pętli repeat... until. W procedurze RysujPrzebieg zmienna ObrazGorny to bitmapa z "siatką" ekranu oscyloskopu, EchoL to tablica danych do namalowania, a wykres to gotowa bitmapa do wyświetlania.
> 
> Procedury UstawBit, ZerujBit, ZapiszPort służą do wyzwalania akwizycji. Ot, taki trigger. FT_Read służy do odczytu danych z urządzenia zewnętrznego.
> 
> Kolejne kliknięcie na ten guzik powoduje zmianę zmiennej CT_START na false i pętla przestaje się kręcić.
> 

Ja bym to podzielił na wątki, bo tak jak masz teraz to robisz wszystko w 
wątku głównym i dlatego staje to dęba przy przesuwaniu.

Będziesz miał trochę pracy z odpowiednią synchronizacją ale to jest do 
ogarnięcia

Pozdrawiam
J-23