ATNEL tech-forum

Re: AVR + B4A Komunikacja bluetooth

2019-07-15T18:05:16+01:00

Ok, dzięki

Statystyki: Napisane przez Tokio518 — 15 lip 2019, o 18:05

Re: AVR + B4A Komunikacja bluetooth

2019-07-15T18:02:29+01:00

Przecież sam wstawiłeś w poście dzielenie Regexem.
Fajnie że działa,tylko pamiętaj że w ten sposób odbierzesz dane będąc w tym konkretnym Activity.

Statystyki: Napisane przez Harry — 15 lip 2019, o 18:02

Re: AVR + B4A Komunikacja bluetooth

2019-07-15T18:02:34+01:00

podałem ci procedurę wyżej

[syntax=basic4gl]dim a,b,c as string
Dim data As String
data = "aaa.bbb.ccc"
Dim numbers() As String
numbers = Regex.Split("\.", data)
a=numbers(0)
b=numbers(1)
c=numbers(2)[/syntax]

Statystyki: Napisane przez tfosik — 15 lip 2019, o 17:59

Re: AVR + B4A Komunikacja bluetooth

2019-07-15T17:51:31+01:00

Bardzo dziękuję panowie za pomoc . Użyłem klasy AsyncSteram, a nie modułu AsyncSteramText i użyłem normalnie procedury New_Data i wszystko działa. I mam jeszcze takie jedno pytanko jak chcę wysłać z atmegi taki text np. "0,1,4,5,7" to jak zrobić, żeby basic4android rozdzielił to na zmienne:
a=0
b=1
c=4
d=5
e=7

Statystyki: Napisane przez Tokio518 — 15 lip 2019, o 17:51

Re: AVR + B4A Komunikacja bluetooth

2019-07-15T12:36:37+01:00

Tokio zainicjował klasę AsyncStreamsText którą ma w innym module, a próbuje odwoływać się do niej bezpośrednio w Activity, więc albo rybki albo akwarium

Statystyki: Napisane przez Harry — 15 lip 2019, o 12:36

Re: AVR + B4A Komunikacja bluetooth

2019-07-15T12:08:09+01:00

Zobacz ten poradnik, co prawda inna komunikacja ale wiele wyjaśnia.
https://www.b4x.com/android/forum/threa ... rial.7669/

Statystyki: Napisane przez tfosik — 15 lip 2019, o 12:08

Re: AVR + B4A Komunikacja bluetooth

2019-07-15T11:16:07+01:00

tak wygląda prawidłowo w klasie AsyncStreams
[syntax=vb]Private Sub astreams_NewData (Buffer() As Byte)
'----------------------------------
SchodyService.Notifi.SetInfo("Schody","Nadejszła wiadomość",mTarget)
SchodyService.Notifi.Notify(1)
'---------------------------------- można wy****ć
Dim newDataStart As Int = sb.Length
sb.Append(BytesToString(Buffer, 0, Buffer.Length, charset))
Dim s As String = sb.ToString
Dim start As Int = 0
For i = newDataStart To s.Length - 1
Dim c As Char = s.CharAt(i)
If i = 0 And c = Chr(10) Then '\n...
start = 1 'might be a broken end of line character
Continue
End If
If c = Chr(10) Then '\n
CallSubDelayed2(mTarget, mEventName & "_NewText", s.SubString2(start, i))
start = i + 1
Else If c = Chr(13) Then '\r
CallSubDelayed2(mTarget, mEventName & "_NewText", s.SubString2(start, i))
If i < s.Length - 1 And s.CharAt(i + 1) = Chr(10) Then '\r\n
i = i + 1
End If
start = i + 1
End If
Next
If start > 0 Then sb.Remove(0, start)
End Sub[/syntax]
widzisz różnice?
w Activity ma być tylko xxx_NewText...
A to co kolega zrobił to jest masakra.
A jeżeli już mu się nie chce czytać, to niech przynajmniej usunie z Activity inicjalizacje i tego Suba AST_NewData, bo w ten sposób niema prawa działać.

Statystyki: Napisane przez Harry — 15 lip 2019, o 11:16

Re: AVR + B4A Komunikacja bluetooth

2019-07-15T11:08:28+01:00

Przeanalizowałem pobieżnie, na pewno powinno być x=BytesToString(Buffer, 0, Buffer.Length, "UTF8") ale przy tym też nie działało. Usuń też Exitapplication (to bez znaczenia dla błędu ale już się nie stosuje). Szukaj raczej błędu po stronie procka..

Statystyki: Napisane przez tfosik — 15 lip 2019, o 11:08

Re: AVR + B4A Komunikacja bluetooth

