ATNEL tech-forum

Delphi pascal, Lazarus • Re: kmMidiMini – platforma do samodzielnego wykonania kontro

2026-02-25T23:29:34+01:00

SunRiver napisał(a):

takie tam brzdąkanie ....

Noo, niby brzdękanie a wygląda jak Marek Biliński albo jak bardzo znany Jean-Michel Jarre. Super.

Statystyki: Napisane przez mario2015 — 25 lut 2026, o 23:29

Delphi pascal, Lazarus • Re: Eclipse dla AVR na lata 2025 aż do 2048 !!!!

2025-06-23T09:03:23+01:00

janusz17 napisał(a):

Ten post napisałem, nie po to, żeby kogokolwiek przekonywać do stosowania tej metody. Każdy zrobi jak mu pasuje. Mnie tylko nurtowało od początku dlaczego znika ta zakładka AVR. Zresztą na początku kiedy zamieściłeś Mirku ten poradnik o Eclipse i napisałeś, że w nowych wersjach są problemy z kompilacją mocno się zdziwiłem. U mnie wszystko było OK. A to dla tego, że zaimportowałem taki podstawowy projekt "czysty_szablon", z poprzedniej wersji eclipse. Okazuje się, że wtedy te wszystkie ustawienia także się importują i nie ma żadnych problemów. No więc pomyślałem, że skoro tak się importuje, to gdzieś muszą być te ustawienia. Ponieważ udało mi się je znaleźć, to postanowiłem się tym podzielić z szanownymi Użytkownikami tego forum. Tylko tyle.

Ja nie mam nic przeciwko temu że to opisałeś, ten sposób jest znany od dawna i celowo go pomijam w poradniku bo TAK przez to że trzeba wykonywać te wszystkie dodatkowe durne kroki, to sprawia tylko same problemy i to nawet jak ktoś wie o co chodzi. Ja potrzebuję mieć dla moich widzów, czytelników poradnik który działa w 1000000% bez zmian i dlatego go zrobiłem. A ten sposób który opisałeś jak mówiłem już dość dawno i coraz częściej pojawia się w internecie tylko jak znam ludzi, którzy na początku się na to klikanie napalili tak później szybko zapał gaśnie i każdy woli normalną - pracę bez udziwnień a to zapewnia ostatnia wersja ECLIPSE 2024 .... rozumiesz? Nowsze wersje ECLIPSE 2025 nie wnoszą NIC NOWEGO ani czegoś POTRZEBNEGO dla pisania projektów dla AVR tak jak to się robiło od LAT.

Więc jeśli ktoś jest sorki za określenie - masochistą to może sobie klikać ile wlezie i używać kociego eclipse 2025

Statystyki: Napisane przez mirekk36 — 23 cze 2025, o 09:03

Delphi pascal, Lazarus • Re: Eclipse dla AVR na lata 2025 aż do 2048 !!!!

2025-06-23T07:30:26+01:00

Statystyki: Napisane przez janusz17 — 23 cze 2025, o 07:30

Delphi pascal, Lazarus • Re: Eclipse dla AVR na lata 2025 aż do 2048 !!!!

2025-06-22T22:58:25+01:00

janusz17 napisał(a):

W oknie Select Nature wybieramy AVR Nature i klikamy przycisk OK, potem Apply and Close

I tak trzeba klikać pierdyliard razy dla każdego nowo zakładanego projektu - dla mnie to MEGA MASAKRA i spróbuj mi uzasadnić ale rzeczowo dlaczego tak się męczyć zamiast użyć tej wersji o której mowa w poradniki gdzie nie trzeba tyle tego głupiego klikania robić.

Co gorsze wracasz za rok do tego swojego nowszego eclipsa i zapomniałeś tych kroków i znowu szukasz swojej instrukcji - totalny nonsens - no chyba że jakoś rzeczowo to uzasadnisz dlaczego tak się męczyć warto jak pokazałeś - to zrozumiem

Statystyki: Napisane przez mirekk36 — 22 cze 2025, o 22:58

Delphi pascal, Lazarus • Re: Eclipse dla AVR na lata 2025 aż do 2048 !!!!

2025-06-21T16:18:14+01:00

Dzień dobry wszystkim. Właśnie odkryłem jak przywrócić w najnowszym eclipse zakładkę AVR, gdzie można zmieniać typ procesora i częstotliwość taktowania. Poniżej zamieszczam kilka zrzutów ekranu, gdzie widać jak to zrobić.

