ATNEL tech-forum 2016-09-29T19:23:31+01:00 https://forum.atnel.pl/feed.php?f=66&t=16330&mode 2016-09-29T19:23:31+01:00 2016-09-29T19:23:31+01:00 https://forum.atnel.pl/viewtopic.php?t=16330&p=169911#p169911 <![CDATA[Re: Komunikacja po RS232]]>
[syntax=delphi]procedure TForm1.CPort_ReceiveRxChar(Sender: TObject; Count: Integer);
var
str : string;
i : byte;
temp_tab : array[0..24] of integer;
temper : byte;
t,d : integer;
minus : string[1];
begin
CPort_Receive.ReadStr(str,count);
temper := StrToInt(Copy(str,0,2));
// minus := Copy(str,0,1);
// if minus = '-' then
// t := StrToInt(Copy(str,1,count))
// else
t := StrToInt(Copy(str,0,Length(str)-2));
d := t mod 10;
t := t div 10;
Matrix.Text := IntToStr(t)+'.'+IntToStr(d);//Copy(str,0,3);
// Label1.Caption := IntToStr(temper);
for i := 0 to 24 do
begin
temp_tab[i] := tab[i+1];
tab[i] := temp_tab[i];
end;
tab[i] := temper;
try
with DM_Temper do
if IBTrans_Temper.InTransaction then
begin
// IbTrans_Temper.StartTransaction;
// IBQry_Temper.SQL.Add([date,time,temper]);
// DM_Temper.IBTrans_Temper.Commit;
end;
except
// ShowMessage('Transakcja nie aktywna');
// DM_Temper.IBTrans_Temper.Rollback;
end;
end;[/syntax]

Statystyki: Napisane przez Piotrek_P — 29 wrz 2016, o 19:23

]]> 2016-09-29T18:19:36+01:00 2016-09-29T18:19:36+01:00 https://forum.atnel.pl/viewtopic.php?t=16330&p=169898#p169898 <![CDATA[Re: Komunikacja po RS232]]>
Przyznam też, że chociaż próbowałem to w ogóle nie rozumiem tego fragmentu kodu w Bascomie ... ale też bascomem to ja zajmowałem się już chyba 6 lat temu więc praktycznie nic nie pamiętam... Chociaż ... wiem że i w Bascomie można sobie programować w oparciu o zdarzenia i sam to kiedyś robiłem ... no ale nie taką liniową funkcją INKEY() :(

-------------------------------------------------------------------------------

ciężko mi zatem pomóc bo ty tutaj ściśle sprzęgasz komunikację procka z programem na PC a jak się z jednej strony źle pisze to z drugiej ciężko nawet reagować

Mi zaś ciężko podpowiadać jak rozwiązać coś w Bascomie - nie to że nie chcę tylko po prostu nie wiem - nie pamiętam na dzisiaj. Tu musi ktoś z Bascoma może coś podpowiedzieć .... ?

Ty nawet sam potrafisz dostrzec i DOKŁADNIE określić swój problem, bo piszesz:

MaciejF napisał(a):

Problem takiego rozwiazania polega na tym ze z gory musze znac ilosc znakow wyslanych przez uC do konkretnego Labela czy Panelu.

I masz tu 100000% racji

więc może jednak czas na próbę nauki jak to robić w sposób "nieblokujący" w oparciu o zdarzenia .... ?

Od strony procka to mógłbym ci polecić Greenbooka i tam opisaną komunikację przez RS232 no ale jaki to ma sens jeśli ty tworzysz w Bascomie ?

MaciejF napisał(a):

Wolałbym wysyłać z uC ciągiem wszystkie dane rozdzielane separatorem a w aplikacji rozdzielać je

I to jest dobry pomysł ... dobra droga - ważne że to już przynajmniej czujesz przez skórę ... dalsze kroki musisz podjąć sam

Bo procek powinien formować jakieś dane, zaś raz na sekundę jakaś procedura typu zdarzenie wywoływane niezależnie od pozostałej części programu powinna je zbierać, formować w ramkę ASCII i wysyłać do PC. To NAJLEPSZA droga ... Ale jeśli ty na razie jesteś na etapie GoSub , Goto to hmmm no może być to ciężko zrealizować ... a przecież nawet Bascom ma funkcje - tylko nie wiedzieć czemu mnóstwo ludzi piszących soft w tym języku z nich nie korzysta na rzecz właśnie goto, gosub, goto, goto, gosub itd Nie mówię tego broń Boże ironicznie - raczej wskazuję kierunek ...

W programie na PC - też kompletnie zapomnij o takim pisaniu linijka po linijce odbieraniu pojedynczych znaków czy coś bo - tu sam widzisz że wychodzi ci MASAKRA po prostu MASAKRA - tak nie można...

Zapoznaj się z komponentem z którego korzystasz i mogę się założyć, że posiada on zdarzenia - np OnRxData czy coś w tym stylu - i to te zdarzenia trzeba oprogramować

bo pomyśl sobie - jakbyś miał odebrać milion znaków z UART to byś pisał milion linijek w kodzie ? Ma to jakiś sens ?

Zdarzenia są po to żeby wyłapać nadlatujące dane - dostajesz je pewnie w jakimś buforze który przekazywany jest w argumencie funkcji zdarzenia .... i tam trzeba je parsować ... Gorzej oczywiście jeśli ty z kolei z Bascoma - cykasz je też w sposób liniowy no i się wszystko w końcu zacina i nic nie działa jak trzeba a programu nie ma jak rozbudować ...

Nawet jeśli zacząłbym poradniki Delphi a tobie udałoby się to wdrażać jakoś w Lazarusie (bo ja nie znam Lazarusa ni w ząb) .... to co z tego - jeśli ja będę pokazywał komplementarne przykłady od strony procka jeśli chodzi o komunikację w C w oparciu właśnie o zdarzenia opisane już dawno w GB ?

w tym jest właśnie problem

Statystyki: Napisane przez mirekk36 — 29 wrz 2016, o 18:19

]]> 2016-09-29T15:05:05+01:00 2016-09-29T15:05:05+01:00 https://forum.atnel.pl/viewtopic.php?t=16330&p=169883#p169883 <![CDATA[Komunikacja po RS232]]> Nie wiem jak zorganizować transmisję po RS232.
Dotychczas działało to tak, że uC zbierał dane i w pętli głównej czekał aż przyjdzie znak 1, 2 lub 3 i wykonywał odpowiednie działania.