2019-07-15T10:47:13+01:00

Chyba się paruje skoro mówił że wysyłanie do avr działa. Kolega po prostu spartolił odbiór i tyle. Musi porównać wersję z załącznika w temacie który podałem(najlepiej ostatnia wersja) i musi śmigać.

Wysłane ze srajfona

Statystyki: Napisane przez Harry — 15 lip 2019, o 10:47

Re: AVR + B4A Komunikacja bluetooth

2019-07-15T10:34:50+01:00

Jakiej używasz wersji B4A?, Czy urządzenia parują się, tz. AVR-telefon?

Statystyki: Napisane przez tfosik — 15 lip 2019, o 10:34

Re: AVR + B4A Komunikacja bluetooth

2019-07-15T08:43:44+01:00

Tokio518 napisał(a):

Debuger jest taki, że jeśli wywoła procedura zaświeci się panel

Powiedz że to żart, bo nie wierzę własnym oczom :/
W linku który podałem wyżej masz też co nieco na ten temat.

Co kawałek klasy AsynchStreams robi w Activity?

Statystyki: Napisane przez Harry — 15 lip 2019, o 08:43

Re: AVR + B4A Komunikacja bluetooth

2019-07-15T06:58:38+01:00

O to cały kod:
[syntax=vb]#Region Project Attributes
#ApplicationLabel: BT_Terminal
#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 Admin As BluetoothAdmin
Dim Serial1 As Serial
Dim FoundDevices As List
Type NameAndMac( Name As String, Mac As String )
Dim ConnectedDevices As NameAndMac

DimConnect_Bluetooth As Boolean
Dim AST As AsyncStreamsText
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 BtnSend As Button
Private BtnConnect As Button
Private BtnSearch As Button
Private EdLog As EditText
Private EdSend As EditText
Private Panel2 As Panel
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")

If FirstTime Then
Connect_Bluetooth = False
Admin.Initialize( "Admin" )
Serial1.Initialize( "Serial1" )
End If

If Connect_Bluetooth = False Then
Activity.Title = "BT_Terminal(No connected)"
BtnSend.Enabled = False
EdSend.Enabled = False
EdLog.Enabled = False
BtnSearch.Enabled = True
BtnConnect.TextColor = Colors.Green
BtnConnect.Text = "Connect"
Else
Activity.Title = "BT_Terminal(Connect)"
BtnSend.Enabled = True
EdSend.Enabled = True
EdLog.Enabled = True
BtnSearch.Enabled = False
BtnConnect.TextColor = Colors.Red
BtnConnect.Text = "Disconnect"
End If

End Sub

Sub Activity_Resume

If Admin.IsEnabled = False Then
If Admin.Enable = False Then
ToastMessageShow( "Nie nawiązano połaczenia", True )
Else
ToastMessageShow( "Właczam adapter Bluetooth...", True )
End If
Else
Admin_StateChanged( Admin.STATE_ON, 0 )
End If

EdSend.Text = File.ReadString( File.DirInternal, "text" )

End Sub

Sub Activity_Pause (UserClosed As Boolean)
AST.Close
Serial1.Disconnect
Activity.Finish
ExitApplication
End Sub

Sub Admin_DiscoveryFinished
ProgressDialogHide
If FoundDevices.Size = 0 Then
ToastMessageShow( "Nie znaleziono urządzenia Bluetooth"&CRLF&"Spróbuj ponownie", True )
Else
Dim IL As List
IL.Initialize
For i=0 To FoundDevices.Size-1
Dim NM As NameAndMac
NM=FoundDevices.Get(i)
IL.Add( NM.Name )
Next
Dim res As Int
res = InputList( IL, "Wybierz urządzenie z listy", -1 )
If res <> DialogResponse.CANCEL Then
ConnectedDevices = FoundDevices.Get( res )
ProgressDialogShow("Próba połączenia z: "&CRLF&ConnectedDevices.Name&CRLF&"MAC ADR ("&ConnectedDevices.Mac)
Serial1.Connect( ConnectedDevices.Mac )
End If
End If
End Sub

Sub Admin_DeviceFound (Name As String, MacAddress As String)
Dim NM As NameAndMac
NM.Name = Name
NM.Mac = MacAddress
FoundDevices.Add( NM )
ProgressDialogShow("Poszukiwanie urządzeń(znaleziono @)...".Replace("@", FoundDevices.Size))
End Sub

Sub Serial1_Connected (Success As Boolean)
ProgressDialogHide

If Success Then
ToastMessageShow("Połączono pomyślnie Bluetooth", False)
Connect_Bluetooth = True

