#FullScreen: False
#IncludeTitle: True
#End Region
Sub Process_Globals
'Globalne zmienne deklarowane raz przy starcie aplikacji.
'Te zmienne mogą być dostępne z wszystkich modułów.
Dim admin As BluetoothAdmin
Dim serial1 As Serial
Dim foundDevices As List
Type NameAndMac(Name As String, Mac As String)
Dim connectedDevice As NameAndMac
Dim connected As Boolean
Dim ast As AsyncStreamsText
Dim tts As TTS
Dim rp As RuntimePermissions
Dim xui As XUI
End Sub
Sub Globals
'Te zmienne globalne będą deklarowane za każdym razem, gdy aktywność jest tworzona.
'Te zmienne mogą być dostępne tylko z tego modułu.
Private btnSend As Button
Private edtText As EditText
Private edtLog As EditText
Private btnConnect As Button
Private btnSearch As Button
Private btnDisconnect As Button
Private vr As VoiceRecognition
Private dialog As B4XDialog
Private dialogPanel As B4XView
'Deklaracje zdarzeń
#Event: NewText (Text As String)
#Event: Terminated
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Nie zapomnij załadować pliku układu utworzonego za pomocą projektanta wizualnego.
Activity.LoadLayout("1")
Activity.Title = "BT TERMINAL (brak połączenia)"
vr.Initialize("vr")
tts.Initialize("tts")
dialog.Initialize(Activity)
If FirstTime Then
connected = False
admin.Initialize("admin")
serial1.Initialize("Serial1")
CheckPermissions
End If
enable_controls(connected)
End Sub
Sub CheckPermissions
If rp.Check(rp.PERMISSION_ACCESS_FINE_LOCATION) = False Then
rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
Wait For Activity_PermissionResult (rp.PERMISSION_ACCESS_FINE_LOCATION, Result As Boolean)
If Result = False Then
ToastMessageShow("Permission denied: ACCESS_FINE_LOCATION", True)
Return
End If
End If
If rp.Check(rp.PERMISSION_RECORD_AUDIO) = False Then
rp.CheckAndRequest(rp.PERMISSION_RECORD_AUDIO)
Wait For Activity_PermissionResult (rp.PERMISSION_RECORD_AUDIO, Result As Boolean)
If Result = False Then
ToastMessageShow("Permission denied: RECORD_AUDIO", True)
Return
End If
End If
' Dla nowszych wersji Androida wymagamy dodatkowych uprawnień Bluetooth
If rp.Check("android.permission.BLUETOOTH_SCAN") = False Then
rp.CheckAndRequest("android.permission.BLUETOOTH_SCAN")
Wait For Activity_PermissionResult ("android.permission.BLUETOOTH_SCAN", Result As Boolean)
If Result = False Then
ToastMessageShow("Permission denied: BLUETOOTH_SCAN", True)
Return
End If
End If
If rp.Check("android.permission.BLUETOOTH_CONNECT") = False Then
rp.CheckAndRequest("android.permission.BLUETOOTH_CONNECT")
Wait For Activity_PermissionResult ("android.permission.BLUETOOTH_CONNECT", Result As Boolean)
If Result = False Then
ToastMessageShow("Permission denied: BLUETOOTH_CONNECT", True)
Return
End If
End If
End Sub
Sub Activity_Resume
If admin.IsEnabled = False Then
If admin.Enable = False Then
ShowMessageAsync("Nie udało się włączyć Bluetooth", "Błąd")
Else
ShowMessageAsync("Włączam adapter Bluetooth...", "Informacja")
End If
Else
admin_StateChanged(admin.STATE_ON, 0)
End If
End Sub
Sub Activity_Pause (UserClosed As Boolean)
If UserClosed Then
If ast.IsInitialized Then ast.Close
serial1.Disconnect
Activity.Finish
ExitApplication
End If
End Sub
Sub admin_StateChanged(NewState As Int, OldState As Int)
If NewState = admin.STATE_ON Then
ShowMessageAsync("Bluetooth włączony", "Informacja")
Else If NewState = admin.STATE_OFF Then
ShowMessageAsync("Bluetooth wyłączony", "Informacja")
End If
End Sub
Sub admin_DiscoveryFinished
ProgressDialogHide
If foundDevices.Size = 0 Then
ShowMessageAsync("Nie znaleziono urządzenia BT." & CRLF & "Spróbuj ponownie", "Błąd")
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
connectedDevice = foundDevices.Get(res)
ProgressDialogShow("Próba połączenia z: " & CRLF & connectedDevice.Name & CRLF & "MAC ADR (" & connectedDevice.Mac & ")")
serial1.Connect(connectedDevice.Mac)
End If
End If
End Sub
Sub admin_DeviceFound(Name As String, MacAddress As String)
Dim nm As NameAndMac
nm.Initialize
nm.Name = Name
nm.Mac = MacAddress
foundDevices.Add(nm)
ProgressDialogShow("Poszukiwanie urządzeń (znaleziono " & foundDevices.Size & ")...")
End Sub
Sub serial1_Connected(Success As Boolean)
ProgressDialogHide
If Success Then
ShowMessageAsync("Połączono pomyślnie BT", "Informacja")
connected = True
If ast.IsInitialized Then ast.Close
ast.Initialize(Me, "ast", serial1.InputStream, serial1.OutputStream)
Else
connected = False
ShowMessageAsync("Problem z połączeniem", "Błąd")
End If
enable_controls(connected)
End Sub
Sub serial1_Disconnected
If ast.IsInitialized Then ast.Close
connected = False
enable_controls(False)
End Sub
Sub vr_Result(Success As Boolean, Texts As List)
If Success Then
If connected Then
Dim str As String
str = Texts.Get(0)
ast.Write(str & Chr(13) & Chr(10))
End If
End If
End Sub
Sub ast_NewText(Text As String)
edtLog.Text = Text
tts.Speak(Text, False)
End Sub
Sub ast_Terminated
ShowMessageAsync("Połączenie zerwane!", "Informacja")
End Sub
Sub enable_controls(onoff As Boolean)
btnSend.Enabled = onoff
edtText.Enabled = onoff
edtLog.Enabled = onoff
btnConnect.Enabled = Not(onoff)
btnSearch.Enabled = Not(onoff)
btnDisconnect.Enabled = onoff
If onoff Then
Activity.Title = "BT TERMINAL (połączono)"
btnSend.TextColor = Colors.Cyan
btnDisconnect.TextColor = Colors.Red
btnConnect.TextColor = Colors.Gray
btnSearch.TextColor = Colors.Gray
Else
Activity.Title = "BT TERMINAL (brak połączenia)"
btnSend.TextColor = Colors.Gray
btnDisconnect.TextColor = Colors.Gray
btnConnect.TextColor = 0xff00ff00
btnSearch.TextColor = 0xffff00ff
End If
End Sub
Sub btnSend_Click
If connected Then
If edtText.Text = "" Then
vr.Prompt = "Powiedz coś"
vr.Listen
Return
End If
ast.Write(edtText.Text & Chr(13) & Chr(10))
edtText.Text = ""
edtText.RequestFocus
End If
End Sub
Sub btnConnect_Click
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
End Sub
Sub btnSearch_Click
foundDevices.Initialize
If admin.StartDiscovery = False Then
ShowMessageAsync("Błąd wyszukiwania urządzeń BT!", "Błąd")
Else
ShowMessageAsync("Poszukiwanie urządzeń BT...", "Informacja")
End If
End Sub
Sub btnDisconnect_Click
If ast.IsInitialized Then ast.Close
serial1.Disconnect
edtText.Text = ""
edtLog.Text = ""
connected = False
enable_controls(False)
End Sub
Sub Activity_PermissionResult (Permission As String, Result As Boolean)
If Result = False Then
ShowMessageAsync("Nie przyznano uprawnienia: " & Permission, "Błąd")
End If
End Sub
Sub ShowMessageAsync (Message As
String, Title As String)
dialog.Initialize(Activity)
Wait For (dialog.Show(Message, Title, "", "OK")) Complete (Result As Int)
End Sub
' Moduł klasy AsyncStreamsText
Sub Class_Globals
Private mTarget As Object
Private mEventName As String
Private astreams As AsyncStreams
Public charset As String = "UTF8"
Private sb As StringBuilder
End Sub
Public Sub Initialize(TargetModule As Object, EventName As String, In As InputStream, out As OutputStream)
mTarget = TargetModule
mEventName = EventName
astreams.Initialize(In, out, "astreams")
sb.Initialize
End Sub
'Sends the text. Note that this method does not add end of line characters.
Public Sub Write(Text As String)
astreams.Write(Text.GetBytes(charset))
End Sub
Private Sub astreams_NewData(Buffer() As Byte)
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
Private Sub astreams_Terminated
CallSubDelayed(mTarget, mEventName & "_Terminated")
End Sub
Private Sub astreams_Error
Log("error: " & LastException)
astreams.Close
CallSubDelayed(mTarget, mEventName & "_Terminated")
End Sub
Public Sub Close
astreams.Close
End Sub[/syntax]7
to nie ja - to ChatGPT.... Jak widzisz brakuje odpowiednich uprawnień... Czy to zadziała? spróbuj...Statystyki: Napisane przez tfosik — 11 lip 2024, o 21:35
]]>