ATNEL tech-forum

Re: Jak wyłuskać ze stringa konkretne dane?

2015-10-08T17:00:13+01:00

Bardzo dziękuje za pomoc wszystko śmiga jak należy, teraz mogę dalej rozwijać swoją skromną aplikację i się uczyć.

------------------------ [ Dodano po: 8 paź 2015, o 17:00 ]

W związku z aplikacją, którą tworzę i się uczę mam kolejne pytanie. Wysyłam dane z avr-ka na przykład ciąg liczb od 0 do 9 wszystkie się wpisują, w pola txt w aplikacji poza 0. Zero jest zawsze pomijane jak wyśle wartość ciśnienia 1010 hpa, w aplikacji wyświetli się 1 1 . Czy to jest związane z kodowaniem UTF8 ? Jak można temu zaradzić ?

Statystyki: Napisane przez rx12 — 8 paź 2015, o 17:00

Re: Jak wyłuskać ze stringa konkretne dane?

2015-10-08T04:55:48+01:00

Prosty warunek powinien załatwić sprawę:

[syntax=basic4gl]If odebranytekst.Length > 0 Then
analiza_tekstu(odebranytekst)
end if[/syntax]

Statystyki: Napisane przez sz4t4n — 8 paź 2015, o 04:55

Re: Jak wyłuskać ze stringa konkretne dane?

2015-10-07T22:13:25+01:00

Bardzo Ci dziękuję za pomoc, funkcja działa prawie dobrze. Na początku jak program startuje i pole, w którym powinna pojawić się ramka jest puste program wyrzuca błąd, dopiero jak pojawią się dane wszystko działa wyśmienicie.

Statystyki: Napisane przez rx12 — 7 paź 2015, o 22:13

Re: Jak wyłuskać ze stringa konkretne dane?

2015-10-07T21:00:45+01:00

Pokaże na przykładzie który wcześniej podałem. Tworzysz sobie osobną funkcję np taką (dodaj sobie to na samym końcu programu):

[syntax=basic4gl]Sub analiza_tekstu( str As String)

str = EditText1.Text

temp1 = str.SubString2(0,2)
temp2 = str.SubString2(2,4)
temp3 = str.SubString2(4,6)
temp4 = str.SubString2(6,8)
temp5 = str.SubString2(8,10)

Label1.Text = temp1
Label2.Text = temp2
Label3.Text = temp3
Label4.Text = temp4
Label5.Text = temp5

End Sub[/syntax]

po czym wywołaj ją sobie tam gdzie odbierasz dane:

[syntax=basic4gl]sub Twoja_funkcja_odbierająca_dane (........)
analiza_tekstu(odebranytekst)
end sub[/syntax]

Statystyki: Napisane przez sz4t4n — 7 paź 2015, o 21:00

Re: Jak wyłuskać ze stringa konkretne dane?

2015-10-07T20:16:10+01:00

Eksperymentuje na kodzie Pana Mirka http://www.atnel.pl/download/poradniki/ ... ION_OK.zip gdy przyleci mi ramka z AVR-ka w postaci ciągu cyfr 25262765 i pokaże sie w oknie edttext chce, aby bez klikania w przycisk dane rozbiły się i pojawiły w czterech oknach label.

Statystyki: Napisane przez rx12 — 7 paź 2015, o 20:16

Re: Jak wyłuskać ze stringa konkretne dane?

2015-10-07T16:39:31+01:00

Pokaż kod kolego to coś zaradzimy

Statystyki: Napisane przez sz4t4n — 7 paź 2015, o 16:39

Re: Jak wyłuskać ze stringa konkretne dane?

2015-10-07T16:34:09+01:00

Koledzy oba przykłady działają wyśmienicie, tylko mam jeszcze takie pytanie jako bardzo początkujący programista androida. Jak dodać funkcję, która by automatycznie wpisywała dane w odpowiednie pola bez klikania w przycisk. Po RS232 przylatuje mi ramka i jak ta ramka przyleci, to bym chciał, aby automatycznie dane wpisywały się w odpowiednie pola. Obecnie mam tak zrobione, że jak przyleci to pojawi się w polu tekstowym, a następnie klikam przycisk i wypełniają się pola. Jest to mało wygodne przy odczycie temperatury z moich DS18b20. Myślałem nad jakąś funkcją sprawdzającą czy w polu tekstowym coś jest, ale nie bardzo wiem jak to ugryźć

Statystyki: Napisane przez rx12 — 7 paź 2015, o 16:34

Re: Jak wyłuskać ze stringa konkretne dane?

2015-10-05T23:39:01+01:00

Witam pierwszy mój post na forum zależało mi żeby nic nie trzeba było wyliczać i zrobiłem wczoraj tak:
pozdrawiam

[syntax=basic4gl]#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region

#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region

Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.

Dim tekst As String
tekst = "var1=45.22222222&var2=34&var3=0&var4=1&"

End Sub

Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.

Private btn_tst As Button
Private txt,txt2 As Label

End Sub

Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("layout1")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub btn_tst_Click
Dim zmienna As Double

