ATNEL tech-forum

Re: Problem z transmisją UDP

2020-11-11T16:51:45+01:00

Tak zrobiłem jak radzisz i też działa, ale... jest warning 13 że powinna być zadeklarowana w Process Sub Globals. Mowa o deklaracji licznika. Natomiast zmienną opoznienie mam zadeklarowana w Sub Globals i jest ok.

Statystyki: Napisane przez jaca — 11 lis 2020, o 16:51

Re: Problem z transmisją UDP

2020-11-09T21:47:09+01:00

jaca napisał(a):

grzeniu 73 napisał(a):

[syntax=basic4gl]Sub Process_Globals
Nie Public tylko Dim.
A w procedurze Timer1_Tic na końcu zamiast timer stop napisałem Timer1.Enabled = False.
No ale to pewnie Wiesz. Zastanawia mnie tylko dlaczego zmiennej opoznienie nie mogłem zadeklarować w procedurze obsługi Timer1 tylko w Globals. Zadeklarowałem ja jako int.

Po co te zmienne deklarujesz w Sub Process_Globals powinieneś zadeklarować je w Sub Globals i nie Dim tylko Private...

Statystyki: Napisane przez tfosik — 9 lis 2020, o 21:47

Re: Problem z transmisją UDP

2020-11-08T22:16:01+01:00

Timer1.Enabled = False. no i tak ma byc. Tamto tylko tak jako wzór napisałem. Jak juz to działa to teraz zrób zabezpieczenie. Wyślij do jednego i włącz timer i czekaj na odpowiedz. Jesli przyjdzie w ciagu powiedzmy 1s to ustaw flage i zresetuj timer , a jeśli minie ustawiony czas to tez wyślij do następnego ( albo jeszcze raz odpytaj) ale flage zresetuj. Dzięki temu będziesz pewien ,ze ci się nic nie pokielbasi. Trochę chaotycznie pisze ale chyba skumasz o co chodzi.

Statystyki: Napisane przez grzeniu 73 — 8 lis 2020, o 22:16

Re: Problem z transmisją UDP

2020-11-08T20:43:06+01:00

grzeniu 73 napisał(a):

[syntax=basic4gl]Sub Process_Globals

Public timer1 As Timer[/syntax]

pozniej inicjujesz

[syntax=basic4gl]timer1.Initialize("timer1",50)
timer1.Enabled=True[/syntax]
i to juz w programie
[syntax=basic4gl]Sub timer1_tick ' wyswietlanie godzin

' tu sobie wpisz to co wyżej napisałem

End Sub[/syntax]

OK poszło na timerze, ale w taki sposób.

[syntax=basic4gl]Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim udpsrv As UDPSocket
Dim udppack As UDPPacket

Dim Timer1 As Timer

End Sub[/syntax]

Nie Public tylko Dim.
A w procedurze Timer1_Tic na końcu zamiast timer stop napisałem Timer1.Enabled = False.
No ale to pewnie Wiesz. Zastanawia mnie tylko dlaczego zmiennej opoznienie nie mogłem zadeklarować w procedurze obsługi Timer1 tylko w Globals. Zadeklarowałem ja jako int.
Póki co jest OK.
Jeszcze raz dzięki.

Statystyki: Napisane przez jaca — 8 lis 2020, o 20:43

Re: Problem z transmisją UDP

2020-11-06T23:00:59+01:00

No właśnie podchodziłem do tego i mi nie wyszło. Kupiłem tez książkę Mirka i tez leży. Jakoś nie mogłem sie wkręcić w to. Moze kiedyś. Ale przypomniało mi sie cos gdy byłem gowniazem. Moich dwóch kumpli miało samochody. Jeden jak na tamte czasy bardzo sportowy ,a drugi taki trochę zlomik. Ale jak to każdy musi udowodnić który lepszy, umówili sie na torze. No i na torze wyszło ,ze to nie samochód wygrywa ,tylko kierowca. Dlatego nie wdaje sie w dyskusje co lepsze. Dopóki realizuje wszystko to co sobie wymyśle dzięki bascomowi to po co mam kombinować? Pewnie dla kogoś kto zajmuje sie profesjonalnie programowaniem ( zapewne ci co pisali do pierwszych wypraw w kosmos , nasze języki wydaja sie przedszkolem, skoro oni programy zapisywali na kartach perforowanych . I tez dali rade na księżycu wylądować) ma to znaczenie, ale dla mnie nie ma żadnego oprócz efektu. A do brzegu jeszcze nie dopłynąłem. Ważne żeby myśleć i kombinować czego wszystkim tego życzę. A jak czegoś nie umie to poproszę o pomoc

