Delphi 4: Jak wykonać procedurę co 1s i zrealizować opóźnienie?

Question

w jaki sposob w Delphi 4 zrobic procedure ktora co np 1 s wykonywała by coś, dokładnie chodzi mi o sprawdzenie czy z podłączonego do PC mikrokontrolera przyszły jakies dane, czy robi sie to na Timerze jeśli tak to jak, i jeszce jedno pytanko, jak zrealizować opóźnienie jaka funkcją, w tej chwilo zrobiłem to pętla for ale to na każdym kompie działa inaczej w zależności od procesora a mi chodzi o to żeby zawsze było takie samo

pozdrawiam

Jaca · Accepted Answer

1. Użyj do tego oddzielnego wątku (TThread) aby nie obciążać głównej aplikacji. TThread jest lepszym rozwiązaniem niż zastosowanie zdarzenia OnTimer komponentu TTimer. 2. Sprawdź czy D4 posiada funkcję Sleep(czas w ms). Pozdrawiam...

heyka · Answer

dzieki Jaca, dodaje punkcik, mam tylko maly problem nie doczytalem jeszcze o watkach:?:

Dodano po 5 [minuty]:

do Jaca jak wygląda funkcja Sleep tzn tak? sleep 20 , czy jakos inaczej sie podaje opoznienie?

Jaca · Answer

Napisałem szybkie demo odnośnie wątku. Wyświetlany jest zegar a jednocześnie możemy korzystać z aplikacji głównej (przy użyciu buttona losujemy liczby). Co do Sleep to wpisujesz:

Sleep(20);

Pozdrawiam...

heyka · Answer

COS PROBUJE SOBIE PRZERABIAC, CZY TYCH WSZYSTKICH DEKLARACJI NIE DAŁO BY SIE TROCHE UPROSCIC, CZY WSZYSTKO TO JEST NIEZBEDNE, PRZEPRASZAM JEZELI TO PYTANIE JEST GŁUPIE

Jaca · Answer

Zrobiłem to najprościej jak się dało. Otwórz unit Watek i dodaj swój kod w miejscu podanym niżej:

procedure TWatek.Execute;
begin
  SetName;
  while not Terminated do
  begin

    //tutaj umieść swój kod

  end;
end;

W unit Main (zdarzenie OnShow) zawarta jest instrukcja stworzenia/uruchomienia wątka oraz instrukcje zatrzymania i destrukcji wątka (zdarzenie OnClose).

Pozdrawiam...

heyka · Answer

Bardzo dziekuje za pomoc, przepraszam ze sie czepiam ale oprocz tego ze chce zeby to chodzilo to jeszcze chcialbym poznac zasade tworzenia watku, a tu jeszcze wiele nie rozumiem, powstawialem kod swoj tak jak mi napisaleś i DZIAŁA!!!!!, odpytuje mikroprocesor a stany portow wyswietla mi w okinku memo, dzieki i pozdrawiam.

Zamykam temat dzieki Jack-owi się udało

kloszi · Answer

Jesli nie potrzebne ci dokladne odnierzanie czasu to uzyj TTimer. Na zakladce system jest zegarek. Kladziesz go na Formie i klikasz 2 razy i wyskakuje ci procedura ktora bedzie wywolywana co 1 sec. Na zakladce propertis ustawiasz czas co ktory ma byc wywolywana twoja funkcja (standardowo 1 sekunda)interwal (w milisekundach) no i standardowo Enable.

heyka · Answer

mam jeszce jedno pytanko, program odpytuje mikrokontroler, mikrokontroler wysyła do programu komunikaty o stanie portow, czy sa włączone czy nie, program na PC wyswietla mi te komunikaty w memo i jest ok, chcialbym zrobic cos takiego ze stan kazdego portu jest pokazywany w PC w postci np kontrolki, wszystkie komunikaty z mikrokontrolera sa ładowane do bufora, w jaki sposób najlepiej przesyłać informację z mikrokontrolera aby potem mozna ja był obrobic w programie i miec dostep do tego który port w jakim jest stanie, mam nadzieje ze zrozumiecie o co mi chodzi

Jaca · Answer

Tak jak napisałeś

