🚀 go-pugleaf

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ć.