Statystyki: Napisane przez grzeniu 73 — 6 lis 2020, o 23:00

Re: Problem z transmisją UDP

2020-11-06T21:55:19+01:00

@Grzesiu73, możesz jeszcze wypróbować B4R...

Statystyki: Napisane przez tfosik — 6 lis 2020, o 21:55

Re: Problem z transmisją UDP

2020-11-06T18:41:32+01:00

To tak specjalnie napisałem, żeby Was trochę pobudzić, bo mało cos postów:) Zawsze tak jest, że wystarczy cos o bascomie napisać i sie wrzawa robi .Bardzo wrażliwi jesteście . I tak sorka chodziło o składnie

Statystyki: Napisane przez grzeniu 73 — 6 lis 2020, o 18:41

Re: Problem z transmisją UDP

2020-11-06T11:18:42+01:00

Quote:

="tfosik"Drogi Mirosławie, ja napisałem tylko że zwykłe Arduino jest dziś lepsze od Bascoma...Nic nie pisałem o C..czy C++, które jest najlepsze...

Ok przepraszam

Statystyki: Napisane przez mirekk36 — 6 lis 2020, o 11:18

Re: Problem z transmisją UDP

2020-11-06T00:08:05+01:00

mirekk36 napisał(a):

tfosik napisał(a):

ale uważam że zwykłe Arduino jest dzisiaj dużo lepsze

jeszcze lepiej ! ...

wyższości Bascoma i Andruino nad pisaniem w C no po prostu pomysły świata kosmosu

Drogi Mirosławie, ja napisałem tylko że zwykłe Arduino jest dziś lepsze od Bascoma...Nic nie pisałem o C..czy C++, które jest najlepsze...

Statystyki: Napisane przez tfosik — 6 lis 2020, o 00:08

Re: Problem z transmisją UDP

2020-11-05T23:48:27+01:00

tfosik napisał(a):

ale uważam że zwykłe Arduino jest dzisiaj dużo lepsze

jeszcze lepiej ! ...

wyższości Bascoma i Andruino nad pisaniem w C no po prostu pomysły świata kosmosu

Statystyki: Napisane przez mirekk36 — 5 lis 2020, o 23:48

Re: Problem z transmisją UDP

2020-11-05T23:36:10+01:00

grzeniu 73 napisał(a):

Robisz timer (50)

No i tu wyższość pisania w Bascom nad C. B4a działa praktycznie tak samo jak bascom .

Oj tu delikatnie z tego typu stwierdzeniami...Nie chcę wszczynać jakiejś ideologicznej wojny, bo sam robiłem dużo w Bascomie, ale uważam że zwykłe Arduino jest dzisiaj dużo lepsze. Poza tym Bascom nie działa tak samo jak B4A, ma tylko podobną składnie..

Statystyki: Napisane przez tfosik — 5 lis 2020, o 23:36

Re: Problem z transmisją UDP

2020-11-05T22:39:10+01:00

Statystyki: Napisane przez grzeniu 73 — 5 lis 2020, o 22:39

Re: Problem z transmisją UDP

2020-11-05T20:01:24+01:00

przecież wyżej kolega napisał ci PEŁNY pseudokod do timera bo ten twój sposób .... hmmm jeśli któryś nie odpowie moduł to reszta leży rozłożona na łopatki

Statystyki: Napisane przez mirekk36 — 5 lis 2020, o 20:01

Re: Problem z transmisją UDP

2020-11-05T18:05:21+01:00

