Is it not possible to use two serial connections  ?????
only when i init a second serial communication in AppStart,
no data from Anroid-Device was received !!
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
			
			only when i init a second serial communication in AppStart,
no data from Anroid-Device was received !!
			
				B4X:
			
		
		
		#Region Project Attributes
   #AutoFlushLogs: True
   #CheckArrayBounds: True
   #StackBufferSize: 600
#End Region
Sub Process_Globals
   Public Serial1 As Serial
   Private SoftwareSerial1 As SoftwareSerial
   Private Stream1 As AsyncStreams
   
   Private SoftwareSerial2 As SoftwareSerial
   Private Stream2 As AsyncStreams
 
   Private leds(5) As Pin
   Private timer1 As Timer
End Sub
Private Sub AppStart
  Serial1.Initialize(115200)
  Log("AppStart")
  leds(0).Initialize(leds(0).A0, leds(0).MODE_OUTPUT)
   SoftwareSerial1.Initialize(9600, 10, 11) 'software serial port on pins 10 and 11
   Stream1.Initialize(SoftwareSerial1.Stream, "Android_NewData", Null)
   
   SoftwareSerial2.Initialize(9600, 12, 13) 'software serial port on pins 12 and 13
   Stream2.Initialize(SoftwareSerial2.Stream, "Slave_NewData", Null)
 
  timer1.Initialize("timer1_Tick", 1000)
  timer1.Enabled = True
End Sub
Sub Timer1_Tick
  Log("Timer, send data to Android")
   Stream1.Write("Millis here: ".GetBytes)
   Stream1.Write(NumberFormat(Millis, 0, 0).GetBytes)
   Stream1.Write(Array As Byte(10)) 'end of line character. AsyncStreamsText will cut the message here
End Sub
Sub Android_NewData (Buffer() As Byte)
   For i = 0 To Buffer.Length - 2 Step 2
     Dim ledNumber As Byte = Buffer(i)
     Dim value As Boolean = Buffer(i + 1) = 1
     Log("Received from Android: ",ledNumber,", ",value)
     ' leds(ledNumber).DigitalWrite(value)
   Next
End Sub
Sub Slave_NewData (Buffer() As Byte)
   Log("Received vom Slave: ")
   For x =0 To Buffer.Length-1
     Log(Buffer(x))
   Next  
End Sub 
				 
 
		 
 
		 
 
		 
 
		