[syntax=basic4gl]Z = Inkey()
Reset D1


Select Case Z

Case 1 :
Print Lu ; Wadc ; Wnap2 ; Otemp ; Odczyt(2);

Case 2:
Gosub Ds


Case 82 : Start Watchdog
Case 83 : Gosub Singlee


End Select[/syntax]

Odbiór w aplikacji wyglądał tak:
[syntax=delphi]begin


w1:=1;
comport1.Write(w1,1);

ComPort1.ReadStr(o6,1);
label8.caption:=o6;

ComPort1.ReadStr(o5,15);
label2.caption:=o5;

ComPort1.ReadStr(o7,13);
label10.caption:=o7;


ComPort1.ReadStr(o1,4);
panel6.Caption:=o1;
panel6.Color:=RGB(0,0,0);
panel6.Font.Color:=RGB(51,153,255);
panel6.Font.Size:=10;

ComPort1.ReadStr(o2,4);
panel3.Caption:=o2 + ' V';
//panel3.Color:=RGB(0,0,0);
panel3.Font.Color:=RGB(51,153,255);
panel3.Font.Size:=15;

ComPort1.ReadStr(o3,4);
panel4.Caption:=o3 + ' °C';
panel4.Color:=RGB(0,0,0);
panel4.Font.Color:=RGB(51,153,255);
panel4.Font.Size:=15;

ComPort1.ReadStr(o4,4);
panel9.Caption:=o4;
panel9.Color:=RGB(0,0,0);
panel9.Font.Color:=RGB(51,153,255);
panel9.Font.Size:=10;[/syntax]

Czyli aplikacja przez timer1 co 1sek wysyłała znak '1' uC odbiera i wysyła swoje dane.
Problem takiego rozwiazania polega na tym ze z gory musze znac ilosc znakow wyslanych przez uC do konkretnego Labela czy Panelu.
Gdybym np chcial odebrac z Ds18b20 nr seryjny to moze on zawierac od 8 do 24 znakow.

Wolałbym wysyłać z uC ciągiem wszystkie dane rozdzielane separatorem a w aplikacji rozdzielać je i umieszczać w odpowiednich okienkach typu panel1, panel2 itd. ale nie mam pojęcia jak to zrobić.
Może ktoś pomóc ?

Statystyki: Napisane przez MaciejF — 29 wrz 2016, o 15:05

]]>