ATNEL tech-forum

Re: komenda przekierowująca dane

2016-01-07T14:56:17+01:00

Moduł jest po WiFi. wykorzystuje moduł tln13ua06 że względu na dość duży zasięg i stabilne łącze. Moduł steruje centralnym zamkiem i ogrzewaniem webasto . Odczytuje temperaturę wewnątrz auta i napięcie zasilania.

Statystyki: Napisane przez driver0207 — 7 sty 2016, o 14:56

Re: komenda przekierowująca dane

2016-01-06T09:42:01+01:00

Wysyłaj ,tylko jak sie zmienia wartość zmiennej.Przecież temperatura nie zmienia Ci się co 50ms. Jak łączysz sie z samochodem? Bt czy wifi? Popełniłem kiedyś sterownik do "vebasto" i w planach mam dołożenie modułu GSM,ale jakoś czasu brak.

Statystyki: Napisane przez grzeniu 73 — 6 sty 2016, o 09:42

Re: komenda przekierowująca dane

2016-01-05T19:00:58+01:00

Dzięki wielkie. Już działa. Zrobiłem tak jak pisałeś. Wysyłam zmienne w odstępach po 50ms. Tyle że dałem sobie odświeżanie z timera. Każde wywołanie timera wysyła zmienna automatycznie zmienia docelowom kolejną zmienną do wysłania.

Statystyki: Napisane przez driver0207 — 5 sty 2016, o 19:00

Re: komenda przekierowująca dane

2016-01-05T13:10:59+01:00

driver0207 napisał(a):

Tak a ja mam problem bo po wysłaniu 4 stringów nie wyświetla wszystkich danych a jak wyślę 3 to te 3 wyświetli . A tak to 1 z 4 zostaje wyświetlona nie wiem gdzie szukać problemu

Wysyłaj 4 stringi w odstępach czasowych nie naraz

Statystyki: Napisane przez matekogon — 5 sty 2016, o 13:10

Re: komenda przekierowująca dane

2016-01-04T18:43:38+01:00

Tak a ja mam problem bo po wysłaniu 4 stringów nie wyświetla wszystkich danych a jak wyślę 3 to te 3 wyświetli . A tak to 1 z 4 zostaje wyświetlona nie wiem gdzie szukać problemu

Statystyki: Napisane przez driver0207 — 4 sty 2016, o 18:43

Re: komenda przekierowująca dane

2016-01-04T09:25:54+01:00

Ja dałem parę zmiennych "temp1,temp2 itd" W sumie wystarcza Ci dwie trzy zmienne string.Wtedy wszystko jest ok.Pierwsza rozpoznaje do czego ma przypisać ,a następne przyjmują dane wycięte z przychodzącego stringa

Statystyki: Napisane przez grzeniu 73 — 4 sty 2016, o 09:25

Re: komenda przekierowująca dane

2016-01-03T20:53:16+01:00

A mam takie pytanko jeszcze czy bufor odbiorczy w androidzie ma jakieś ograniczenia ? Bo rozwiązałem te przesyłanie tych 2 zmiennych w ten sposób.
[syntax=basic4gl]Sub udpsrv_PacketArrived (Packet As UDPPacket)
Dim msg As String

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

If msg.SubString2(0,2) = "u=" Then
napiecie.Text= msg.SubString2(2,6) &" V"
End If
If msg.SubString2(0,2) = "t=" Then
TEMPERATURA.Text= msg.SubString2(2,6) &" *C"
End If

If msg = "heather_on" Then
ogrzewanie_stan = True
wlacz.Text= "WYŁĄCZ"
STAN_OGRZEWANIE.Text = "WŁĄCZONE"
End If

If msg = "heather_off" Then
ogrzewanie_stan = False
wlacz.Text= "WŁĄCZ"
STAN_OGRZEWANIE.Text = "WYŁĄCZONE"
End If

If msg = "lock" Then
centralny_stan = True
otworz.Text = "OTWÓRZ"
STAN_ZAMEK.Text = "ZAMKNIĘTY"
End If

If msg = "unlock" Then
centralny_stan = False
otworz.Text = "ZAMKNIJ"
STAN_ZAMEK.Text = "OTWARTY"
End If

If msg = "connect" Then
wlacz.Enabled = True
otworz.Enabled = True
End If