txt.Text = get_key_value ("var1=",tekst,"&")
'txt2.Text = aget_key_value ("var4=",number,tekst,"&")

zmienna = get_key_value ("var1=",tekst,"&")
txt2.Text = zmienna + 23.2

End Sub

'-------------------- funkcja wyłuskująca wartość zmiennej ---------------------------------------
'przykład stringa ->Dim tekst As String
'tekst = "var1=4522222222&var2=34&var3=0&var4=1&"
'tu delimiter jest znak and -> "&"
'nawet liczby z kropka jako point rozwiazuje matematycznie poprawnie -> warunek taki, że musi być typu double
'autor funkcji Adik ;)
Sub get_key_value (key As String,buffer As String,delimiter As String) As Double

Dim poczatek,koniec As Int

poczatek = buffer.IndexOf(key)+key.Length'teraz juz nie wazna długość klucza
koniec = buffer.IndexOf2(delimiter,poczatek)'teraz juz nie wazna długość zmiennej

Return buffer.SubString2(poczatek,koniec)

End Sub[/syntax]

Statystyki: Napisane przez adik40 — 5 paź 2015, o 23:39

Re: Jak wyłuskać ze stringa konkretne dane?

2015-09-28T21:09:45+01:00

I to jest pomysł, wielkie dzięki za pomoc, biorę się za robotę

Statystyki: Napisane przez rx12 — 28 wrz 2015, o 21:09

Re: Jak wyłuskać ze stringa konkretne dane?

2015-09-28T21:02:49+01:00

Najłatwiej byłoby dodać jakiś separator do Twojej ramki np przecinek i użyć split'a. Poniżej przykład z forum B4A:

[syntax=basic4gl]Dim components() As String
components = Regex.Split(",","abc,def,,ghi") 'returns: "abc", "def", "", "ghi"

components(0)="abc"
components(1)="def"
components(2)=""
components(3)="ghi"[/syntax]

W Twoim przypadku możesz liczyć dane w stringu i je wyświetlać:

[syntax=basic4gl]#Region Project Attributes
#ApplicationLabel: B4A Example
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region

#Region Activity Attributes
#FullScreen: False
#IncludeTitle: True
#End Region

Sub Process_Globals
'These global variables will be declared once when the application starts.
'These variables can be accessed from all modules.

End Sub

Sub Globals
'These global variables will be redeclared each time the activity is created.
'These variables can only be accessed from this module.
Dim str As String
Dim temp1 As String
Dim temp2 As String
Dim temp3 As String
Dim temp4 As String
Dim temp5 As String
'str = "2523222165"
Private Label1 As Label
Private Label2 As Label
Private Label3 As Label
Private Label4 As Label
Private Label5 As Label
Private EditText1 As EditText
Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
'Do not forget to load the layout file created with the visual designer. For example:
Activity.LoadLayout("Layout1")

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Button1_Click

str = EditText1.Text

temp1 = str.SubString2(0,2)
temp2 = str.SubString2(2,4)
temp3 = str.SubString2(4,6)
temp4 = str.SubString2(6,8)
temp5 = str.SubString2(8,10)

Label1.Text = temp1
Label2.Text = temp2
Label3.Text = temp3
Label4.Text = temp4
Label5.Text = temp5

End Sub[/syntax]

w załączniku projekt

Statystyki: Napisane przez sz4t4n — 28 wrz 2015, o 21:02

Jak wyłuskać ze stringa konkretne dane?

2015-09-28T19:48:43+01:00

Witam !
Po obejrzeniu wszystkich odcinków poradnika Pana Mirka postanowiłem sam coś napisać na androida. Od jakiegoś czasu marzy mi się dodanie do mojego sterownika sterowania za pomocą telefonu i androida. Obecnie mój sterownik mierzy kilka temperatur, ciśnienie, wilgotność, steruje listwą RGB. Założenie mojego programu jest takie, abym mógł z poziomu telefonu wysyłać dane do sterownika i w nim ustawiać na przykład godzinę, kolory RGB, oraz odczytywać temperatury z czujników. Wysyłać znaki już umiem do procesora i wiem jak oprogramować, natomiast mam problem z odczytem danych z procesora, nie za bardzo wiem jakiej użyć funkcji w Basic4Android, aby z ciągu znaków, które przylecą wyłuskać te, które chce wyświetlić w polach tekstowych. Z procesora przylatują mi taka ramka: 2523222165 co oznacza temperatury 25, 23, 22, 21, 65 stopni i chciałbym je wyświetlić w kilku polach tekstowych. W visual basic jest funkcja MID, która to ładnie obrabia podobnie w Bascomie. W Basic4Android czegoś takiego nie znalazłem i nie wiem jak to zrobić Mam jeszcze jedne pytanie czy mogę dodać w Basic4Android coś takiego jak dodatkowe pole, takie jak Form w visual basic, które się pojawi naprzykład po naciśnięciu przycisku i coś się na nim wyświetli. Z góry dziękuję za okazaną pomoc...

Statystyki: Napisane przez rx12 — 28 wrz 2015, o 19:48