Dzięki za pomoc.
Z timerem to jakoś nie mogę tego ogarnąć. Zrobiłem póki co inaczej. Przy starcie aplikacji program wysyła stringa do pierwszego modułu. Jeśli moduł odpowie to w procedurze odbioru jest wysyłany string do drugiego modułu, jeśli drugi odpowie to do trzeciego itd.
Dalekie to od doskonałości ale co jest doskonałe ?????

Statystyki: Napisane przez jaca — 5 lis 2020, o 18:05

Re: Problem z transmisją UDP

2020-11-04T15:13:30+01:00

jaca napisał(a):

nie poszły by do wszystkich modułów automatycznie

wiesz co to są warunki IF i prosta maszynka stanów ? - ale już widzę że kolega wyżej podpowiedział ci ...

Statystyki: Napisane przez mirekk36 — 4 lis 2020, o 15:13

Re: Problem z transmisją UDP

2020-11-04T11:58:49+01:00

Robisz timer (50)
w timerze
opóźnienie = opóźnienie +1
select case opóźnienie

case 1
1 moduł
case 2
drugi
case 3
trzeci
case 4
czwarty
case 5
opoznienie=0
timer stop
end select

To tylko podpowiedz. Timer sobie dobierz doświadczalnie, ale 50ms powinno wystarczyć. Możesz sobie wyslac do pierwszego poczekac na jego odpowiedz i wyslac do drugiego itp jak nie odpowie to zaznaczyć error i odpytywać dalej. Tak czy inaczej musisz timer zrozumieć dosyc dobrze bo bez tego ani rusz. Komunikuje sie z dwoma urządzeniami i dziala to bez problemu. Do testów zobacz czy pomoże delay pomiędzy wysylaniem.
No i tu wyższość pisania w Bascom nad C. B4a działa praktycznie tak samo jak bascom .

Statystyki: Napisane przez grzeniu 73 — 4 lis 2020, o 11:58

Re: Problem z transmisją UDP

2020-11-04T11:45:42+01:00

mirekk36 napisał(a):

Wystarczy jeden timer w B4A i w nim na zasadzie wyboru jednej z 4 opcji wysyłać 4 różne stringi a po wysłaniu ostatniego - zatrzymać timer.

No tak, ale o ile dobrze zrozumiałem to spowodowało by że stringi (w zasadzie jeden ten sam string tylko pod 4 różne ip) nie poszły by do wszystkich modułów automatycznie tylko użytkownik sam dokonywał by wyboru z którym chce gadać w danej chwili. A ja bym chciał żeby automatycznie po uruchomieniu aplikacji program sam odpytał wszystkie moduły czy są podłączone do sieci i gotowe do komunikacji.

Statystyki: Napisane przez jaca — 4 lis 2020, o 11:45

Re: Problem z transmisją UDP

2020-11-03T23:34:19+01:00

Wystarczy jeden timer w B4A i w nim na zasadzie wyboru jednej z 4 opcji wysyłać 4 różne stringi a po wysłaniu ostatniego - zatrzymać timer.

Sam proces wysyłania zawsze zaczynałby się odpaleniem timera

Statystyki: Napisane przez mirekk36 — 3 lis 2020, o 23:34

Re: Problem z transmisją UDP

2020-11-03T23:03:35+01:00

Myślałem o timerze ale nie umiem tego zrobić. Próbowałem wzorować się na poradniku Mirka #0393 B4A MAP, aplikacja WakeOnLan, Magic Packets - Part1 , ale to nie to samo. Zrobić zdarzenie od timera i w zdarzeniu wysyłać stringa do jednego modułu a co z innymi. A poza tym jakie zdarzenie. Co miało by uruchamiać to zdarzenie. Nie potrafię przełożyć timerów programowych z c do B4A.

Statystyki: Napisane przez jaca — 3 lis 2020, o 23:03

Re: Problem z transmisją UDP

2020-11-03T22:03:24+01:00

A spróbuj dac opóźnienie przy wysyłaniu. Zrob jakiś timer i co kilka ms wysylaj. Przy odbiorze zrob Case msg . Trochę ładniej wygląda. No i wysylaj krótsze stringi zamiast drzwibalkonowe _ok to wystarczy "1-ok" "2-ok" masz duzo mniej bajtow do wysłania

