Build1=Default,b4a.example
Group=Default Group
Library1=core
Library2=network
Library3=randomaccessfile
ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: https://www.b4x.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="5" android:targetSdkVersion="28"/>~\n~<supports-screens android:largeScreens="true" ~\n~    android:normalScreens="true" ~\n~    android:smallScreens="true" ~\n~    android:anyDensity="true"/>)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~CreateResourceFromFile(Macro, Themes.DarkTheme)~\n~'End of default text.~\n~
Module1=Starter
NumberOfFiles=0
NumberOfLibraries=3
NumberOfModules=1
Version=9.801
@EndOfDesignText@
#Region  Project Attributes 
	#ApplicationLabel: B4A WiFi_test_klient
	#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 client As Socket
	Dim port As Int = 11113
	Dim AStreams As AsyncStreams
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.
End Sub

Sub Activity_Create(FirstTime As Boolean)
	If client.IsInitialized = False Then
client.Initialize("client")
client.Connect("192.168.1.104",port, 30000)
	End If
End Sub

Sub Activity_Resume
	
End Sub

Sub Activity_Pause (UserClosed As Boolean)
	If UserClosed Then
AStreams.Close
	End If
End Sub

Sub StartAstream(s As Socket)
	AStreams.Initialize(s.InputStream, s.OutputStream, "AStreams")
End Sub

Sub client_Connected (Successful As Boolean)
	If Successful Then
StartAstream(client)

send_data( "TEXT MSG HAPPY END! или Привет МИР!")
	Else
ToastMessageShow("Error: " & LastException, True)
	End If
End Sub

Sub AStreams_NewData (Buffer() As Byte)  'Чтение данных
	Dim msg As String
	msg = BytesToString(Buffer, 0, Buffer.Length, "Windows-1251")
	ToastMessageShow(msg, False)
End Sub

Sub send_data(str As String)  'Отправка данных
	If AStreams.IsInitialized = False Then Return
	If str.Length > 0 Then
Dim buffer() As Byte
Dim data As String
data = str & CRLF
buffer = data.GetBytes("Windows-1251")
AStreams.Write(buffer)
	End If
End Sub

Build1=Default,b4a.ex2_HC06_leds
File1=main.bal
FileGroup1=Default Group
Group=Default Group
Library1=core
Library2=serial
ManifestCode='This code will be applied to the manifest file during compilation.~\n~'You do not need to modify it in most cases.~\n~'See this link for for more information: http://www.basic4ppc.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk android:minSdkVersion="4" android:targetSdkVersion="14"/>~\n~<supports-screens android:largeScreens="true" ~\n~    android:normalScreens="true" ~\n~    android:smallScreens="true" ~\n~    android:anyDensity="true"/>)~\n~SetApplicationAttribute(android:icon, "@drawable/icon")~\n~SetApplicationAttribute(android:label, "$LABEL$")~\n~'End of default text.~\n~
NumberOfFiles=1
NumberOfLibraries=2
NumberOfModules=0
Version=9.801
@EndOfDesignText@
#Region  Project Attributes 
	#ApplicationLabel: ex2_HC06_leds
	#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 N As Boolean = False
	Dim NE As Boolean = False
	Dim E As Boolean = False
	Dim SE As Boolean  = False
	Dim S As Boolean = False
	Dim SW As Boolean = False
	Dim W As Boolean = False
	Dim NW As Boolean = False
	
	'From Serial example
	Dim Serial1 As Serial 
	Dim TextReader1 As TextReader
	Dim TextWriter1 As TextWriter
	Dim Timer1 As Timer
	Dim connected As Boolean
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 lblN As Label
	Dim lblE As Label
	Dim lblNE As Label
	Dim lblNW As Label
	Dim lblS As Label
	Dim lblSE As Label
	Dim lblSW As Label
	Dim lblW As Label
	Dim txtLog As EditText
	Dim lblReset 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")
	Activity.LoadLayout("main")
	
	If FirstTime Then
Serial1.Initialize("Serial1")	'initialize the serial port
Timer1.Initialize("Timer1", 200)'initialize Timer1 to create an event every 200ms
	End If
	Activity.AddMenuItem("Connect", "mnuConnect")
	Activity.AddMenuItem("Disconnect", "mnuDisconnect")
	Activity.
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 Activity_Pause (UserClosed As Boolean)

End Sub

Sub mnuConnect_Click
	Dim PairedDevices As Map
	PairedDevices = Serial1.GetPairedDevices
	Dim l As List
	l.Initialize
	For i = 0 To PairedDevices.Size - 1
l.Add(PairedDevices.GetKeyAt(i))
	Next
	Dim res As Int
	res = InputList(l, "Choose device", -1) 	'show list with paired devices
	If res <> DialogResponse.CANCEL Then
Serial1.Connect(PairedDevices.Get(l.Get(res))) 'convert the name to mac address
	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)
Timer1.Enabled = True
connected = True
	Else
connected = False
Timer1.Enabled = False
Msgbox(LastException.Message, "Error connecting.")
	End If
End Sub

Sub mnuDisconnect_Click
	Serial1.Disconnect
	connected = False
End Sub

Sub Timer1_Tick
	If connected Then
