ATNEL tech-forum

Re: AVR + Bluetooth i Android --- dyskusje

2015-10-01T16:15:04+01:00

Witam, jestem tu nowy ale tutorial bardzo mi pomógł, w zasadzie bezproblemowo, podłączyć moduł bluetooth więc uprzejmie dziękuję.
Widziałem już gdzieś tu takie pytanie ale chyba zginęło w dyskusji, otóż czy da się zrobić pionowy seekBar?

Statystyki: Napisane przez Mike402 — 1 paź 2015, o 16:15

Re: AVR + Bluetooth i Android --- dyskusje

2015-09-17T07:22:02+01:00

mpo napisał(a):

Tryb komunikacji z prefiksem nie pozwala za bardzo poszaleć z własnymi "formatami" transmisji.

nie wiem co ty rozumiesz przez "poszaleć" ale w moim rozumieniu to ja tam szaleję

Owszem jeśli ty masz już jakiś swój protokół transmisji binarnej, w którym nie możesz czy tam nie chcesz nic zmienić - no to zonk, ale to też jest troszkę tak jakbyś chciał użyć młotka zamiast łyżki do jedzenia zupy .... tak pół żartem pół serio. Strumienie tak działają i to nie tylko na androdzie - to jest pewien standard komunikacji, pozwalający na bardzo wiele jak się wie jak z niego korzystać.

A jeśli się ma jakieś tam własne wynalazki - no to nie bierze się młotka tylko łyżkę - czyli inne narzędzie z B4A ... zamiast mówić że nie da się niczego zrobić ze strumieniami. Ja np na PC w Delphi używam strumieni i spokojnie będę się łączył, w przykładach B4A masz także przykłady aplikacji na PC napisanej w C# która też korzysta ze strumieni w C# i wszystko pięknie natywnie działa pomiędzy B4A i C#..... i to to tu chodzi panie kochany.

Statystyki: Napisane przez mirekk36 — 17 wrz 2015, o 07:22

Re: AVR + Bluetooth i Android --- dyskusje

2015-09-16T20:18:22+01:00

bit startu to jest na poziomie sprzętowej komunikacji , ja mówię o własnej ramce binarnej

Statystyki: Napisane przez mirekk36 — 16 wrz 2015, o 20:18

Re: AVR + Bluetooth i Android --- dyskusje

2015-09-12T23:49:42+01:00

przemo159 napisał(a):

A np. tak: definiujesz sobie mapę tylu bajtów ile potrzebujesz

Kurczę jakie proste rozwiązanie, a ja próbowałem się męczyć z listą. Wielkie dzięki, bardzo mi pomogłeś

Statystyki: Napisane przez Baki — 12 wrz 2015, o 23:49

Re: AVR + Bluetooth i Android --- dyskusje

2015-09-12T22:35:37+01:00

Baki napisał(a):

Przy użyciu "Prefix" wysyła mi prefix przed każdym bajtem. Jak wysłać ciąg bajtów z jednym prefixem?

A np. tak: definiujesz sobie mapę tylu bajtów ile potrzebujesz, np:
[syntax=basic4gl]Dim Mapa(5) As Byte[/syntax]
dalej w programie dopisujesz kolejne bajty jako elementy tej "mapy" :
mapa(0)=x
mapa(1)=y
itd...
wysyłasz całość przez:
[syntax=basic4gl]Strumien.Write(Mapa)[/syntax]

Statystyki: Napisane przez przemo159 — 12 wrz 2015, o 22:35

Re: AVR + Bluetooth i Android --- dyskusje

2015-09-12T01:46:50+01:00

mpo napisał(a):

Proponuję zrobić doświadczenie (może być myślowe):

Proponuję podobne myślenie tobie - troszkę musisz poćwiczyć jeśli chodzi o obsługę takich zdarzeń. Weź na przykład transmisję czysto binarną pod uwagę ... może będzie ci łatwiej zrozumieć jak się z tym obsługiwać

Generalnie - jak nie dostałeś STARTU to ignorujesz wszystko co nadlatuje

Statystyki: Napisane przez mirekk36 — 12 wrz 2015, o 01:46

