سلام.
یه برنامه ترمینال با B4A برای گوشی های اندروید نوشتم که با ماژول بلوتوث HC-05 ارتباط بر قرارمی کنه .مشکلی دارم اینکه رشته برای ماژول ارسال می کنم HC-05 اونو دریافت می کنه ولی ولی برعکس دریافت دریافتی ندارم . روی گوشی خودم که اندرویدش 4.2 هست اینطوری ولی روی گوشی مدل بالا تر خودم، برنامه به درستی کار می کنه به نظر شما مشکل کجاست.
یه برنامه ترمینال با B4A برای گوشی های اندروید نوشتم که با ماژول بلوتوث HC-05 ارتباط بر قرارمی کنه .مشکلی دارم اینکه رشته برای ماژول ارسال می کنم HC-05 اونو دریافت می کنه ولی ولی برعکس دریافت دریافتی ندارم . روی گوشی خودم که اندرویدش 4.2 هست اینطوری ولی روی گوشی مدل بالا تر خودم، برنامه به درستی کار می کنه به نظر شما مشکل کجاست.
#Region Project Attributes
#ApplicationLabel: مانیتورینگ
#VersionCode: 1
#VersionName:
'SupportedOrientations possible values: unspecified, landscape or portrait.
#SupportedOrientations: portrait
#CanInstallToExternalStorage: False
#End Region
#Region Activity Attributes
#FullScreen: True
#IncludeTitle: False
#End Region
'Activity module
Sub Process_Globals
Dim Serial1 As Serial
Dim TextReader1 As TextReader
Dim TextWriter1 As TextWriter
'Dim Timer1 As Timer
'Dim s As String
Dim connected As Boolean
Dim t1 As Thread
End Sub
Sub Globals
Dim btnSend As Button
Dim txtLog As EditText
Dim txtSend As EditText
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("1")
Activity.AddMenuItem("Connect", "mnuConnect")
Activity.AddMenuItem("DisConnect", "mnuDisconnect")
If Serial1.IsInitialized = False Then
Serial1.Initialize("Serial1")
'Timer1.Initialize("TIMER1" ,200)
t1.Initialise("thread")
End If
End Sub
Sub Activity_Resume
If Serial1.IsEnabled = False Then
Msgbox("Please enable Bluetooth.", "")
Else
Serial1.Listen 'listen for incoming connections
End If
End Sub
Sub mnuConnect_Click
Dim m1 As Map
Dim l1 As List
Dim result As Int
m1.Initialize
l1.Initialize
m1 =Serial1.GetPairedDevices
For i = 0 To m1.Size-1
l1.Add(m1.GetKeyAt(i))
Next
result = InputList(l1,"Select One Of Device",-1)
If result <> DialogResponse.CANCEL Then
Serial1.Connect(m1.Get(l1.Get(result))) 'Connecting
End If
End Sub
Sub Serial1_Connected (Success As Boolean)
If Success Then
ToastMessageShow("Connected successfully", False)
TextReader1.Initialize(Serial1.InputStream)
TextWriter1.Initialize(Serial1.OutputStream)
t1.Start(Me,"count",Null)
' Timer1.Enabled = True
connected = True
Else
connected = False
'Timer1.Enabled = False
Msgbox("Not Connecting", "Error connecting.")
End If
End Sub
Sub mnuDisconnect_Click
Serial1.Disconnect
connected = False
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
Sub btnSend_Click
If connected Then
TextWriter1.WriteLine(txtSend.Text)
TextWriter1.Flush
txtSend.Text = ""
End If
End Sub
Sub count
Dim i As Int
Dim a As Byte:a=1
Do While a=1
i=i+1
TextReader1.Initialize(Serial1.InputStream)
If TextReader1.Ready Then
t1.RunOnGuiThread("show",Array As Object(TextReader1.ReadLine))
End If
t1.Sleep(100)
'Next
Loop
End Sub
Sub show(index As Object)
txtLog.Text = txtLog.Text & index & CRLF
txtLog.SelectionStart = txtLog.Text.Length
'If index<>"" Then
'txtLog.Text = index
'End If
End Sub
دیدگاه