End Sub[/syntax]

i losowo nie zawsze odświeżają mi się wszystkie dane. I to losowo wypada albo brak temperatury albo napięcia.

Statystyki: Napisane przez driver0207 — 3 sty 2016, o 20:53

Re: komenda przekierowująca dane

2016-01-03T15:10:32+01:00

Wyżej juz dodane

Statystyki: Napisane przez grzeniu 73 — 3 sty 2016, o 15:10

Re: komenda przekierowująca dane

2016-01-03T12:30:46+01:00

Dodam tylko, że w takim przypadku warto przyjrzeć się bliżej funkcji Substring. Wymarzona do wyłuskania potrzebnego kawałka z całego stringa

Statystyki: Napisane przez mario — 3 sty 2016, o 12:30

Re: komenda przekierowująca dane

2016-01-03T00:06:00+01:00

lol no jasne . Dzieki wielkie

------------------------ [ Dodano po: 7 minutach ]

Super działa malinowo Dzięki wielkie

Statystyki: Napisane przez driver0207 — 3 sty 2016, o 00:06

Re: komenda przekierowująca dane

2016-01-02T22:55:30+01:00

driver0207 napisał(a):

Mirku niestety mam błąd przy kompilacji

No to może spójrz sobie na inne warunki if i na ten konkretny - czegoś nie brakuje ? ... oczywiście ja też o tym zapomniałem no ale ... chyba wiesz jak się pisze warunki if() mówię - popatrz na te wyżej i na ostatni

Statystyki: Napisane przez mirekk36 — 2 sty 2016, o 22:55

Re: komenda przekierowująca dane

2016-01-02T22:24:24+01:00

Mirku niestety mam błąd przy kompilacji oraz w kodzie gdy wprowadziłem twój kod załączam kod programu
[syntax=basic4gl]Dim msg As String
Dim Token() As String

msg = BytesToString(Packet.Data, Packet.Offset, Packet.Length,"UTF8")
Token = Regex.Split( "=", msg)
If msg = "heather_on" Then
ogrzewanie_stan = True
wlacz.Text= "WYŁĄCZ"
STAN_OGRZEWANIE.Text = "WŁĄCZONE"
End If
If msg = "heather_off" Then
ogrzewanie_stan = False
wlacz.Text= "WŁĄCZ"
STAN_OGRZEWANIE.Text = "WYŁĄCZONE"
End If
If msg = "lock" Then
centralny_stan = True
otworz.Text = "OTWÓRZ"
STAN_ZAMEK.Text = "ZAMKNIĘTY"
End If
If msg = "unlock" Then
centralny_stan = False
otworz.Text = "ZAMKNIJ"
STAN_ZAMEK.Text = "OTWARTY"
End If
If msg = "connect" Then
wlacz.Enabled = True
otworz.Enabled = True
End If
If ( Token(0) = "u")
napiecie.Text = Token(1)
End If[/syntax]

Powinienem załączyć jakąś bibliotekę?
Po usunięciu lini 87,88,89 kod kompiluje sie normalnie

Statystyki: Napisane przez driver0207 — 2 sty 2016, o 22:24

Re: komenda przekierowująca dane

2016-01-02T13:20:51+01:00

załóżmy, że nadlatujące msg to: "u=12,3"

to robimy w kodzie
[syntax=basic4gl]Dim Token() as String

Token = Regex.Split( "=", msg)

If( Token(0) = "u" )
' niech label o nazwie TOKEN wyświetli napięcie
NAPIECIE.Text = Token(1)
End If[/syntax]

Statystyki: Napisane przez mirekk36 — 2 sty 2016, o 13:20

Re: komenda przekierowująca dane

2016-01-02T11:54:57+01:00

Ja to zobilem tak. Procek wysyla znak,a po znaku dane jako string.
W androidzie

[syntax=basic4gl]str= Text
temp1 = str.SubString2(0,1)
If temp1= "i" Then ' pokazuje ile ustawione jest litrow
temp2 = str.SubString2(1,4)
litr=temp2
Label5.text= temp2 & " L"
SeekBar1.value = litr
litr1=litr

End If[/syntax]
To tylko tak w skrócie

Statystyki: Napisane przez grzeniu 73 — 2 sty 2016, o 11:54

