Witam, nie wiem czy trafiłeś na ten temat szukając na elektrodzie, myślę że powinien Ci pomóc. [url=http://www.elektroda.pl/rtvforum/to...
Kiedy kliknę dwa razy na timer to wtedy mam procedurę ontimer? Dokładnie tak. Jeśli chce przypisać do licznika:=licznik +1 to wyskakuje błąd kompilacji Left side cannot be assigned to. Czyli że nie można stałej przypisać jakaś wartośći? Jeśli masz czas wyjaśnij mi trochę bardziej jak dla laika;p To zależy od ustawień kompilatora. Jeżeli wyskakuje w...
Sposobów jest tyle ile programistów:) Najprostszy: Zaraz po CreateThread zapamiętaj gdzieś hThread - w globalnej zmiennej, w klasie, albo w property okienka (SetProp)... i uruchom timer 10000ms. W OnTimer już wiesz co zrobić: 1. if thread_dziala() then terminate() 2. wyłącz timer i wyzeruj hThread W przypadku gdyby thread zakończył przed czasem - możnaby...
Jeśli jego Algorytm wykonuje się szybciej niż 1ms to tak. Ale jeśli jest wolniejszy to nie ma sensu się bawić w wątki. [syntax=delphi] TTurbo = class(TThread) public procedure Execute; override; end; var Form1: TForm1; Stop: boolean = True; TurboTimer : TTurbo; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); // On/Off Timera...
Hmm, to chyba za daleko wyszedłem z domysłami. Możesz położyć Timer i w zdarzeniu OnTimer wrzucić taki kod, który będzie będzie pobierał to co jest wpisane w Edit1 i dokładał do wykresu: [syntax=delphi]procedure TForm1.Timer1Timer(Sender: TObject); begin Chart1.Series[0].Add(StrToFloat(Edit1.Te... end;[/syntax]
Żadnych sleepów! Timer ma swój interwał i on powinien tylko na przemian zapalać i gasić kursor. Możesz spokojnie zrobić (w kontekście Timera): if Tag=0 then Canvas.Pixels[]:=clBlack else Canvas.Pixels[]:=clWhite; Tag:=Tag xor 1;
http://obrazki.elektroda.net/10_12666033... Witam, Ponoć każdy prawdziwy mężczyzna musi spłodzić syna, posadzić drzewo oraz ... zbudować dom albo robota. Ja wybrałem to drugie - spłodziłem robota dla syna ;) Inny cel to zdalna obserwacja moich 2 kotów w mieszkaniu w najróżniejszych sytuacjach i filmowanie ich nawet gdy się tego nie spodziewają ;)...
Najprościej w zewnętrznym warunku daj Timer1.Enabled:=FALSE;. Spowoduje to zatrzymanie timera.
Ten 3 link na nic zda mi się w delphi, gdyż i tak jest tam napisane tylko do c++,c# i czegoś jeszcze. Żadnej wzmianki o delphi. Od kiedy to //* This component will let you know when selected events //* occur in the Windows shell, such as files and folders //* being renamed, added, or deleted. (Moving an item yields //* the same results as renaming...
Witam!! Potrzebny mi szybki timer tzn. mniej niz 1ms.Chce zbudowac analizator stanow logicznych na porcie LPT pod XP,ale timer pod delphi jest za wolny.. Zamykam. - arnoldziq
1. Znaleźć lepszy timer (np. na delphi.icm.edu.pl) 2. Lepszym, ale trudniejszym rozwiązaniem będzie wykorzystanie przerwań systemowych. Przyjrzyj się np. temu, ale nie gwarantuję, że pójdzie na nowszych delphi http://delphi.icm.edu.pl/ftp/d10free/rti...
Witam! Mam pytanie odnośnie sprawy związanej z przesyłaniem a raczej generowaniem obrazu dla tv za pomocą portu Lpt i softu np w Delphi czy timer obsłuży czy będzie wyrabiał. Czy jest w ogóle sprzętowa możliwość? Jeśli ma ktoś informacje w podobnym temacie to bardzo bym prosił nawet w innych językach programowania niekoniecznie po polsku.
Spróbuj w menadżerze urządzeń na porcie com gdzie masz zainstalowany interfejs ustawić latency timer na 1.
mam pytanie jak zrobic skakajaca etykiete w delphi?? bo mam zadanie w ktorym uzyty bedzie timer i etykieta. Na etykiecie ma byc dowolny napis i co jakis czas ma on sie przemieszczac to znaczy nie pionowo, poziomo tylko tylko tak jakby skakala po calym ekranie...jak to zrobic??
Witam. Od kilku dni siedzę nad książką "RS-232 praktyczne programowanie" i usiłuję napisać program który będzie wyświetlał wartość temperatury wysłaną do portu COM. Wzorując się na książce napisałem program, który działa od Timera w Delphi i odczytuje zawartość bufora. Wszystko działałoby fajnie gdyby nie to że timer trafia czasami na odbiór danych...
[syntax=delphi]Label1.Tag:=0; Label1.Caption:='00:00:00'; Timer.Interval:=1000; // można w inspektorze Timer.enabled:=true;[/syntax] OnTimer: [syntax=delphi]Label1.Tag:=Label1.Tag+1; Label1.Caption:=FormatTime('hh:nn:ss',La...
Moim zdaniem dobrze by było rozwiązać ten problem w taki sposób: W momencie pojawienia się impulsu zaczytuję sobie aktualny czas RTC (zegar czasu rzeczywistego) zapamiętuje jako T0 z maksymalną dokładnością. Potem gdy przyjdzie następny impuls to odejmuje od T1 od T0 i mam dokładny czas. Czas oczywiście przeliczam przez obwód koła i prędkość. T1 przepisuje...
Zamiast pętli while skorzystaj z komponentu timer . Timer załączaj i wyłączaj przyciskami.
Najprosciej zapisac za pomoca IniFile.2) Wykrzystac Timer albo zrobic nowy wątek(Thread).
Witam, czy można w Delphi w pętli repeat ..until ( lub innej ) czekać na zmianę zmiennej ustawianej w przerwaniu np. od Timera ?? Tutaj jest przerwanie zegara systemowego: procedure TfrmMain.Timer_AckWaitTimer(Sender&#... TObject); begin AckTimeOut := true; Timer_AckWait.Enabled := false; end; a tu jest kod który powoduje zawieszenie...
Będzie ciężko to zrobić :( Najprostsza możliwość, to włączanie i wyłączanie timer-a, przyciśnięciem tego samego Buttona. Rozumiem To zadam pytanie inaczej Chcę wysyłać zmienną o wartości od 0 od 255 + $13 "Enter" jako string na COM port i wypisywać wartość odebraną na "Panel1" chcę by jeden Button jak trzymamy , zwiększał wartość zmiennej co 250ms...
Może nie całkiem na temat ale w jakim komponencie da się rysować dynamicznie w delphi bo gdyby zrobić krzywą smoka toby to nawet ładne było i jeszcze wrzucić jakiś timer żeby widać było na bieżąco jak się krzywa maluje :D
kontrolka Timer jest chyba taka sama i w delphi i w vb problem polega na tym ze nie jest dokladna pwm nie bardzo sie da zrobic poniewaz minimalny czas timera 1ms w rzeczywistośći odpowiada 17ms
Witam Mam pytanie jak zrobic sobie timer i klikniecie guzika w delphi "dynamicznie" bez kladzenia na forme, bo czasem zalozmy ze nie mamy mozliwosci przewidzenia ile ich bedzie oraz jak obsluzyc klikniecie na guzik: var Timer: TTImer; Button: TButton; begin Timer := TTimer.Create(Self); Button := TButton.Create(Self);...
No to tylko timer do takich zastosowań... w przerwaniu od timera wykonujesz pomiar i jedziesz dalej ;)
Użyj komponentu Timer. Wstawiasz go na formę, ustawiasz mu czas na 3000 (3000ms=3s), włączasz go (np. Enable=true) A w zdarzeniu OnTimer najlepiej zatrzymać timer czyli enable = false i umieszczasz polecenia jakie mają się wykonać po tych 3 sekundach. Przynajmniej ja bym zrobił cos takiego w Builderze C++ :) ale w Delphi będzie podobnie.
rozwiazania są 2...Pierwszy na formie dajesz takie samo zdarzenie onmousemove... Drugie to obsługa myszy po winapi i kontrolowanie położenia bezwzględnego wraz z monitorowaniem położenia tej bitmapy...Tylko potrzebny wtedy timer albo wątek obsługi myszy... Jeszcze inny sposób to ONMOUSE LEAVE
tak szybki timer potrzebuje do odbierania danych z ComPort,zdarzenie onRxChar nie pobiera całego bufora ,co powoduje że 1 na 10 przesłanych danych jest ok . Przesyłana ramka zawsze zakończona jest sumą CRC i jest zmiennej długości ,na chwilę obecną odczytuje to za pomocą TTimera uruchamianego co 1mS ale to dalej mało , wydajność odbieranych danych jest...
dzięki chłopaki po raz kolejny :) jak Wam tak dobrze idzie to mam jeszcze jedno pytanko: czy można przesuwać obrazek w obrębie formy za pomocą myszy jakoś łatwiej... ja robiłem tak, że po kliknięciu myszą uruchamiałem timer w którym przesuwałem obrazek o przesunięcie kursora myszy a po puszczeniu klawisza wyłączałem timer. Lepiej by było Drag-Drop ale...
Witam, panowie chciałbym napisać dość rozbudowaną aplikację w Delphi miałaby ona symulować pewne skrzyżowanie oraz podawać dane o ruchu na tym skrzyżowaniu i odmierzać czas wygenerowany chciałbym zastosować komponent shape uważam że najlepiej się nadaje do tego i tutaj się robi pewien problem. Chciałbym komponent shape i komponent Timer zgrać ze sobą...
Nie wiem jak dlugi jest ten ciag Na razię też nie wiem wszystko wyjdzie w trakcie budowy, przykłąd który dałeś działa świetnie, ale dla wartości 0-99 przy 100 nie działa a w praktyce będą przesyłane tam też wartości od 0-255. Da rade jakoś temu zaradzić? Dobra już sobie trochę radze z dodawaniem np nowych progresów itd. Mógłbyś mi tylko pokazać jeszcze...
Witam. Tworząc program zawiesiłem się na odczycie z com. Mikroprocesor odczytuje dane z akcelerometru i wysyła je do PC. I tu zaczyna się problem. Używam komponentu comport. Dana jest odbierana tylko raz, jakby zamroziło odczytywanie. [syntax=delphi]ComPort1.Readstr(Str,coun... memo1.Text:=memo1.Text+str; for x:=0 to memo1.lines.count-1 do chart1.Series[0].Add(StrToFloat(memo1.li...
Mój kolejny problem w moim programie. Mianowicie za pomocą timera losuję określoną liczbę literek i za każdym razem zwiększam wartość zmiennej losowania. W momencie gdy ta zmienna osiągnie wartość licznika(czyli ilości losowań) timer powinien się zatrzymać. Niestety co jakiś czas wyskakuje mi błąd taki jak w załączniku. Co w moim kodzie jest nie tak?...
Przy 0,2% różnicy w prędkości nie może powstać błąd ani po 1B ani po 1GB, wynika to z tego, że skoro odbiornik synchronizuje się z bitem startu to każdy wysyłany bajt jest traktowany jako nowy i ta różnica nie będzie się w tym wypadku się kumulować. Wynika to z zasady na jakiej działa transmisja szeregowa. W dwóch słowach najprostszy odbiornik działa...
Mam pytanie odnośnie programowania portu LPT. Jak napisać program w Delphi, aby na pinie portu LPT generowany był stabilny przebieg 1kHz niezależnie od innych uruchomionych procesów, aby przebieg był stabilny gdy surfuję po necie, gdy kopiuję z partycji na partycję albo w innych przypadkach gdy procesor jest zajęty w 100%. Standardowy komponent Timer...
Witam Nie wiem czy dobrze zatytułowałem post ale chodzi mi o to, że za pomocą idhttp wczytuję sobie stronę do memo. strona.Text:=IdHTTP1.Get('http&#... Zdarza się, że serwer nie odpowiada i przez chwilę zwiesza program po czym wyskakuje okienko "Socet error #10060 conection timer out" czy jest możliwość aby to okienko...
Dobra to po wklejałem a teraz muszę zrobić żeby odczytywało obraz z kamerki usb, znalazłem komponent dspack ale nie wiem jak go użyć? Dodano po 1 Nie działa a to jak wklieć? MouseDown i MouseUp + dodatkowo potrzebujesz timera Timer t = new Timer { Interval = 250 }; t.Tick += t_Tick; ... void t_Tick (object sender, EventArgs e) { // zwieksz glosnosc...
Masz chybanajprostszy sposob przechwycenia uchwytu: procedure TForm1.Timer1Timer(Sender: TObject); var pos:tpoint; uchwyt:hwnd; begin GetCursorPos(pos); uchwyt:=windowfrompoint(pos)... form1.Caption:='Wspolrzedne:' +inttostr(pos.X)+' oraz '+inttostr(pos.Y)+' uchwyt: ' +inttostr(uchwyt);...
Mam prośbę ... Nie bardzo mogę sobie poradzić z napisaniem procedury 'Collision" Chodzi o zderzenie komponentów z tym, że tylko jeden z nich 'opada' a inne wznoszą się. Opadający np shape (Timer1) shapeX.top := shapeX.top +1; Pozostałe w liczbie przykładowo 5 unoszą się na prostej zasadzie shapeY.top := shapeY.top -1; Jeśli dojdzie do kolizji obu komponentów...
Hello my friend! Jak to zrobić? Po prostu sprawdzisz, godzinę np w zdarzeniu Timera... [syntax=Delphi] if (Time>=CzasOd[i]) and (Time<=CzasDo[i]) then begin if not Kanal[i].Aktywne then Aktywuj(Kanal[i]); end else begin if Kanal[i].Aktywne then Dezaktywuj(Kanal[i]); end;[/syntax]Keine Philosophie :)
Najprościej chyba będzie dziedziczyć po TPaintBox, oprogramować zdarzenie OnPaint i dodatkowo zaaplikować Timera, który będzie odświeżał.
Witam No to po urlopie to pewno masz więcej energii na działanie, a myślałem że już zrezygnowałeś z tego wyzwania :wink: Mam pewien problem z uruchomienie pliku .exe (próbowałem wklejać bibliotekę do katalogu Windows i system32, oczywiście na początku uruchamiałem wszystko w jednym katalogu no ale sam widzisz) :?: Wiesz może co to za błąd? (na moje...
Witam ! Postanowiłem się pouczyć programowanie dynamicznych bibliotek pod Delphi. Znam już początkową składnię, potrafię napisać bardzo prostą bibliotekę wyświetlająca np komunikat w programie głównym ale nie chcę na tym poprzestać. Moje pytanie jest następujące - jak można sterować za pomocą bibliotek komponentami znajdującymi się w formie głównej...
Dzięki pomogło :) Jeszcze jedno mianowicie mam Timer i ustawilem zeby ta procedura wywoływała sie co 2 sekundy. I tak jest ale gdy procedura wylosuje pole które już wcześniej zostało wyloswane i w polu jest już tekst to wtedy dopiero za 4 sekundy procedura sie powtarza a nie za 2. Chodzi mi dokładnie oto że mam kilka pól i chce żeby komputer losowo...
Ale szanownemu Czmielowi nie chodzi o uptime(czas pracy systemu) tylko o cos co mierzy czas aktywnosci uzytkownika. Czyli jak wlaczysz komputer i pojdziesz na 3 godziny gdzie indziej to uptime zwieksza sie o 3 godziny, a user time o np. 10 min (bo potem np. wlaczyl sie wygaszacz - czyli nikt nic nie robi). Moze prosciutki sofcik w delphi do autostartu...
Z czego możemy skorzystać pisząc program pracujący niezależnie od szybkości wykonywania instrukcji w procesorze? wg mnie nie ma czegos takiego - program to jest wlasnie ciag instrukcji do wykonania dla procesora, jezeli ma wykonac cos szybciej niz trwa wykonanie instrukcji procesora to poprostu tego nie zrobi lub zrobi blednie. obrazowo - masz mikroprocesor...
Mowisz dalej o szybkosci ok trzeba bylo dac STM32F4 + PHY :), a moze lepiej pilo by zrobic karte na PCI-x ? Jest w tym sens ? Oczywiscie, ze jest sens - nauka,wiedza,rozwiazywanie problemow i nie widze nic smiesznego pytajac tu na forum o rzeczy, ktore innym wydaja sie oczywiste. Pije tu do tematu 1Mhz, bo ja potrzebuje wiedzy i chcialbym wiedziec...
Witam wszystkich Od kilku dni dni mam mały problem z napisaniem pewnej instrukcji, sprawa jest na ogol prosta no ale .... (jakoś nie mogę) Już pisze o co mi chodzi, otóż chciałbym zrobić swego rodzaju licznik liczący np do 50 przy czym dodawanie liczb miało by się odbywać co np 5 sekund, i co 5 sekund powinien się wyświetlać wynik dotychczasowego dodawania....
Witam, Żeby skasowć wybraną linię i przeniesć kursor na koniec linii poprzedniej można wykorzystać np. taką konstrukcję: Memo1.Lines.Delete(n); Memo1.Lines[n-1]:=Copy(Memo1.Lines[n-1],... Memo1.SetFocus; Pozdrawiam O tym co powyżej zapomnij, bo trzeba skasowany znak (#10) uzupełnić. Co do całości Twojego postu spróbuj czegoś...
Witam wszystkich. Mam urządzenie (AVR+bascom) które wysyła po rs'ie dane o ogólnie rzecz mówiąc stanie czujników, podzespołów. Dane odbierane w terminalu wyglądają jak poniżej: W:sterownik v5.14 - 05.12.11 U:6.12V I:42.0 H:poziomo - poza zakresem h:0 V:pionowo - poza zakresem v:0 V:pionowo - w górę v:9 U:6.15V...
delphi timer funkcja delphi timer delphi otwieranie plików delphi
siemens ekspress zbiornik wyrównawczy instalacja elektrotechnika ogólna książka
Płyta Samsung 3 IN 1 Kant SU2 nie działa - diagnostyka Traktorek Castel Garden - brak iskry po podłączeniu przewodu gaszenia