If TextReader1.Ready Then 'check if there is any data waiting to be read
	txtLog.Text = txtLog.Text & TextReader1.ReadLine & CRLF'add the incoming message to the txtlog and go to the next line of txtlog
	txtLog.SelectionStart = txtLog.Text.Length	'move to the last character in the txtlog to create "scrolling" efect
End If
	End If
End Sub

Sub lblN_Click
	If connected Then	'only apply if connected to a bluetooth device
If N Then'if the button is ON
	N = False
	lblN.Color = Colors.Gray 
	TextWriter1.WriteLine("B")	'write a string to the serial port to switch OFF the corresponding LED
Else	'if button is OFF
	N = True
	lblN.Color = Colors.Red 
	TextWriter1.WriteLine("A")	'write a string to the serial port to switch ON the corresponding LED
End If
TextWriter1.Flush'clear the serialport TX buffer to make sure the previous string gets sent
	End If
End Sub
Sub lblW_Click
	If connected Then
If W Then
	W = False
	lblW.Color = Colors.Gray 
	TextWriter1.WriteLine("N")
Else
	W = True
	lblW.Color = Colors.Green 
	TextWriter1.WriteLine("M")
End If
TextWriter1.Flush
	End If
End Sub
Sub lblSW_Click
	If connected Then
If SW Then
	SW = False
	lblSW.Color = Colors.Gray 
	TextWriter1.WriteLine("L")
Else
	SW = True
	lblSW.Color = Colors.RGB(255,128,0)  'orange
	TextWriter1.WriteLine("K")
End If
TextWriter1.Flush
	End If
End Sub
Sub lblSE_Click
	If connected Then
If SE Then
	SE = False
	lblSE.Color = Colors.Gray 
	TextWriter1.WriteLine("H")
Else
	SE = True
	lblSE.Color = Colors.Blue  
	TextWriter1.WriteLine("G")
End If
TextWriter1.Flush
	End If
	
End Sub
Sub lblS_Click
	If connected Then
If S Then
	S = False
	lblS.Color = Colors.Gray 
	TextWriter1.WriteLine("J")
Else
	S = True
	lblS.Color = Colors.Red 
	TextWriter1.WriteLine("I")
End If
TextWriter1.Flush
	End If	
End Sub
Sub lblNW_Click
	If connected Then
If NW Then
	NW = False
	lblNW.Color = Colors.Gray 
	TextWriter1.WriteLine("P")
Else
	NW = True
	lblNW.Color = Colors.Blue 
	TextWriter1.WriteLine("O")
End If
TextWriter1.Flush
	End If
End Sub
Sub lblNE_Click
	If connected Then
If NE Then
	NE = False
	lblNE.Color = Colors.Gray 
	TextWriter1.WriteLine("D")
Else
	NE = True
	lblNE.Color = Colors.RGB(255,128,0)	'orange
	TextWriter1.WriteLine("C")
End If
TextWriter1.Flush
	End If
End Sub
Sub lblE_Click
	If connected Then
If E Then
	E = False
	lblE.Color = Colors.Gray 
	TextWriter1.WriteLine("F")
Else
	E = True
	lblE.Color = Colors.Green  
	TextWriter1.WriteLine("E")
End If
TextWriter1.Flush
	End If	
End Sub

'Clear all the LEDs when the user clicks on Reset
Sub lblReset_Click
	If connected Then
TextWriter1.WriteLine("B")
TextWriter1.Flush
TextWriter1.WriteLine("D")
TextWriter1.Flush
TextWriter1.WriteLine("F")
TextWriter1.Flush
TextWriter1.WriteLine("H")
TextWriter1.Flush
TextWriter1.WriteLine("J")
TextWriter1.Flush
TextWriter1.WriteLine("L")
TextWriter1.Flush
TextWriter1.WriteLine("N")
TextWriter1.Flush
TextWriter1.WriteLine("P")
TextWriter1.Flush

lblN.Color = Colors.Gray 
lblNE.Color = Colors.Gray
lblE.Color = Colors.Gray
lblSE.Color = Colors.Gray
lblS.Color = Colors.Gray
lblSW.Color = Colors.Gray
lblW.Color = Colors.Gray
lblNW.Color = Colors.Gray

N = False
NE = False
E = False
SE = False
S = False
SW = False
W = False
NW = False
	End If
End Sub

'Set all the LEDs when the user holds in Reset
Sub lblReset_LongClick
	If connected Then
TextWriter1.WriteLine("A")
TextWriter1.Flush
TextWriter1.WriteLine("C")
TextWriter1.Flush
TextWriter1.WriteLine("E")
TextWriter1.Flush
TextWriter1.WriteLine("G")
TextWriter1.Flush
TextWriter1.WriteLine("I")
TextWriter1.Flush
TextWriter1.WriteLine("K")
TextWriter1.Flush
TextWriter1.WriteLine("M")
TextWriter1.Flush
TextWriter1.WriteLine("O")
TextWriter1.Flush

lblN.Color = Colors.Red 
lblNE.Color = Colors.RGB(255,128,0)	'orange
lblE.Color = Colors.Green
lblSE.Color = Colors.Blue
lblS.Color = Colors.Red
lblSW.Color = Colors.RGB(255,128,0)	'orange
lblW.Color = Colors.Green
lblNW.Color = Colors.Blue

N = True
NE = True
E = True
SE = True
S = True
SW = True
W = True
NW = True
	End If
End Sub