Re: komenda przekierowująca dane

2016-01-02T11:26:46+01:00

Tak wiem zalogowałem się ale mam komunikat :

This page may have been removed.
If you are trying to download a file and have purchased Basic4android then please contact support@basic4ppc.com and mention your user name

Statystyki: Napisane przez driver0207 — 2 sty 2016, o 11:26

Re: komenda przekierowująca dane

2016-01-02T07:53:15+01:00

Musisz się zalogować na tyn forum do którego podesłałem linka. Na pewno Ci się w przyszłości nie jeden raz przyda to forum więc warto. https://www.b4x.com/android/forum/attachments/stringfunctions-1-05-zip.23502/

Statystyki: Napisane przez sz4t4n — 2 sty 2016, o 07:53

Re: komenda przekierowująca dane

2016-01-01T22:40:41+01:00

sz4t4n
Nie moge pobrać tej biblioteki . Możesz zapodać jakiś link?

Statystyki: Napisane przez driver0207 — 1 sty 2016, o 22:40

Re: komenda przekierowująca dane

2016-01-01T20:53:50+01:00

Albo możesz użyć do analizy stringa funkcję regex.split("u=",msg)

Statystyki: Napisane przez matekogon — 1 sty 2016, o 20:53

Re: komenda przekierowująca dane

2016-01-01T18:20:47+01:00

Zainteresuj się tą biblioteką ->https://www.b4x.com/android/forum/threads/string-functions.10365/. Możesz sprawdzić czy w nadlatujących danych dwa pierwsze znaki to "u=" i jeżeli warunek będzie spełniony to wyświetl resztę danych ( wytnij string od pozycji 2) w textbox.

np.

[syntax=basic4gl]w globals dodaj
Dim sf As StringFunctions
sf.Initialize

a następnie w odbiorze danych dodaj taki warunek

If ( sf.Left(msg,2) = "u=") Then 'sprawdź czy dwa pierwsze znaki to "u=" jeżeli się zgadza to:

EditText1.Text = sf.Right(msg,msg.Length-2) 'wytnij ze stringa msg wszystko oprócz dwóch pierwszych znaków i umieść je w text box

End If[/syntax]

Statystyki: Napisane przez sz4t4n — 1 sty 2016, o 18:20

komenda przekierowująca dane

2016-01-01T15:33:58+01:00

Witam . Mam takie mały problem . Otóż zrobiłem sobie aplikacje do sterowania centralnym zamkiem i ogrzewaniem postojowym.
Samo sterowanie działa lecz chciałem by procesor wysyłam mi do telefonu dwie zmienne.
-napiecie zasilania (pomiar adc)
-temperaturę (ds18b20)
Od strony procesora mam wszystko opanowane i sprawdzone w terminalu.

Chciałem rozwiązać to w taki sposób że gdy nadleci komenda od strony procka "u=" wtedy kolejne dane będą wyświetlane w polu EditText
Mam to rozwiązane w ten sposób:
[syntax=basic4gl]Sub udpsrv_PacketArrived (Packet As UDPPacket)
Dim msg As String
msg = BytesToString(Packet.Data, Packet.Offset, Packet.Length,"UTF8")
If msg = "heather_on" Then
ogrzewanie_stan = True
wlacz.Text= "WYŁĄCZ"
STAN_OGRZEWANIE.Text = "WŁĄCZONE"
End If
If msg = "heather_off" Then
ogrzewanie_stan = False
wlacz.Text= "WŁĄCZ"
STAN_OGRZEWANIE.Text = "WYŁĄCZONE"
End If
If msg = "lock" Then
centralny_stan = True
otworz.Text = "OTWÓRZ"
STAN_ZAMEK.Text = "ZAMKNIĘTY"
End If
If msg = "unlock" Then
centralny_stan = False
otworz.Text = "ZAMKNIJ"
STAN_ZAMEK.Text = "OTWARTY"
End If
If msg = "connect" Then
wlacz.Enabled = True
otworz.Enabled = True
End If
If msg = "u= " Then
napiecie.Text = napiecie.Text & msg
End If
End Sub[/syntax]

Nie wiem jak to rozwiązać:(

Statystyki: Napisane przez driver0207 — 1 sty 2016, o 15:33