U mnie to zadziałało na wersji 2025-06.

Tworzymy nowy projekt: File->New->C/C++ Project

Następnie wybieramy C Managed Build i klikamy przycisk Next>

W nowym oknie wpisujemy nazwę projektu, wybieramy AVR Cross Target Aplication->Empty Project i klikamy Next>

Następnie odznaczamy ptaszka przy Debug i klikamy przycisk po prawej stronie na dole Adwanced Settings...

Z listy po lewej stronie wybieramy Project Natures i klikamy przycisk po prawej stronie Add...

W wyskakującym okienku Confirm Project Nature update klikamy przycisk OK

W oknie Select Nature wybieramy AVR Nature i klikamy przycisk OK, potem Apply and Close

W nstępnym oknie klikamy Finish

To już wszystko. We właściwościach nowo utworzonego projektu jest zakładka AVR

Statystyki: Napisane przez janusz17 — 21 cze 2025, o 16:18

Delphi pascal, Lazarus • Re: MKUDPS - range check error

2025-05-20T17:44:47+01:00

Dzięki za obszerne wyjaśnienie, wszystko jasne!

Statystyki: Napisane przez lolek50 — 20 maja 2025, o 17:44

Delphi pascal, Lazarus • Re: MKUDPS - range check error

2025-05-20T06:56:44+01:00

Panie kochany to nie ma NIC a NIC wspólnego z MkUDPS

robisz MEGA BABOLE w kodzie - podstawowym to jest brak sprawdzania tego co ci przyleciało w PacketUDP. Jeśli przyleciał pusty string albo za krótki albo nie zawierający cyfr to będziesz dostawał takie komunikaty które są normalne jak świat - bo jak może nie być range error gdy np masz string '123' a ty chcesz sprawdzić jego 7 element if P[7] = toż to nonsens

Ty sobie zakładasz że jak przyleci w P[2] literka P to na 100% w StrtoInt(P[7]) = 0 a jak string będzie krótszy to ci się wyrypie, jeśli w tym miejscu nie będzie cyfry tylko litera to kolejny błąd wywali StrToInt .... jak już to stosuj StrToIntDef( P[7], -1 ) ... który nie wywali błędu jeśli w P[7] będzie litera albo nawet pusty znak to podstawi ci np -1

Tak czy inaczej to jest kompletnie zła droga parsowania nadlatujących danych a testować to możesz sobie w byle buttonie - masz przykład daj sobie raz P := '' a innym razem P := '5P' jak tu w kodzie - zobaczysz co się dzieje i że nie ma to nic wspólnego z MkUDPS, a taki komunikat widziałeś że to w MkUDPS i słusznie bo babola robiłeś w metodzie tego komponentu. Postaw sobie Button na formie

i wklej jego kod jak niżej - dostaniesz to samo a może jeszcze czegoś się nauczysz - bo nie można sobie zakładać że zawsze ci przyleci to czego oczekujesz

[syntax=c]procedure TForm1.Button1Click(Sender: TObject);
begin
P := '';
P := '5P';

// Pogoda-------------------------------------------

if StrtoInt(P[1]) = 5 then begin

if P[2] = 'P' then begin

// wilgotność------------------------

if StrtoInt(P[3]) = 6 then begin

W := P[4] + P[5] + P[6];
Wa := StrtoInt(W);
Wb := Wa / 10;

Label8.Caption := FloatToStr(Wb);

end;
end;

end;

if StrtoInt(P[1]) = 5 then begin

if P[2] = 'P' then begin

// ciśnienie------------------------

if StrtoInt(P[7]) = 0 then begin

P := P[8] + P[9] + P[10] + P[11] + P[12];
Pa := StrtoInt(P);
Pb := Pa / 10;

Label6.Caption := Format('%0.1f hpa', [Pb]);

end;

if StrtoInt(P[7]) = 1 then begin

P := P[8] + P[9] + P[10] + P[11];
Pa := StrtoInt(P);
Pb := Pa / 10;

Label6.Caption := Format('%0.1f hpa', [Pb]);

end;

end;
end;
end;[/syntax]

i weź formatuj te beginy tak - bo inaczej to masz tak rozstrzelony ten kod że nie dziwię, się że ciężko ci go nawet analizować

masz tu więc pięknie odtworzony twój błąd i wskazane przez co to się dzieje i dlaczego tak nie można podchodzić do parsowania danych, wystarczy że pusta linia przyleci bo wysłany został tylko CRLF którego komponent usunie i będziesz miał po :

