Tomasz Kaczanowski Ot, programista
Daniel
Grabowski
Interaktywne
planowanie produkcji
on-line z MES
konto usunięte
Daniel
Grabowski
Interaktywne
planowanie produkcji
on-line z MES
Dariusz Sieńkowski:A ta "dioda RGB", to co to dokładnie jest?
Są to pętle FOR odpowiadające za płynne zaświecenie diód RGB.
Każda pętla przypisana jest do odpowiedniej konfiguracji diód np. petla1 -> R, pętla2 -> RG. Cała procedura ma za zadanie płynne włączanie diód: R -> RG -> GB itp. i tak w kółko, aż użytkownik jej nie zatrzyma. Procedurę już napisałem i działa lecz jak ją się uruchomi to wykonywające się pętle blokują działanie programu, blokując również możliwość użytkownikowi jej wyłączenia.OK.
procedure TMyThread.Execute;
begin
while not Terminated do
begin
sleep(40);
Synchronize
(
procedure
begin
if Form.DiodaR.Active then
begin
Form.DiodaR.Active := False;
Form.DiodaG.Active := True;
Form.DiodaB.Active := False;
end
else
if Form.DiodaG.Active then
begin
Form.DiodaR.Active := False;
Form.DiodaG.Active := False;
Form.DiodaB.Active := True;
end
else
if Form.DiodaB.Active then
begin
Form.DiodaR.Active := True;
Form.DiodaG.Active := False;
Form.DiodaB.Active := False;
end;
end
);
end;
Daniel
Grabowski
Interaktywne
planowanie produkcji
on-line z MES
Dariusz Rorat:To tak jakbyś napisał, że windows 3.1 miał wielozadaniowość.
No jest jeszcze alternatywa w postaci instrukcji: Application.ProcessMessages, umieszczonej w pętli. Tyle tylko że w tym przypadku mogą być cyrki tego typu że nie zamknę aplikacji aż do zakończenia pętli czy też jakaś kontrolka zmieni swój stan za wcześnie. Stosowałem z powodzeniem tą instrukcję w pętlach, z tym że należało sprawdzać dodatkowe warunki zakończenia pętli.
Trochę niejasna sprawa dla mnie z tym bezpieczeństwem VCL. Z moich doświadczeń wynika, że najczęściej błędy w aplikacji były spowodowane błędami innych programistów, którzy stworzyli jakieś swoje komponenty.No to czas poszerzyć doświadczenia:
konto usunięte
{ TMyThread }
TMyThread = class(TThread)
private
FAFinished: boolean;
public
procedure Execute; override;
property AFinished: boolean read FAFinished write FAFinished;
end;
{ TForm1 }
TForm1 = class(TForm)
CountWithoutCritSecButton: TButton;
CountWithCritSecButton: TButton;
Label1: TLabel;
procedure CountWithCritSecButtonClick(Sender: TObject);
procedure CountWithoutCritSecButtonClick(Sender: TObject);
private
public
CriticalSection: TCriticalSection;
Counter: integer;
UseCriticalSection: boolean;
procedure DoCounting;
end;
var
Form1: TForm1;
implementation
{ TForm1 }
procedure TForm1.CountWithCritSecButtonClick(Sender: TObject);
begin
UseCriticalSection:=true;
DoCounting;
end;
procedure TForm1.CountWithoutCritSecButtonClick(Sender: TObject);
begin
UseCriticalSection:=false;
DoCounting;
end;
procedure TForm1.DoCounting;
var
i: Integer;
Threads: array[1..5] of TMyThread;
AllFinished: Boolean;
begin
Counter:=0;
// create the CriticalSection
InitializeCriticalSection(CriticalSection);
// start 5 threads
for i:=Low(Threads) to High(Threads) do
Threads[i]:=TMyThread.Create(false);
// wait till all threads finished
repeat
AllFinished:=true;
for i:=Low(Threads) to High(Threads) do
if not Threads[i].AFinished then AllFinished:=false;
until AllFinished;
// free the threads
for i:=Low(Threads) to High(Threads) do
Threads[i].Free;
// free the CriticalSection
DeleteCriticalSection(CriticalSection);
// show the Counter
Label1.Caption:='Counter='+IntToStr(Counter);
end;
{ TMyThread }
procedure TMyThread.Execute;
var
i: Integer;
CurCounter: LongInt;
j: Integer;
begin
FAFinished:=false;
// increment the counter many times
// Because the other threads are doing the same, it will frequently happen,
// that 2 (or more) threads read the same number, increment it by one and
// write the result back, overwriting the result of the other threads.
for i:=1 to 100000 do begin
if Form1.UseCriticalSection then
EnterCriticalSection(Form1.CriticalSection);
try
CurCounter:=Form1.Counter;
for j:=1 to 1000 do ;
inc(CurCounter);
Form1.Counter:=CurCounter;
finally
if Form1.UseCriticalSection then
LeaveCriticalSection(Form1.CriticalSection);
end;
end;
FAFinished:=true;
end;
konto usunięte
Daniel
Grabowski
Interaktywne
planowanie produkcji
on-line z MES
Dariusz Rorat:Nie musi, ale czasem - powinno.
Nie wszystko musi być oparte od razu na wątkach.
Zresztą z tymi wątkami to nie taka prosta sprawa i mam nawet na to gotowe przykłady.Podane niżej, to jedno z wielu.
Szczególnie jeżeli kilka wątków odwołuje się do tego samego obiektu VCL.
Ale i na to musi znaleźć się rozwiązanie.
To jest przykład w którym wywoływane jest 5 wątków o takim samym działaniu. Jednak użyciePokazałeś nam jedno z rozwiązań problemu synchronizacji wątków przy równoległym dostępie do zasobów w programowaniu współbieżnym.
CriticalSection a pominięcie tego daje zupełnie inne efekty.
Daniel
Grabowski
Interaktywne
planowanie produkcji
on-line z MES
Piotr L.:Skąd się wzięło te 55ms?
Alternatywą jest TTimer plus własne badanie czasu ostatniej aktualizacji, przy pomocy jednego z:
- QueryPerformanceCounter
- GetTickCount
http://delphi.about.com/od/windowsshellapi/a/delphi-hi...
Sam zegarek TTimer będzie się odpalał z małą dokładnością (55ms ?), ale w połączeniu z powyższym powinno wystarczyć do wizualnych zmian.
Tu dokładniejszy zastępnik:Staroć bez źródeł.
http://www.programmersheaven.com/download/5874/Downloa...
http://www.sourcecodeonline.com/details/zyltimer.htmlPłatny.
konto usunięte
Daniel Wloochacz Grabowski:
Piotr L.:Skąd się wzięło te 55ms?
Alternatywą jest TTimer plus własne badanie czasu ostatniej aktualizacji, przy pomocy jednego z:
- QueryPerformanceCounter
- GetTickCount
http://delphi.about.com/od/windowsshellapi/a/delphi-hi...
Sam zegarek TTimer będzie się odpalał z małą dokładnością (55ms ?), ale w połączeniu z powyższym powinno wystarczyć do wizualnych zmian.
Daniel
Grabowski
Interaktywne
planowanie produkcji
on-line z MES
Piotr L.:Tak, zauważyłem - ale dalej nie wiem skąd oni to wzięli :)
Daniel Wloochacz Grabowski:
Skąd się wzięło te 55ms?
Na podstawie podanej przeze mnie strony. Dokładna wartość pewnie nie istnieje, bo to jest właśnie cecha TTimer - brak dokładności.
for Pos:=0 to 255 do
begin
sleep(10);
R:= Pos;
end;
for Pos:=0 to 255 do
begin
sleep(10);
R:= 255;
G:= Pos;
end;
for Pos:=0 to 255 do
begin
sleep(10);
R:= 255- Pos;
G:= 255;
end;
for Pos:=0 to 255 do
begin
sleep(10);
G:= 255;
B:= Pos;
end;
for Pos:=0 to 255 do
begin
sleep(10);
R:= Pos;
G:= 255- Pos;
B:= 255;
end;
for Pos:=0 to 255 do
begin
sleep(10);
R:= 255 - Pos;
B:= 255 ;
end;
for Pos:=0 to 255 do
begin
sleep(10);
B:= 255 - Pos;
end;
konto usunięte
Daniel Wloochacz Grabowski:
Piotr L.:Tak, zauważyłem - ale dalej nie wiem skąd oni to wzięli :)
Daniel Wloochacz Grabowski:
Skąd się wzięło te 55ms?
Na podstawie podanej przeze mnie strony. Dokładna wartość pewnie nie istnieje, bo to jest właśnie cecha TTimer - brak dokładności.
Zobacz:
Czyli mamy jakieś 13 ms...
konto usunięte
Dariusz Sieńkowski:
Diody sterowane są za pomocą protokołu DMX (komunikacja z diodą za pomocą konwertera podłączonego do USB)
Płynne zaświecenie diod polega na powolnym ich wygaszaniu i zapalaniu.
procedure TForm1.Timer1Timer(Sender: TObject);
begin
// instrukcje sterujące diodami
end;
Daniel
Grabowski
Interaktywne
planowanie produkcji
on-line z MES
Piotr L.:Prawda, Windows nie jest systemem czasu rzeczywistego jest tzw. Soft RTOS - taki "identyczny z naturalnym" ;-)
Daniel Wloochacz Grabowski:
Piotr L.:Tak, zauważyłem - ale dalej nie wiem skąd oni to wzięli :)
Daniel Wloochacz Grabowski:
Skąd się wzięło te 55ms?
Na podstawie podanej przeze mnie strony. Dokładna wartość pewnie nie istnieje, bo to jest właśnie cecha TTimer - brak dokładności.
Zobacz:
Czyli mamy jakieś 13 ms...
Te 13 ms jest złudne.
TTimer simplifies the processing of the WM_TIMER messages
a z tego co wiem dostarczanie wiadomości w Windows nie jest deterministyczne - tak więc na dobrym sprzęcie opóźnienia mogą być nawet mniejsze, co nie znaczy że jak np. włączy się program pocztowy i zacznie coś ściągać to nagle opóźnienia nie zrobią się mega duże.
Dlatego podstawowy TTimer może powodować problemy - ale może do tego przypadku to wystarczy - zależy jak bardzo ważna jest stabilność.Chyba jednak nie wystarczy - jak zobaczyłem ten kod...
Daniel
Grabowski
Interaktywne
planowanie produkcji
on-line z MES
Dariusz Sieńkowski:Acha, trzeba było tak od razu...
Diody sterowane są za pomocą protokołu DMX (komunikacja z diodą za pomocą konwertera podłączonego do USB)
Płynne zaświecenie diod polega na powolnym ich wygaszaniu i zapalaniu.Dziwny ten kod jakiś... czemu tych pętli jest aż tyle a nie jedna?
A oto pętle:
Daniel Wloochacz Grabowski:
Dziwny ten kod jakiś... czemu tych pętli jest aż tyle a nie jedna?
Powinna być jedna, skoro ona iteruje zawsze w tym samym zakresie.
Masz tu przykładowy programik wraz z kodem źródłowym, który współpracuje z takim
konwerterem:
http://www.meraprojekt.com.pl/files/USB2DMX512_V11_Del...
Piotr M. programista
Dariusz Rorat:
Trochę niejasna sprawa dla mnie z tym bezpieczeństwem VCL. Z moich doświadczeń wynika, że najczęściej błędy w aplikacji były spowodowane błędami innych programistów, którzy stworzyli jakieś swoje komponenty.
Następna dyskusja:
пропозиції роботи