Metodą zapytań i odpowiedzi. Utwórz swój protokół wymiany danych, np: KOMENDA - PARAMETR(Y) -> ODPOWIEDŹ uC. Wysyłasz do uC np: PA co uC interpretuje jako:
P - odczytaj stan portu
A - port A (lub 1, nie wiem jakiego uC używasz)
W odpowiedzi uC wysyła bajt danych, który program PC rozbija na poszczególne bity i wyświetla, czy to w postaci symboli graficznych, czy to w postaci np CheckBox'ów. Możesz zrobić serię komponentów TImage i w zależności od stanu pinów uC ładować do nich (z komponentu TImageList) stosowne symbole np diod LED.

Pozdrawiam...

heyka · Answer

odczytuje bajt czyli np 11001100(dane np z portu b), czyli trzeba to wziąść z bufora potraktować jako łańcuch znaków rozbic na pojedyncze bity i się znimi rozprawić, taka mam koncepcję, nie wiem czy dobra i jak rozbić łańcuch na pojedyncze bity, wiem że to śa podstwowe informacje, ale jak do tej pory to zajmowąłem sie głownie programowaniem mikroprocesorow, a i zrobilem program w delphi do pisania faktor z bazami danych

Jaca · Answer

Przewidziałem to i napisałem Ci prosty przykład ... Pozdrawiam...

heyka · Answer

wiem, ze przynudzam, ale:
Bit: byte;
Bajt: byte;
begin
Bajt:=StrToInt(Edit1.Text);
for Bit:=0 to 7 do
begin
with TImage(FindComponent('L'+IntToStr(Bit))) do
begin
with Picture,Bitmap do
begin
FreeImage;
Create;
ImageList1.GetBitmap(Bajt mod 2,Bitmap);
Update;
end;
end;
Bajt:=Bajt div 2;
end;
end;

tzn
wartość nie jest brana w postaci 0101010 tylko jest brana jako cyferka np 123-ok

potem dzieli sie ja przez 2
jezeli reszta z dzielenia 0 to jakis obrazek a jak nie 0 to inny obraze?-ok
robi t 8 razy-ok

with TImage(FindComponent('L'+IntToStr(Bit))) do- to nie wiem co to co to za L?

i wogóle ta cała procedura jest dla mnie za prosta tzn, ze ja bym to pewnie zrobił ale w sposób o wiele bardziej skomlikowany, i tu sie różnimy ja jestem partaczem i mam małą wiedzę, a Ty przewyższasz mnie bardzo:cry:

postaram sie to wszystko zebrac i zbudowac działający programik

dzieki za pomoc, jak mie cos nie bedzie chodzilo, to pozawracam Ci jeszcze glowe

POZDRAWIAM

Jaca · Answer

TImage(FindComponent('L'+IntToStr(Bit))): Legenda: TImage(...) - rzutowanie typów; FindComponent(...) - odnajdowanie komponentu po nazwie; 'L'+IntToStr(Bit) - nazwa komponentu. Całość jest umieszczona w pętli for Bit:=0 to 7, która utworzy kolejno nazwy komponentów TImage: L0,L1,...L7. Zerknij jak się nazywają komponenty TImage umieszczone na formatce i wszystko zrozumiesz Pozdrawiam...

heyka · Answer

Rzutowanie typów, aha nie baedzo wiem co to ale moze kiedys sie dowiem, dluga zajmujesz sie programowaniem w Delhi?

Jaca · Answer

Tak na chłopski rozum to rzutowanie typów to nic innego jak konwersja typów. Zauważ, że funkcja FindComponent() zwraca wynik typu TComponent, który nie posiada metod TImage (Picture, Bitmap,FreeImage,itp). TImage(FindComponent()) mówi kompilatorowi, że znaleziony komponent jest typu TImage i jako taki powinien być traktowany w programie. Pozdrawiam...

Delphi 4: Jak wykonać procedurę co 1s i zrealizować opóźnienie?

Post #1

Post #2

Post #3

Post #4

Post #5

Post #6

Post #7

Post #8

Post #9

Post #10

Post #11

Post #12

Post #13

Post #14

Post #15

Post #16

Podsumowanie tematu