CorryWestSide
Member
i have this kind of problem with a bluetooth module:
Start with this i wirte this Log:
Connected, servizi: (ArrayList) [00001800-0000-1000-8000-00805f9b34fb, 00001801-0000-1000-8000-00805f9b34fb, 00005301-0000-0041-4c50-574953450000] DONE
The service that i want is only Servizio id: 00005301-0000-0041-4c50-574953450000 DONE
This service have now 2 Characteristic: Key: 00005303-0000-0041-4c50-574953450000 (NOTIFY) RX | Key: 00005302-0000-0041-4c50-574953450000(WRITE) TX
The problem is here:
I have to send this value at TX:
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
And
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
The problem is that the RX not return me nothing......
The attach file is the File.txt that i have Vs the File.txt that i have to have
Example of Code:
	
	
	
	
	
	
	
		
			
			
			
			
			
		
	
	
	
		
	
	
		
	
			
			Start with this i wirte this Log:
Connected, servizi: (ArrayList) [00001800-0000-1000-8000-00805f9b34fb, 00001801-0000-1000-8000-00805f9b34fb, 00005301-0000-0041-4c50-574953450000] DONE
The service that i want is only Servizio id: 00005301-0000-0041-4c50-574953450000 DONE
This service have now 2 Characteristic: Key: 00005303-0000-0041-4c50-574953450000 (NOTIFY) RX | Key: 00005302-0000-0041-4c50-574953450000(WRITE) TX
The problem is here:
I have to send this value at TX:
			
				B4X:
			
		
		
		Dim startCommandBytes() As Byte = Array As Byte(5,6,64,0,8,1,91,149)
			
				B4X:
			
		
		
		Dim passwordLogin As String = "00000000"
Dim passwordBytes() As Byte = passwordLogin.GetBytes("UTF8")The problem is that the RX not return me nothing......
The attach file is the File.txt that i have Vs the File.txt that i have to have
Example of Code:
			
				Piece Of Code:
			
		
		
		Dim startCommandBytes() As Byte = Array As Byte(5,6,64,0,8,1,91,149)
                Dim passwordLogin As String = "00000000"
                Dim passwordBytes() As Byte = passwordLogin.GetBytes("UTF8")
                
                
                blmanager.WriteData("00005301-0000-0041-4c50-574953450000", "00005302-0000-0041-4c50-574953450000", startCommandBytes) 'TX
                blmanager.WriteData("00005301-0000-0041-4c50-574953450000", "00005302-0000-0041-4c50-574953450000", passwordBytes)
                blmanager.SetNotify("00005301-0000-0041-4c50-574953450000", "00005303-0000-0041-4c50-574953450000",True) 'RX 
				 
 
		 
			 
 
		 
 
		