Android Basic Alternative

**Tobias** · - 4th March 2013, 06:22

I have been working with B4A for a couple of months and like it. Now trying to get PIC connected to a BT module to talk in Prefix mode. If any of you guys have experience I would appreciate some input.

I define all variables as BYTES. B4A crashes when it receives the data.

Code:

Send_BT:
  Prefix1=0
  Prefix2=0
  Prefix3=0
  Prefix4=4
  RPM1T=34
  RPM2T=65
  RPM3T=232
  RPM4T=45
  debug Prefix1,Prefix2,Prefix3,Prefix4,RPM1T,RPM2T,RPM3T,RPM4T
Return

**spcw1234** · - 15th March 2013, 14:47

Did you ever get this working with prefix mode? I am struggling with the exact same thing. I can view the data with prefix disabled, but it crashes (doesn't like the prefix) when using prefix mode. Any tips appreciated.

**Tobias** · - 16th March 2013, 01:19

I did get it working. The one thing that was kicking my ass if I remember right was the True/False for BigEndian.

Code:

AStream.InitializePrefix(Main.serial1.InputStream, True, Main.serial1.OutputStream, "AStream")

Also I had to look around to set the BPS right. I am sending at 9600 currently

Code:

Incoming= BytesToString(Buffer, 0, Buffer.Length, "ISO8859_1")

Here is the PBP side of the Bluetooth TX

Code:

Send_BT: 'Sends data assembled from control boards and outputs to the XOOM
  RPM1R=RPM1R+1000                                
  RPM2R=RPM2R+1000',2
  RPM3R=RPM3R+1000'1
  RPM4R=RPM4R+1000'0
  RPM5R=RPM5R+1000                                   
  RPM6R=RPM6R+1000
  RPM7R=RPM7R+1000
  RPM8R=RPM8R+1000
  RPM9R=RPM9R+1000
  RPM10R=RPM10R+1000
  RPM11R=RPM11R+1000
  RPM12R=RPM12R+1000
  RPM13R=RPM13R+1000
  RPM14R=RPM14R+1000
  RPM15R=RPM15R+1000
  RPM16R=RPM16R+1000
  RPM17R=RPM17R+1000
  RPM18R=RPM18R+1000
  RPM19R=RPM19R+1000
  RPM20R=RPM20R+1000
  RPM21R=RPM21R+1000
  RPM22R=RPM22R+1000
  RPM23R=RPM23R+1000
  RPM24R=RPM24R+1000  
  Prefix1=248
  Prefix2=0
  Prefix3=0
  Prefix4=0
  RadarTotal=radartotal+1000
  debug Prefix1,Prefix2,Prefix3,Prefix4,"R,",dec4 RadarTotal,",",dec4 RPM1R,",",dec4 RPM2R,",",dec4 RPM3R,",",dec4 RPM4R,",",dec4 RPM5R,",",dec4 RPM6R,",",dec4 RPM7R,",",dec4 RPM8R,",",dec4 RPM9R,",",dec4 RPM10R,_
                                                       ",",dec4 RPM11R,",",dec4 RPM12R,",",dec4 RPM13R,",",dec4 RPM14R,",",dec4 RPM15R,",",dec4 RPM16R,",",dec4 RPM17R,",",dec4 RPM18R,_
                                                       ",",dec4 RPM19R,",",dec4 RPM20R,",",dec4 RPM21R,",",dec4 RPM22R,",",dec4 RPM23R,",",dec4 RPM24R,",",dec4 RPM1R,",",dec4 RPM2R,_
                                                       ",",dec4 RPM3R,",",dec4 RPM4R,",",dec4 RPM5R,",",dec4 RPM6R,",",dec4 RPM7R,",",dec4 RPM8R,",",dec4 RPM9R,",",dec4 RPM10R,_
                                                       ",",dec4 RPM11R,",",dec4 RPM12R,",",dec4 RPM13R,",",dec4 RPM14R,",",dec4 RPM15R,",",dec4 RPM16R,",",dec4 RPM17R,",",dec4 RPM18R,_
                                                       ",",dec4 RPM19R,",",dec4 RPM20R,",",dec4 RPM21R,",",dec4 RPM22R,",",dec4 RPM23R,",",dec4 RPM24R,",","E"
  'serout2 lcd,16468,[Prefix,CursorPS,0,dec RPM1T,",",dec RPM2T,",",dec RPM3T,",",dec RPM4T]
Return

Here is the Bluetooth RX side on the Xoom/B4A

Code:

Sub AStream_NewData (Buffer() As Byte)
	'Log( BytesToString(Buffer, 0, Buffer.Length, "ISO8859_1"))    
	Dim Incoming As String
	Dim Start As Int
	Dim Stop As Int
	'sAmount As Int
    'LogMessage("INTERFACE", BytesToString(Buffer, 0, Buffer.Length, "ISO8859_1"))
	Log( BytesToString(Buffer, 0, Buffer.Length, "ISO8859_1"))
	Incoming= BytesToString(Buffer, 0, Buffer.Length, "ISO8859_1")
    Start = Incoming.IndexOf("R")
	Stop = Incoming.IndexOf("E")

	If ScrId>3 Then
	''''''''''
	If SimSpeedYN="Yes" Then 
	  MPH = SimSpeed
	  MaxRPM=(30/PC)*(RS/30)*(MPH)*0.168*(txtMasterPop.text/1000)
	  txtRPM.Text = NumberFormat(MaxRPM,0,1)
	 Else
      MPH = (Incoming.SubString2(Start +2,Stop -241))
	  'If MPH>0 Then 
        MPH=(MPH-1000)          '''''''''THis is for hard coded MPH
	    MPH=Radar/MPH
	    txtMPH.Text=NumberFormat(MPH,0,1)
        MaxRPM=(30/PC)*(RS/30)*(MPH)*0.168*(txtMasterPop.text/1000)
	    txtRPM.Text = NumberFormat(MaxRPM,0,1)
			    'MPH="0"
	    'txtMPH.Text=0
      ' Else
	   ' MPH="0"
	   ' txtMPH.Text=0
	   ' txtRPM.Text = 0	
	  'End If
	End If   
	  
	Log("MPH " & MPH)
      If EPD>0 Then
	    If MPH>0 Then 
 	      Row1 = (Incoming.SubString2(Start +7,Stop -236))
	      Row2 = (Incoming.SubString2(Start +12,Stop -231))
	      Row3 = (Incoming.SubString2(Start +17,Stop -226))
	      Row4 = (Incoming.SubString2(Start +22,Stop -221))
	      txtRow1.Text = NumberFormat(((Row1-1000)/(((30/PC)*(RS/30)*MPH*0.168)*10)),0,2)
	      txtMR1.Text=   NumberFormat((((txtRow1.Text*1000)/txtMasterPop.Text)),1,3)
	      txtRow2.Text = NumberFormat(((Row2-1000)/(((30/PC)*(RS/30)*MPH*0.168)*10)),0,2)
	      txtMR2.Text=   NumberFormat((((txtRow2.Text*1000)/txtMasterPop.Text)),1,3)
	      txtRow3.Text = NumberFormat(((Row3-1000)/(((30/PC)*(RS/30)*MPH*0.168)*10)),0,2)
	      txtMR3.Text=   NumberFormat((((txtRow3.Text*1000)/txtMasterPop.Text)),1,3)
	      txtRow4.Text = NumberFormat(((Row4-1000)/(((30/PC)*(RS/30)*MPH*0.168)*10)),0,2)
	      txtMR4.Text=   NumberFormat((((txtRow4.Text*1000)/txtMasterPop.Text)),1,3)
		 Else
	      txtRow1.Text=0
	      txtMR1.Text=0
	      txtRow2.Text=0
	      txtMR2.Text=0
	      txtRow3.Text=0
	      txtMR3.Text=0
	      txtRow4.Text=0
	      txtMR4.Text=0		 
		End If
		Dim MPHTest As Short
		MPHTest=0
		txtMPHZ.Text=MPHTest
      End If 
      If EPD>1 Then 
 	    Row5 = (Incoming.SubString2(Start +27,Stop -216))
	    Row6 = (Incoming.SubString2(Start +32,Stop -211))
	    Row7 = (Incoming.SubString2(Start +37,Stop -206))
	    Row8 = (Incoming.SubString2(Start +42,Stop -201))
	    txtRow5.Text = NumberFormat(((Row5-1000)/(((30/PC)*(RS/30)*MPH*0.168)*10)),0,2)
	    txtMR5.Text=   NumberFormat((((txtRow5.Text*1000)/txtMasterPop.Text)),1,3)
	    txtRow6.Text = NumberFormat(((Row6-1000)/(((30/PC)*(RS/30)*MPH*0.168)*10)),0,2)
	    txtMR6.Text=   NumberFormat((((txtRow6.Text*1000)/txtMasterPop.Text)),1,3)
	    txtRow7.Text = NumberFormat(((Row7-1000)/(((30/PC)*(RS/30)*MPH*0.168)*10)),0,2)
	    txtMR7.Text=   NumberFormat((((txtRow7.Text*1000)/txtMasterPop.Text)),1,3)
	    txtRow8.Text = NumberFormat(((Row8-1000)/(((30/PC)*(RS/30)*MPH*0.168)*10)),0,2)
	    txtMR8.Text=   NumberFormat((((txtRow8.Text*1000)/txtMasterPop.Text)),1,3)
      End If
 end sub

To make sure I was calculating the Prefix right I found this website that allowed me to type in data and it would calculate the size for me
http://mothereff.in/byte-counter

**spcw1234** · - 16th March 2013, 02:01

Thank You! I will plug away at this and see if I can get it to work.

**spcw1234** · - 24th March 2013, 16:32

I can't get this to work

Hoping you can help me! When I run this very simple android program with prefix I get an almost immediate error "Unfortunately, Bluetooth Example has stopped" and the program closes. I am using the Bluetooth chat example to simply display my data in the chat window. I have very limited serial communication experience. With the prefix disabled I get the data as expected, so the communication is good.

This is the Android routine where I switch between prefix or no prefix mode.

Code:

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("2")
	If AStream.IsInitialized = False Then	
		AStream.InitializePrefix(Main.serial1.InputStream, True, Main.serial1.OutputStream, "AStream")
'		AStream.Initialize(Main.Serial1.InputStream, Main.Serial1.OutputStream, "AStream") 'NO PREFIX MODE
	End If
	txtLog.Width = 100%x
End Sub

I tried a few variations here with no luck

Code:

Sub AStream_NewData (Buffer() As Byte)
	LogMessage("You", BytesToString(Buffer, 0, Buffer.Length, "UTF8"))
'	Incoming= BytesToString(Buffer, 0, Buffer.Length, "ISO8859_1")
'	LogMessage("You", BytesToString(Buffer, 0, Buffer.Length, "ISO8859_1"))
End Sub

My code on an 18F4620 with internal 8mhz osc. I assume I have the prefix correct.

Code:

define DEBUG_REG PORTC
define DEBUG_BIT 6
define DEBUG_BAUD 9600
define DEBUG_MODE 0

A1          var byte
A2          var byte
A3          var byte
A4          var byte
prefix1     var byte    
prefix2     var byte
prefix3     var byte
prefix4     var byte

  A1=11
  A2=22
  A3=33
  A4=44
  
  Prefix1=23 'http://mothereff.in/byte-counter  11,22,33,44,11,22,33,44
  Prefix2=0
  Prefix3=0
  Prefix4=0

main:
 pause 1000
 debug Prefix1,Prefix2,Prefix3,Prefix4,dec2 A1,",",dec2 A2,",",dec2 A3,",",dec2 A4,",",dec2 A1,",",dec2 A2,",",dec2 A3,",",dec2 A4
 pause 1000 
goto main

end

**Tobias** · - 25th March 2013, 02:42

Use this line

AStream.InitializePrefix(serial1.InputStream, False, serial1.OutputStream, "AStream")

instead of

AStream.InitializePrefix(Main.serial1.InputStream, True, Main.serial1.OutputStream, "AStream")

The False part I bet fixes your problem.

**spcw1234** · - 8th April 2013, 12:22

Originally Posted by Tobias

Use this line

AStream.InitializePrefix(serial1.InputStream, False, serial1.OutputStream, "AStream")

I finally found time this weekend to play with this some more and did get it working! Thanks for your help Tobias!

Thread: Android Basic Alternative

Thread Tools

Search Thread

Display

Hybrid View

Re: Android Basic Alternative

Re: Android Basic Alternative

Re: Android Basic Alternative

Re: Android Basic Alternative

Re: Android Basic Alternative

Re: Android Basic Alternative

Re: Android Basic Alternative

Similar Threads

Android Basic

Pic to Android

PBP & Android Interfacing

PICs and Android

Pulsin alternative

Members who have read this thread : 0

Bookmarks

Bookmarks

Posting Permissions