🚀 go-pugleaf

W dniu wtorek, 8 maja 2018 16:13:57 UTC+2 użytkownik J-23 napisał:
> 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

Też tak podejrzewałem. Problem w tym, że nigdy nie pisałem programów wielowątkowych. Programuję w zasadzie w sytuacjach wyjątkowych, więc marny ze mnie programista. Jak na razie mam pilniejsze tematy związane z przetwarzaniem sygnału, więc ten temat zostawiam na deser bo nie jest to sprawa krytyczna. Nie mniej jednak, dzięki za podpowiedź.