Re: AVR + Bluetooth i Android --- dyskusje

2015-09-12T00:31:32+01:00

przemo159 napisał(a):

Baki też miałem taki problem, użyłem trybu "prefix" i po kłopocie, niestety na początku dochodzą 4 bajty(jeden z nich określa długość "ramki" którą zamierzasz przesłać a 3 pozostałe są puste(tzn mają wartość 0x00), ale wszystko świetnie działa,wtedy "android czeka" na przesłanie kompletu bajtów które chcesz przesłać i nic nie ginie

Dzięki, faktycznie teraz działa bezproblemowo. Mam jednak inny problem. Wysyłałem do uC pojedyncze znaki ASCII poniższą funkcją:
[syntax=basic4gl]Sub Wyslij(x As Int)
Dim w As String
w=Chr(x)
Strumien.Write(w.GetBytes("ASCII"))
End Sub[/syntax]
Przy użyciu "Prefix" wysyła mi prefix przed każdym bajtem. Jak wysłać ciąg bajtów z jednym prefixem?

Statystyki: Napisane przez Baki — 12 wrz 2015, o 00:31

Re: AVR + Bluetooth i Android --- dyskusje

2015-09-07T14:37:40+01:00

mpo napisał(a):

Prawdopodobnie jest jakiś bug w B4A (albo w OS) z buforowaniem

mpo napisał(a):

Jeżeli coś nadaje do androida cały czas, to jest duża szansa, że podczas uruchamiania apk, odebrane losowe bajty zostaną błędnie zinterpretowane jako prefix i klops gotowy.

Sorki kolego ale piszesz wymysły z kosmosu .... da radę bez żadnych znaczników początku i końca .... bez żadnych cyrkowych sztuczek ...

Oglądaj kolejne odcinki moich poradników wideo odnośnie komunikacji bluetooth i zobaczysz, że nie ma żadnych bugów , wszystko działa i to nawet ze zwykłym terminalem - zdziwisz się ... po kolejnych 2-3 poradnikach jak skończę już to omawiać

Statystyki: Napisane przez mirekk36 — 7 wrz 2015, o 14:37

Re: AVR + Bluetooth i Android --- dyskusje

2015-09-04T09:54:38+01:00

przemo159 --> dokładnie tak jak piszesz, tryb prefix mode jest typowy dla takiej transmisji strumieniowej i ciężko go wprost używać do prostej komunikacji ASCII z terminalem przez to....

Ale tak jak mówisz jeśli działamy w procku i wiemy o tym prefixie to nie powinno być kłopotów

Ja za to już niedługo pokażę jak można działać w trybie tekstowym nawet z poziomu zwykłego terminala co więcej z reakcją na string zakończony enterem

Statystyki: Napisane przez mirekk36 — 4 wrz 2015, o 09:54

Re: AVR + Bluetooth i Android --- dyskusje

2015-09-04T08:58:21+01:00

IUVOit tryb prefix polega na zadeklarowaniu na początku wysyłania "pakietu" ile bajtów zamierzasz przesłać, każdorazowo taki pakiet zawiera na początku cztery bajty określające długość ramki.W tych bajtach określasz tylko ilość "twoich" bajtów do przesłania, nie wliczasz w to ich samych(tzn tych czterech które w trybie prefix są automatycznie generowane przez androida przy wysłaniu, a przy odbiorze android ich nie zapisuje w "Buffer"-masz tam tylko "twoje" bajty).Trzeba pamiętać by przy odbiorze mikrokontroler wykluczył te pierwsze 4, a przy wysyłaniu mikrokontroler musi wysłać ten prefix.
Tryb prefix uruchamiasz inicjalizując strumień właśnie w ten sposób:
[syntax=basic4gl]AStreams.InitializePrefix(Socket1.InputStream, False, Socket1.OutputStream, "AStreams")[/syntax]

a tym "False"(lub "True") w środku określasz czy prefix ma być w trybie big endian czy little endian.

Troche zamieszałem to teraz przykład dla rozjaśnienia:
chcesz wysłać z mikrokontrolera do androida 5 bajtów o wartościach powiedzmy 01, 02, 03, 04, 05.
wysyłasz kolejno:
05, 00, 00, 00, 01, 02, 03, 04, 05 dla Big endian, czyli "False"
00, 00, 00, 05, 01, 02, 03, 04, 05 dla little endian czyli "True"

Teraz jeśli chcesz przesłać te 5 bajtów w drugą stronę - wysyłasz tylko te "swoje", ale android doda prefix czyli te cztery bajty na początku 05,00,00,00 lub 00,00,00,05 i w programie mikrokontrolera musisz to uwzględnić.Dla mnie stanowi to pewną wygodę, bo prefix sam w sobie może być kluczem do określenia w programie procka co za dane przyszły, jeśli pakiety dla różnego typu danych mają różne długości.
Mam nadzieje że troche rozjaśniłem

Statystyki: Napisane przez przemo159 — 4 wrz 2015, o 08:58

Re: AVR + Bluetooth i Android --- dyskusje

2015-09-03T23:36:20+01:00

No ale to już dobry pomysł ze strumieniami

Statystyki: Napisane przez mirekk36 — 3 wrz 2015, o 23:36

Re: AVR + Bluetooth i Android --- dyskusje

2015-09-03T22:24:13+01:00

hehe wiem i nie mogę się doczekać!!! Ale pewnie odbieranie stringów i ich parsowanie zostanie na deserek

Na jakiś mały trop wpadłem:
[syntax=basic4gl]AStreams.InitializePrefix(Socket1.InputStream, False, Socket1.OutputStream, "AStreams")[/syntax]
To szukam dalej, może uda mi się przed pojawieniem poradnika rozwiązać ten problem

Statystyki: Napisane przez IUVOit — 3 wrz 2015, o 22:24

Re: AVR + Bluetooth i Android --- dyskusje

2015-09-03T22:07:35+01:00

IUVOit napisał(a):

Ktoś może rozkminił od czego to zalezy?

Już niedługo kolejny wideo poradnik na ten temat - wiele się wyjaśni

Statystyki: Napisane przez mirekk36 — 3 wrz 2015, o 22:07

Re: AVR + Bluetooth i Android --- dyskusje

2015-09-03T21:23:37+01:00

przemo159 napisał(a):

O co chodzi z tym trybem prefix??? Też mam taki sam problem jak koledzy wyżej :/

[syntax=basic4gl]Sub Strumien_NewData (Buffer() As Byte)
Dim Odebrane As String
Nadawanie=False
Odebrane=Odebrane & BytesToString(Buffer, 0, Buffer.Length, "UTF8")
If Odebrane.EndsWith(Chr(13)) Then
Label5.Text=Odebrane
Odebrane=""
End If
Nadawanie=True
End Sub[/syntax]

Jeżeli przesyłam z terminala stringa to pod Label5 rzadko kiedy wyświetlany jest cały przesłany string.
Przykład:
Wysyłam: "Test komunikacji"
Wartośc Label5 -> "est komunikacji"
Wartosc Label5 -> "t komunikacji"
Wartosc Label5 -> "munikacji"
Wartosc Label5 -> "Test komunikacji"
itd

Od czasu do czasu zostanie prawidłowo wyświetlony cały string ale odbywa się to w sposób losowy. Zauważyłem również, ze zawsze są "zjadane" pierwsze znaki. Koniec stringa jest zawsze dobry.

Ktoś może rozkminił od czego to zalezy?

Statystyki: Napisane przez IUVOit — 3 wrz 2015, o 21:23

Re: AVR + Bluetooth i Android --- dyskusje

2015-08-30T16:56:38+01:00

Witam,
korzystając z kodu użytkownika ariek44 mam problem z wysłaniem ze smartfona pojedynczego znaku do mikrokontrolera mianowicie wysyłając znak "1" z terminala PC całe zdarzenie odbioru wykonane jest prawidłowo natomiast wysłanie z telefonu poniższego kodu to brak reakcji. Jeszcze zainstalowałem aplikacje terminala BT na telefon i wysłanie podynczego znaku również odbywa sie prawidłowo tak jak w przypadku terminala PC wiec to problem w samym kodzie aplikacji. Co ja robie źle?

Code:

Sub Button2_Click
 If Flaga=True Then
  Try
   TextWriter1.Write(Chr(49))
   TextWriter1.Flush
  Catch
   Flaga=False
   Button1.Text="Rozłącz"
  End Try
 End If
End Sub

Statystyki: Napisane przez busykarol — 30 sie 2015, o 16:56

Re: AVR + Bluetooth i Android --- dyskusje

2015-08-29T11:47:22+01:00

Baki napisał(a):

Mam drobny problem z odbieraniem danych z uC. Przesyłam 4 bajty danych i wyświetlam je na telefonie.
Problem polega na tym, że nie zawsze bufor odebranych danych ma długość 4. Dodanie przerw czasowych pomiędzy wysyłanymi danymi dodatkowo pogarsza sytuację. Stąd zastanawia mnie kiedy bufor się zeruję i jak zapobiec opisanemu problemowi.
Dodam, że w terminalu dostaje bezbłędnie wszystkie dane, zmiana prędkości transmisji nie ma na to wpływu, problem występuję nawet przy przesyłaniu 2 bajtów. W przypadku, gdy przesyłam 1 bajt zawsze dochodzi on poprawnie.

Moja funkcja odbiorcza wygląda następująco:
[syntax=basic4gl]Sub Strumien_NewData (Buffer() As Byte)

If Buffer.Length=4 Then
Label3.Text=Buffer(0) & "." & Buffer(1) & "." & Buffer(2) & "." & Buffer(3)
Else
Label3.Text=Buffer.Length
End If

End Sub[/syntax]
Gdzie Strumień to AsyncStreams.

Statystyki: Napisane przez przemo159 — 29 sie 2015, o 11:47

Re: AVR + Bluetooth i Android --- dyskusje

2015-08-22T20:10:33+01:00

Ktoś wie jak korzystać z kilku Layouts? Chciałem stworzyć 2 Layouts i przełączać się pomiędzy nimi za pomocą przycisków.
Udało mi się zrealizować przełączenie poniższym kodem:
[syntax=basic4gl]Sub RemoveViews
Dim v As Int
For v=Activity.NumberOfViews-1 To 0 Step -1
Activity.RemoveViewAt(v)
Next
End Sub

Sub but1_Up
RemoveViews
Activity.LoadLayout("1")
End Sub

Sub but2_Up
RemoveViews
Activity.LoadLayout("2")
End Sub[/syntax]
Przełączanie działa, jednak problemem są elementy graficzne wykorzystywane w danym layout. Wszystkie ustawienia elementów są programowe, wpisane w Activity_Create(FirstTime As Boolean). Przy przełączaniu na inny layout są czyszczone i nie zostają odtworzone. Trzeba więc wszystkie ustawienia graficzne ponownie skopiować do funkcji but1_Up i but2_up.

Zastanawiam się więc, czy da się wykorzystać ustawienia z Activity_Create(FirstTime As Boolean)? Próbowałem ustawienia graficzne wpisać w Activity_Resume i Sub Activity_Pause, ale niestety to też nie działa.

Statystyki: Napisane przez Baki — 22 sie 2015, o 20:10

Re: AVR + Bluetooth i Android --- dyskusje

2015-08-20T22:23:55+01:00

Statystyki: Napisane przez Baki — 20 sie 2015, o 22:23

Re: AVR + Bluetooth i Android --- dyskusje

2015-02-18T12:53:58+01:00

jaguar963 napisał(a):

Tylko czemu telefon nie odbierze wszystkich znaków?

Nawet jeśli zrobię coś takiego w funkcji Strumien_NewData:

[syntax=basic4gl]Sub Strumien_NewData (Buffer() As Byte)
n=n+1

End Sub[/syntax]
Zmienna n jest zmienną globalną.
Jeśli wyślę powiedzmy 8 znaków, zmienna powinna mieć wartość 7, a ma zazwyczaj 2 lub 3. Oczywiście odczytując dane z bufora są tylko 2 lub 3 znaki.

Dodam że szkielet programu mam napisany według tutoriala kolegi ariek44

Edit:
Dobra, już chyba rozkminiłem to

jaguar963 podziel się prosze informacją w jaki sposób to rozkminiłeś, mam dokładnie ten sam problem...

Statystyki: Napisane przez przemo159 — 18 lut 2015, o 12:53

Re: AVR + Bluetooth i Android --- dyskusje

2015-02-04T19:23:26+01:00

Witam po raz kolejny.
Napisałem na podstawie tego poradnika aplikację, która wysyła przez BT dwie komendy. Następnie w Arduino te komendy odczytuje i zapalam albo gaszę diodę. Teraz chciałbym w drugą stronę. Wysyłam w Arduino przez UART jakąś zmienną i chciałbym ją odczytać w aplikacji na telefonie. Jak to wykonać za pomocą funkcji TextReader?

Aplikacja obecnie wygląda tak:

[syntax=basic4gl]'Activity module
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 Adapter As Serial
Dim Timer1 As Timer
Dim Button1 As Button
Dim Button2 As Button
Dim Button3 As Button
Dim Button4 As Button
Dim Button5 As Button
Dim Flaga As Boolean
Dim Label1 As Label
Dim Nazwa As String
Dim Adres As String
Dim TextWriter1 As TextWriter

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("layout")
Activity.Title="OnOff-AVR-BT"

Adapter.Initialize("Adapter")

Timer1.Initialize("Timer1", 100)
Timer1.Enabled=True

Button1.Width=Activity.Width/2
Button1.Height=(Activity.Height/8)
Button1.Top=(Activity.Height/20)
Button1.Left=0
Button1.TextSize=Activity.Height/20
Button1.Text="Połącz"
Button1.Enabled=False

Button2.Width=Activity.Width/2
Button2.Height=(Activity.Height/8)
Button2.Top=(Activity.Height/20)
Button2.Left=Activity.Width/2
Button2.TextSize=Activity.Height/20
Button2.Text="Rozłącz"
Button2.Enabled=False

Button3.Width=Activity.Width/2
Button3.Height=(Activity.Height/4)
Button3.Top=(Activity.Height/2)
Button3.Left=0
Button3.TextSize=Activity.Height/20
Button3.Text="Włącz światło"
Button3.Enabled=False

Button4.Width=Activity.Width/2
Button4.Height=(Activity.Height/4)
Button4.Top=(Activity.Height/2)
Button4.Left=Activity.Width/2
Button4.TextSize=Activity.Height/20
Button4.Text="Wyłącz światło"
Button4.Enabled=False

Button5.Width=Activity.Width
Button5.Height=(Activity.Height/8)
Button5.Top=(Activity.Height/2)+(Activity.Height/3)
Button5.Left=0
Button5.TextSize=Activity.Height/20
Button5.Text="Informajce"
Button5.Enabled=True

Label1.Width=Activity.Width
Label1.Height=Activity.Height/4
Label1.Top=(Activity.Height/10)*2
Label1.Left=0
Label1.Gravity = Gravity.CENTER_HORIZONTAL + Gravity.CENTER_VERTICAL
Label1.TextSize=Activity.Height/8/4

End Sub

Sub Timer1_Tick
If Adapter.IsEnabled = True Then
If Flaga=True Then
Button1.Enabled=False
Button2.Enabled=True
Label1.Text="Połączono" & CRLF & Nazwa & CRLF & Adres
Else
Button1.Enabled=True
Button2.Enabled=False
Button3.Enabled=False
Button4.Enabled=False
Label1.Text="Brak połączenia"
End If
Else
Flaga=False
Button1.Enabled=False
Button1.Enabled=False
Msgbox("Włącz bluetooth!", "Uwaga")
End If
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub Adapter_Connected (Powodzenie As Boolean)
Flaga=Powodzenie
Timer1.Enabled=True
Button3.Enabled=True
Button4.Enabled=True
If Flaga=True Then
TextWriter1.Initialize(Adapter.OutputStream)
End If
End Sub

Sub Button1_Click
If Flaga=False Then
Dim Urzadzenia As Map
Dim Lista As List
Dim Wybierz As Int
Urzadzenia = Adapter.GetPairedDevices
Lista.Initialize
For i = 0 To Urzadzenia.Size - 1
Lista.Add(Urzadzenia.GetKeyAt(i))
Next
Wybierz = InputList(Lista, "Wybierz urządzenie", -1)
If Wybierz >=0 Then
Button1.Enabled=False
Timer1.Enabled=False
Adres=Urzadzenia.GetValueAt(Wybierz)
Nazwa=Urzadzenia.GetKeyAt(Wybierz)
Adapter.Connect(Adres)
End If
End If
End Sub
Sub Button2_Click
Button2.Enabled=False
Button3.Enabled=False
Button4.Enabled=False
Adapter.Disconnect
Flaga=False
Label1.Text="Brak połączenia"
End Sub
Sub Button3_Click
If Flaga=True Then
Try
TextWriter1.Write(Chr(1))
TextWriter1.Flush
Catch
Flaga=False
End Try
End If
End Sub
Sub Button4_Click
If Flaga=True Then
Try
TextWriter1.Write(Chr(0))
TextWriter1.Flush
Catch
Flaga=False
End Try
End If
End Sub
Sub Button5_Click
Msgbox("Sterowanie oświetleniem v1.0","Informacje")
End Sub[/syntax]

W poradniku jest opis jak to wykonać ale innym sposobem. Nie wiem czemu ale wymyśliłem sobie żeby użyć TextReader. Jest to w ogóle możliwe?

Proszę o pomoc.
Pozdrawiam.

Statystyki: Napisane przez pavel0910 — 4 lut 2015, o 19:23

Re: AVR + Bluetooth i Android --- dyskusje

2015-01-31T20:31:02+01:00

Witam.
Napisałem program na podstawie tego poradnika i nie mogę połączyć się z żadnym urządzeniem BT.
Użyłem też kodu wprost z poradnika i dalej to samo.
Na telefonie mam błąd:

Code:

Program paused on line:85
Adapter.Connect("98:D3:31:B3:85:27")

Problem rozwiązany, na przyszłość:
Potrzeba uprawnień administratora. Możemy to zrobić w ten sposób:

Project --> Manifest Editer

I wklejamy tam:

Code:

AddPermission(android.permission.BLUETOOTH_ADMIN)

Statystyki: Napisane przez pavel0910 — 31 sty 2015, o 20:31

Re: AVR + Bluetooth i Android --- dyskusje

2014-12-03T11:35:31+01:00

Statystyki: Napisane przez jaguar963 — 3 gru 2014, o 11:35

Re: AVR + Bluetooth i Android --- dyskusje

2014-12-03T10:44:35+01:00

jaguar963 napisał(a):

Żeby wszystkie wysłane znaki doszły jeden po drugim muszę między nimi robić przerwy ok 30ms.

Nie trzeba żadnych przerw

Statystyki: Napisane przez mirekk36 — 3 gru 2014, o 10:44

Re: AVR + Bluetooth i Android --- dyskusje

2014-12-03T10:12:45+01:00

Ja mam inne pytanie: przy wysyłaniu danych z uc przez bluetooth do telefonu, odbieraniu ich na telefonie w funkcji Strumien_NewData część danych jest gubiona. Żeby wszystkie wysłane znaki doszły jeden po drugim muszę między nimi robić przerwy ok 30ms. Ktoś zna rozwiązanie tego problemu?

Statystyki: Napisane przez jaguar963 — 3 gru 2014, o 10:12

Re: AVR + Bluetooth i Android --- dyskusje

2014-11-23T18:05:36+01:00

Witam. Chciałbym uporządkować swoją wiedzę na temat tego projektu. Zrobiłem coś na temat Programu006, tylko że używam tylko 1 togglebuttona. Do tego co już mam aby sterować diodą potrzebuję napisać program, np.: w Eclipsie. Używam diodki podłączonej do portu PD5 oczywiście podłączając ją przez rezystor do napięcia. Aby sterować taką diodką muszę użyć przerwań, ale jak zrobić by przesyłany znak z telefonu np. 1 lub 2, odbierając ją by powodowało, że ta diodka się zaswieci bądź zgaśnie?

Statystyki: Napisane przez Tannis — 23 lis 2014, o 18:05