[syntax=c]P := PacketUDP[/syntax]

zawartość P = '' i już się zburzy cała twoja układanka tym właśnie range check errorem

Statystyki: Napisane przez mirekk36 — 20 maja 2025, o 06:56

Delphi pascal, Lazarus • Re: MKUDPS - range check error

2025-05-19T22:20:37+01:00

Ok, już załączam jakie typy danych i szerszy kontekst - całość jest umieszczona w procedurze GetPacketUDP

[syntax=delphi]var
Form5: TForm5;
P, W: String;
Pa, Wa: Integer;
Pb, Wb: Double;

procedure TForm5.MkUDPS1GetPacketUDP(Sender: TObject; PacketUDP, PacketUDPHex,
PeerIP, PeerPort: string; var Response: string);

begin

P := PacketUDP;

//Pogoda-------------------------------------------

if StrtoInt(P[1])= 5 then

begin

if P[2]= 'P' then

begin

//wilgotność------------------------

if StrtoInt(P[3])= 6 then

begin

W:=P[4]+P[5]+P[6];
Wa:=StrtoInt(W);
Wb:=Wa/10;

Label8.Caption:= FloatToStr(Wb);

end;
end;

end;

if StrtoInt(P[1])= 5 then

begin

if P[2]= 'P' then

begin

//ciśnienie------------------------

if StrtoInt(P[7])= 0 then

begin

P:=P[8]+P[9]+P[10]+P[11]+P[12];
Pa:=StrtoInt(P);
Pb:=Pa/10;

Label6.Caption:= Format('%0.1f hpa', [Pb]);

end;

if StrtoInt(P[7])= 1 then

begin

P:=P[8]+P[9]+P[10]+P[11];
Pa:=StrtoInt(P);
Pb:=Pa/10;

Label6.Caption:= Format('%0.1f hpa', [Pb]);

end;

end;
end;

end;[/syntax]

Statystyki: Napisane przez lolek50 — 19 maja 2025, o 22:20

Delphi pascal, Lazarus • Re: MKUDPS - range check error

2025-05-19T18:30:45+01:00

pokaż lepszy testowy kod bo z tego co pokazałeś to ja nawet nie wiem czy to ma coś wspólnego z MkUDPS - to kompletnie jakiś kod wyrwany z kontekstu, nie wiadomo jakie typy i jaki to ma styk z MkUDPS

Statystyki: Napisane przez mirekk36 — 19 maja 2025, o 18:30

Delphi pascal, Lazarus • Re: MKUDPS - range check error

2025-05-19T17:12:17+01:00

Tak, to jest komponent z kompilacji sprzed miesiąca, pod Delphi 12CE

Statystyki: Napisane przez lolek50 — 19 maja 2025, o 17:12

Delphi pascal, Lazarus • Re: MKUDPS - range check error

2025-05-19T09:49:38+01:00

a to najnowsza wersja komponentu?

Statystyki: Napisane przez mirekk36 — 19 maja 2025, o 09:49

Delphi pascal, Lazarus • MKUDPS - range check error

2025-05-18T16:53:37+01:00

Witam ponownie!
natrafiłem na problem z wykorzystaniem komponentu - wyskakuje mi błąd jak poniżej "range check error"

Poniżej fragment kodu (odczyt ciśnienia z czujnika wysyłanego przez sieć z wykorzystaniem UDP). Po rozpoznaniu P[7] wiem czy ciśnienie jest powyżej czy poniżej 1000hpa i odpowiednio wyświetlam to w aplikacji.
Wszystko jest ok jeśli w kodzie jest tylko jeden warunek if StrtoInt(P[7])= 0, dołożenie drugiego warunku
if StrtoInt(P[7])= 1 niestety powoduje wyświetlenie powyższego błędu i zupełnie nie rozumiem dlaczego - prośba o wsparcie.

[syntax=delphi]if StrtoInt(P[1])= 5 then

begin

if P[2]= 'P' then

begin
//ciśnienie------------------------

if StrtoInt(P[7])= 0 then

begin

P:=P[8]+P[9]+P[10]+P[11]+P[12];
Pa:=StrtoInt(P);
Pb:=Pa/10;

Label6.Caption:= Format('%0.1f hpa', [Pb]);
end;

if StrtoInt(P[7])= 1 then

begin

P:=P[8]+P[9]+P[10]+P[11];
Pa:=StrtoInt(P);
Pb:=Pa/10;