If AST.IsInitialized Then
AST.Close
End If
AST.Initialize( Me, "AST", Serial1.InputStream, Serial1.OutputStream )

Activity.Title = "BT_Terminal(Connect)"
BtnSend.Enabled = True
EdSend.Enabled = True
EdLog.Enabled = True
BtnSearch.Enabled = False
BtnConnect.TextColor = Colors.Red
BtnConnect.Text = "Disconnect"
Else
ToastMessageShow("Problem z połaczniem Bluetooth", False)
Connect_Bluetooth = False
Activity.Title = "BT_Terminal(No connected)"
BtnSend.Enabled = False
EdSend.Enabled = False
EdLog.Enabled = False
BtnSearch.Enabled = True
BtnConnect.TextColor = Colors.Green
BtnConnect.Text = "Connect"
End If

End Sub

Sub AST_Error
ToastMessageShow( "Bład strumienia: "&LastException.Message, False )
End Sub

Sub AST_Terminated
ToastMessageShow( "Połaczenie zerwane", False )
End Sub

'Sub AST_NewText( Text As String )
'Dim msg As String
'
'EdLog.Text = Text & CRLF
'End Sub

Sub AST_NewData (Buffer() As Byte)
Panel2.Color = Colors.Green
Dim x As String
x=BytesToString(Buffer, 0, Buffer.Length, "ASCII")
EdLog.Text = x
End Sub

Sub BtnSend_Click

If Connect_Bluetooth Then
'AST.Write( "OFFKo:" & EdSend.Text )'& Chr(13) & Chr(10) )
'
'EdSend.SelectAll
'EdSend.RequestFocus
'Dim Dane() As Byte
Dim str As String

str = "TrB:" & EdSend.Text & Chr(13) & Chr(10)
str = "TrBA:" & "2223" & Chr(13) & Chr(10)
'Dane = str.GetBytes( "UTF8" )
AST.Write( str )

File.WriteString( File.DirInternal, "text", EdSend.Text )
End If
End Sub

Sub BtnConnect_Click
If Connect_Bluetooth = False Then
Connect_Bluetooth = True
Dim pairedDevices As Map
pairedDevices = Serial1.GetPairedDevices
Dim IL As List
IL.Initialize
For i=0 To pairedDevices.Size - 1
IL.Add( pairedDevices.GetKeyAt(i) )
Next
Dim res As Int
res = InputList( IL,"Wybierz urządzenie", -1 )
If res <> DialogResponse.CANCEL Then
Serial1.Connect( pairedDevices.Get( IL.Get( res ) ) )
End If
Else
Connect_Bluetooth = False
AST.Close
Serial1.Disconnect
Activity.Title = "BT_Terminal(No connected)"
BtnSend.Enabled = False
EdSend.Enabled = False
EdLog.Enabled = False
BtnSearch.Enabled = True
BtnConnect.TextColor = Colors.Green
BtnConnect.Text = "Connect"
End If
End Sub

Sub BtnSearch_Click
FoundDevices.Initialize
If Admin.StartDiscovery = False Then
ToastMessageShow( "Bład wyszukiwania Bluetooth", True )
Else
ToastMessageShow( "Poszukiwanie urządzeń Bluetooth", False )
End If
End Sub[/syntax]

Podpięte biblioteki:
RandomAcessFile i Serial + plik AsyncStreamText

Nie działa tylko komunikacja avr --> telefon
Debuger jest taki, że jeśli wywoła procedura zaświeci się panel
Nie próbowałem jeszcze użyć kodu z tej podpowiedzi
[syntax=vb]dim a,b,c as string

Dim data As String
data = "aaa.bbb.ccc"
Dim numbers() As String
numbers = Regex.Split("\.", data)
a=numbers(0)
b=numbers(1)
c=numbers(2)[/syntax]

Statystyki: Napisane przez Tokio518 — 15 lip 2019, o 06:58

Re: AVR + B4A Komunikacja bluetooth

2019-07-14T20:54:55+01:00

Sub może nie działać z wielu powodów, ale nie mając kodu to nawet z fusów ciężko wywróżyć.
Ja bym ustawił pułapki na wszystkich procedurach związanych z połączeniem i oczywiście przeszedł krok po kroku całość, bo może np telefon się rozłącza...

Statystyki: Napisane przez Harry — 14 lip 2019, o 20:54

Re: AVR + B4A Komunikacja bluetooth

2019-07-14T20:47:08+01:00

Bardzo dobre pytanie Hary. Odbiór nie działa skoro sub nie działa. Czy urządzenia są sparowane?

Statystyki: Napisane przez tfosik — 14 lip 2019, o 20:47

Re: AVR + B4A Komunikacja bluetooth