Statystyki: Napisane przez grzeniu 73 — 3 lis 2020, o 22:03

Problem z transmisją UDP

2020-11-03T19:23:07+01:00

Witam.
Z telefonu wysyłam do 4 modułów WiFi stringa, który ma trafić do każdego z mk podpiętych do modułów WiFi.
Mk po odbiorze stringa ma odesłać również stringa do telefonu, a ten po odbiorze i identyfikacji który to mk odpowiedział ma zmienić kolor nazwy wyświetlanego w aplikacji modułu z szarego na zielony, potwierdzając tym samym użytkownikowi, że ma komunikację z każdym z 4 mk po wifi.
Problem w tym, że tylko jeden ze stringów wychodzi z telefonu i trafia do mk. I jest to zawsze ten, który jest ostatni.
Moduły pracują na tym samym porcie jako serwery udp ale każdy z nich ma inne ip statyczne. Także wysyłanie stringów do mk odbywa się za pomocą 4 instrukcji do każdego z osobna. Próbowałem konfigurować moduły tak żeby każdy pracował na innym porcie ale to tez nic nie dało. Myślałem, że może coś jest nie halo z odbiorem po stronie telefonu kiedy mk odpowiadają, ale raczej nie bo dołożyłem lcd do mk i cokolwiek przyleci jest wyświetlane na lcd.
Ktoś wie w czym problem. Może jakieś delaye potrzebne brrrrrr.

[syntax=vb]Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.
Dim udpsrv As UDPSocket
Dim udppack As UDPPacket

End Sub

Sub Globals
'These global variables will be redeclared each time the activity is created.
Private Panel1 As Panel
Private labDrzwiBalkonowe As Label
Private labOknoBalokonowe As Label
Private labKuchnia As Label
Private labMałyPokój As Label
Private labWszystkie As Label

Dim new_line As String = Chr(13) & Chr(10)
Dim komenda As String = "UDP-CHECK"
Dim ip_DB As String = "192.168.0.5"
Dim ip_OB As String = "192.168.0.6"
Dim ip_K As String = "192.168.0.7"
Dim ip_P As String = "192.168.0.8"
Dim Port As String = 32000

End Sub

Sub Activity_Create(FirstTime As Boolean)

If FirstTime Then
udpsrv.Initialize("udpsrv",Port,512)
End If

Activity.LoadLayout("Layout")
Activity.Title = "Roleta1"

labDrzwiBalkonowe.TextColor = Colors.Gray
labOknoBalokonowe.TextColor = Colors.Gray
labKuchnia.TextColor = Colors.Gray
labMałyPokój.TextColor = Colors.Gray
labWszystkie.TextColor = Colors.Gray
komenda = "UDP-CHECK"
send_UDP(ip_DB, Port, komenda)
send_UDP(ip_OB, Port, komenda)
send_UDP(ip_K, Port, komenda)
send_UDP(ip_P, Port, komenda)

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub send_UDP(adres As String, Porcik As Int, str As String)

Dim dane() As Byte

str = komenda & new_line
dane = str.GetBytes("UTF8")
udppack.Initialize(dane, adres, Porcik)
udpsrv.Send(udppack)

End Sub

Sub udpsrv_PacketArrived (Packet As UDPPacket)

Dim msg As String

msg = BytesToString(Packet.Data, Packet.Offset, Packet.Length, "UTF8")

If msg = "DrzwiBalkonowe-OK" Then
labDrzwiBalkonowe.TextColor = Colors.Green
End If
If msg = "OknoBalkonowe-OK" Then
labOknoBalokonowe.TextColor = Colors.Green
End If
If msg = "Kuchnia-OK" Then
labKuchnia.TextColor = Colors.Green
End If
If msg = "MałyPokój-OK" Then
labMałyPokój.TextColor = Colors.Green
End If

End Sub[/syntax]

Statystyki: Napisane przez jaca — 3 lis 2020, o 19:23