Label6.Caption:= Format('%0.1f hpa', [Pb]);
end;

end;

end;[/syntax]

Statystyki: Napisane przez lolek50 — 18 maja 2025, o 16:53

Delphi pascal, Lazarus • Re: MKUDPS pod Delphi 12

2025-04-25T23:40:08+01:00

Dziękuję bardzo, świetny komponent!

-- 25 kwi 2025, o 23:40 --

Witam ponownie!
natrafiłem na problem z wykorzystaniem komponentu - wyskakuje mi błąd jak poniżej "range chceck error"

Poniżej fragment kodu (odczyt ciśnienia z czujnika wysyłanego przez sieć z wykorzystaniem UDP). Po rozpoznaniu P[7] wiem czy ciśnienie jest powyżej czy poniżej 1000hpa i odpowiednio wyświetlam to w aplikacji.
Wszystko jest ok jeśli w kodzie jest tylko jeden warunek if StrtoInt(P[7])= 0, dołożenie drugiego warunku
if StrtoInt(P[7])= 1 niestety powoduje wyświetlenie powyższego błędu i zupełnie nie rozumiem dlaczego - prośba o wsparcie.

[syntax=delphi]if StrtoInt(P[1])= 5 then

begin

if P[2]= 'P' then

begin
//ciśnienie------------------------

if StrtoInt(P[7])= 0 then

begin

P:=P[8]+P[9]+P[10]+P[11]+P[12];
Pa:=StrtoInt(P);
Pb:=Pa/10;

Label6.Caption:= Format('%0.1f hpa', [Pb]);
end;

if StrtoInt(P[7])= 1 then

begin

P:=P[8]+P[9]+P[10]+P[11];
Pa:=StrtoInt(P);
Pb:=Pa/10;

Label6.Caption:= Format('%0.1f hpa', [Pb]);
end;

end;

end;[/syntax]

Statystyki: Napisane przez lolek50 — 25 kwi 2025, o 23:40

Delphi pascal, Lazarus • Re: MKUDPS pod Delphi 12

2025-04-25T06:58:04+01:00

ok, już skompilowałem i można pobrać pod 12.3

Statystyki: Napisane przez mirekk36 — 25 kwi 2025, o 06:58

Delphi pascal, Lazarus • Re: MkUDPS pod Delphi 11

2025-04-25T06:57:44+01:00

Ale jak ma działać skompilowany na starszej wersji?

Dlatego ok, już skompilowałem i można pobrać pod 12.3

Statystyki: Napisane przez mirekk36 — 25 kwi 2025, o 06:57

Delphi pascal, Lazarus • MKUDPS pod Delphi 12

2025-04-24T19:52:15+01:00

Komponent MKUDPS 11.3 nie daje się zainstalować pod Delphi 12CE.
Czy jest szansa na kompilację pod D12CE?

Statystyki: Napisane przez lolek50 — 24 kwi 2025, o 19:52

Delphi pascal, Lazarus • Re: MkUDPS pod Delphi 11

2025-04-24T17:47:38+01:00

Komponent MKUDPS 11.3 nie daje się zainstalować pod Delphi 12CE.
Czy jest szansa na kompilację pod D12CE?

Statystyki: Napisane przez lolek50 — 24 kwi 2025, o 17:47

Delphi pascal, Lazarus • Re: Eclipse dla AVR na lata 2025 aż do 2048 !!!!

2025-04-14T14:14:12+01:00

Skorzystałem i gorąco polecam bo warto .
Pozdrawiam serdecznie.

Statystyki: Napisane przez Józef 63 — 14 kwi 2025, o 14:14

Delphi pascal, Lazarus • Eclipse dla AVR na lata 2025 aż do 2048 !!!!

2025-04-12T19:21:45+01:00

Zapraszam - zobacz to proste, łatwe i psijemne

iframe

Statystyki: Napisane przez mirekk36 — 12 kwi 2025, o 19:21

Delphi pascal, Lazarus • ATmega8 i Home Assistant! To możliwe ?

2025-04-09T19:50:03+01:00

Co tu się dzieje, przecież 8-bitowce są za słabe na takie zabawy? hmmm zobacz sam!

iframe

Statystyki: Napisane przez mirekk36 — 9 kwi 2025, o 19:50

Delphi pascal, Lazarus • AVR czy można zrobić integrację z Home Assistant????????

2025-03-30T18:07:20+01:00

hmmm MOŻNA !!! - sprawdź sam jak:

iframe

Statystyki: Napisane przez mirekk36 — 30 mar 2025, o 18:07

Delphi pascal, Lazarus • Re: Zdalny odczyt czujnika

2025-03-21T15:43:57+01:00

Gdyby ktoś chciał się pobawić to jest: http://www.jaglarz.info/android/postAtnel/result.apk

Aby sprawdzic działanie w ustawieniach należy wpisać/wkleić:

www.jaglarz.info/android/postAtnel/odczyttemp.php

Przy własnych próbach należy w tym miejscu wkleić ścieżkę dostępu do własnego pliku php.

Wersja na minimum Android 7

Statystyki: Napisane przez Jaglarz — 21 mar 2025, o 15:43

Delphi pascal, Lazarus • Re: Aktualizacja do Win11 za FREE! Za DARMO!

2025-03-01T22:05:32+01:00

jeśli komputer spełniał wymagania to nie mam pojęcia po co było w ogóle ten program uruchamiać Ale nic się nie stało - nic się nie odwróci z tego co on zrobił i wcale nie potrzeba odwracać - to co zrobił nie ma najmniejszego znaczenia na kompie który spełnia wymagania. Na przyszłość proszę pomyśl wcześniej - bo wyraźnie mówiłem, że ten sposób dotyczy tylko kompów nie spełniających wymagań

Statystyki: Napisane przez mirekk36 — 1 mar 2025, o 22:05

Delphi pascal, Lazarus • Re: Aktualizacja do Win11 za FREE! Za DARMO!

2025-03-01T17:04:44+01:00

Witam.
Przyznam że trochę mnie ciekawość "zżarła" i sprawdziłem jak zachowuje się program z Pana najnowszego poradnika: "Win 11 najnowszy 24H2 za FREE - Unlocker - jeszcze prostsza metoda - tego nikt w internecie nie ma!" czyli MkWin11ver24H2unlocker.exe na moim komputerze

Docelowo chce zainstalować na czysto W11 24H2 na "starszej" maszynie - bez systemu. Może nie do końca w tym przypadku zrozumiałem ale powinienem chyba zrobić tak:
Na moim drugim komputerze - który na marginesie spełnia wszystkie wymagania W11
1. stworzyć bootującego pendriva z W11 24H2 (skorzystać ze strony Microsoft)
2. umieścić plik MkWin11ver24H2unlocker.exe na pendrive i go uruchomić.
3. włożyć pena do "starego" komputera i zabootować z niego instalując w 11.
Jeżeli coś inaczej to proszę o komentarz.

I teraz inna sprawa.
Tak jak na wstępie uruchomiłem program MkWin11ver24H2unlocker z pulpitu na moim komputerze spełniającym wszystkie wymagania W11 ale nie miałem jeszcze nic ściągniętego ani obrazu płyty ani zrobionego pendriva. Prawdę mówiąc myślałem że się zapyta czy ma "podrasować" system do upgradu czy może poprawić coś na pendrive, ale nie było tego pytania. Tym bardziej myślałem że się wyłączy kiedy nie będzie w folderze obrazu z instalacją. No cóż ...
Program się uruchomił po naciśnięciu przeszedł swoją procedure i pokazał odsłoniętą kłódkę i tyle. Ok.

Teraz pytanie: czy można cofnąć działanie tego programu/aplikacji "MkWin11..."? (Ma Pan do niego jakiś program w stylu uninstall/cofnięcie zmian). Bo wydaje mi się że coś zmienił w rejestrze pomimo tego że mój komputer spełniał wszelkie normy. Nie chcę by Pan mi mówił co tam było zmieniane (jeżeli w ogóle było). Może byc jakiś program który cofnie działania pierwszego. Uruchomię i tyle. Bedę miał spokojne "sumienie"
Windows działa w porządku, obawiam się tylko czy będę miał dalej wszystkie dalsze aktualizacje pomimo jakiś zapisów w rejestrze wyłączających sprawdzanie poprawności komputera.

pozdrawiam
Marek

Statystyki: Napisane przez marek003 — 1 mar 2025, o 17:04

Delphi pascal, Lazarus • Re: Zdalny odczyt czujnika

2025-02-05T14:23:40+01:00

JarekK napisał(a):

Jak już 90% apki zrobione to zachęcam do dokończenia i podzielenia się na forum. Chętnie potestuję

Robi się

Statystyki: Napisane przez Jaglarz — 5 lut 2025, o 14:23