2019-07-14T20:50:18+01:00

Ja się zastanawiam co mu działa:
a - procek -> komp
b - komp -> procek
c - procek -> telefon
d - telefon -> procek
e - telefon -> komp
f - komp -> telefon

Najlepiej by było jakby wrzucił cały kod, a jeśli nie to przynajmniej procedure łączenie-> odbiór

Statystyki: Napisane przez Harry — 14 lip 2019, o 20:43

Re: AVR + B4A Komunikacja bluetooth

2019-07-14T20:29:53+01:00

Trudno jest wróżyć z fusów bez kodu. Może to, a może tamto...

Statystyki: Napisane przez tfosik — 14 lip 2019, o 20:29

Re: AVR + B4A Komunikacja bluetooth

2019-07-14T19:25:30+01:00

On wogóle nie wchodzi do Suba, czy tylko nie zaświeca panelu?
Najlepiej ustaw pułapkę na nim, albo przejdź krok po kroku całość.

Jeszcze głupie pytanie - masz wogóle podpiętą klasę AsyncStreams?
topic19536-60.html porównaj sobie tym całą swoją procedurę.

Statystyki: Napisane przez Harry — 14 lip 2019, o 19:25

Re: AVR + B4A Komunikacja bluetooth

2019-07-14T19:22:45+01:00

No, właśnie jest debuger i procedura nie jest wywoływana na gdzieś po środku wątku jest post z tym.

Statystyki: Napisane przez Tokio518 — 14 lip 2019, o 19:22

Re: AVR + B4A Komunikacja bluetooth

2019-07-14T16:35:50+01:00

Zamiast szukać winnych, to może by tak sprawdzić czy procedura odbioru wogóle dziala? Chyba po coś masz debuger?

Wysłane ze srajfona

Statystyki: Napisane przez Harry — 14 lip 2019, o 16:35

Re: AVR + B4A Komunikacja bluetooth

2019-07-14T10:52:23+01:00

Może dla testów ustaw w manifeście android:targetSdkVersion="26" na 22 zapisz i skompiluj.

------------------------ [ Dodano po: dzisiaj, o 10:52 ]

Użyj może jeszcze metody Regex.Split, tz. umieść ciąg w separatorach a następnie wyłuskaj tekst na przykład tak:
[syntax=basic4gl]dim a,b,c as string

Dim data As String
data = "aaa.bbb.ccc"
Dim numbers() As String
numbers = Regex.Split("\.", data)
a=numbers(0)
b=numbers(1)
c=numbers(2)[/syntax]

Oczywiście musisz to sobie odpowiednio wkomponować w kod.

Statystyki: Napisane przez tfosik — 14 lip 2019, o 10:52

Re: AVR + B4A Komunikacja bluetooth

2019-07-14T10:36:02+01:00

Nic żadnych nowych informacji. Ale, gdy wysłałem to do aplikacji na komputerze wszystko za działało

Statystyki: Napisane przez Tokio518 — 14 lip 2019, o 10:36

Re: AVR + B4A Komunikacja bluetooth

2019-07-14T10:20:16+01:00

Witam
Wychodzi na to że błąd leży po stronie procka. Skompiluj w trybie debug i odznacz filtruj, może w niefiltrowanych dziennkiach dostaniesz więcej informacji.

Statystyki: Napisane przez tfosik — 14 lip 2019, o 10:20

Re: AVR + B4A Komunikacja bluetooth

2019-07-14T09:55:34+01:00

Nie dostaje żadnych komunikatów o błędzie. Uprawnienia aplikacja ma. Przy komunikacji z komputerem jak to było na jednym z poradników Mirka wszystko działało. Ale przy komunikacji z mikro kontrolerem mogę wysłać z telefonu i atmega odbierze, ale telefon nie odbiera danych od atmegi.

Statystyki: Napisane przez Tokio518 — 14 lip 2019, o 09:55

Re: AVR + B4A Komunikacja bluetooth

2019-07-13T20:28:04+01:00

Witam
Dostajesz jakieś komunikaty o błędzie?. Jakie masz niebezpieczne uprawnienia w aplikacji (sprawdź te oznaczone gwiazdką) i czy ew. uzyskujesz zgodę użytkownika na wykonywanie się tych uprawnień...

Statystyki: Napisane przez tfosik — 13 lip 2019, o 20:28

Re: AVR + B4A Komunikacja bluetooth

2019-07-13T19:22:33+01:00

Tokio518 napisał(a):

Ale nie wiem czy ta procedura jest w ogóle wywoływana

Skorzystaj z debugera.

Wysłane ze srajfona

Statystyki: Napisane przez Harry — 13 lip 2019, o 19:22