Pic18 and RN42 bluetooth communication problem using UART

[picmilan]

Hello everyone,

I have a RN42 bluetooth module in HID profile that I am trying to get it working with PIC18F24J50.

I have a code in arduino that is working and basically moves the cursor.I want to do the same in Basic but it doesn't work.

Code in Arduino :


int led = 13;

void mouseAction(void);

void setup() {
pinMode(led, OUTPUT);

digitalWrite(led, HIGH);

Serial.begin(115200);

delay(500);

digitalWrite(led, LOW);
}


void loop() {
digitalWrite(led, LOW);
mouseAction(0,0,10,0);
}


void mouseAction(int button,int x, int y,int wheel)
{

Serial.write(0xFD);
Serial.write(0x05);
Serial.write(0x02);
Serial.write(button)
Serial.write(x);
Serial.write(y);
Serial.write(wheel);

delay(20);
}


And this is the Basic code:


DEFINE LOADER_USED 1
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 24h
DEFINE HSER_BAUD 115200
DEFINE HSER_SPBRG 1 ' 115200 Bauds
DEFINE HSER_CLOERR 1
DEFINE OSC 4
SPBRG = 1
RCSTA = 010000
TXSTA = 100100

TRISC.0 = 0
TRISC.6 = 0
TRISC.7 = 1

LED VAR PORTC.0
mainloop:

high LED

'TXREG = $FD
'TXREG = $05
'TXREG = $02
'TXREG = 0
'TXREG = 0
'TXREG = 10
'TXREG = 0

Hserout [$FD]
Hserout [$05]
Hserout [$02]
Hserout [0]
Hserout [0]
Hserout [10]
Hserout [0]

Pause 1000

low LED
Pause 1000
Goto mainloop

It doesn't work using 4Mhz internal oscillator and I wonder if that is problem and a 24 external oscillator will fix it or the is problem with my code?

I am a bit new to UART using Pic18 and I would appreciate anyway help.Thanks!

[richard]

It doesn't work using 4Mhz internal oscillator and I wonder if that is problem and a 24 external oscillator will fix it or the is problem with my code?
@ 4mHz The baudrate error is 8.5 % .Quite likely to cause trouble , the internal osc is quite capable of 8 12 16 24 or 48 MHz operation any one of which would be better than 4 .


DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 24h
DEFINE HSER_BAUD 115200
DEFINE HSER_SPBRG 1 ' 115200 Bauds
DEFINE HSER_CLOERR 1
DEFINE OSC 4
SPBRG = 1 why ? DEFINE HSER_SPBRG 1
RCSTA = 010000 ? even with %010000 its still wrong and conflicts with DEFINE HSER_RCSTA 90h
TXSTA = 100100 ? even with %100100 its redundant

[picmilan]

I changed the oscillator value but it still doesn't work.

I think it could be because of missing line in arduino code to enter command mode!


Serial.print("$$$")

Any suggestion on doing the same thing in Basic? How do I do it? using Hserout? Not sure about sending ASCII string.

Would appreciate any help.

[richard]

Serial.write(button)
Serial.write(x);
Serial.write(y);
Serial.write(wheel);


wheel ,x,y and button are all ints ie 16 bit signed values ie 8 bytes sent


Hserout [0]
Hserout [0]
Hserout [10]
Hserout [0]


are all bytes ie 8 bit unsigned values ie 4 bytes sent


I changed the oscillator value but it still doesn't work.

post your code including the fuse config

[picmilan]

How should I enter ints 16 bit signed values? like following?



Hserout [0]
Hserout [0]

Hserout [0]
Hserout [0]

Hserout [10]
Hserout [0]

Hserout [0]
Hserout [0]



New Code with config:


DEFINE LOADER_USED 1
DEFINE HSER_RCSTA 90h
DEFINE HSER_TXSTA 24h
DEFINE HSER_BAUD 115200
DEFINE HSER_SPBRG 7 ' 115200 Bauds
DEFINE HSER_CLOERR 1
DEFINE OSC 16

TRISC.0 = 0
TRISC.6 = 0
TRISC.7 = 1

LED VAR PORTC.0

Hserout ["$$$"] 'command mode Serial.print("$$$");

mainloop:

high LED

Hserout [$FD]
Hserout [$05]
Hserout [$02]
Hserout [0]
Hserout [0]
Hserout [10]
Hserout [0]

Pause 1000

low LED
Pause 1000
Goto mainloop

Thanks again for the help! I am stuck!

[richard]

How should I enter ints 16 bit signed values? like following?


to send 10
in little_endian format
Hserout [10,0]

or big_endian format
Hserout [0,10]

not sure how arduinos go about it they could be big or little endian

if your values can be negative then you need to pay close attention to your calcs pbp uses unsigned math




New Code with config:

there is no config there
pbp default config for pic18f24j50 is



#CONFIG
CONFIG WDTEN = ON
CONFIG PLLDIV = 5
CONFIG STVREN = ON
CONFIG XINST = OFF
CONFIG DEBUG = OFF
CONFIG CPUDIV = OSC1
CONFIG CP0 = OFF
CONFIG OSC = HSPLL
CONFIG T1DIG = ON
CONFIG LPT1OSC = OFF
CONFIG FCMEN = OFF
CONFIG IESO = OFF
CONFIG WDTPS = 512
CONFIG DSWDTOSC = INTOSCREF
CONFIG RTCOSC = T1OSCREF
CONFIG DSBOREN = ON
CONFIG DSWDTEN = ON
CONFIG DSWDTPS = G2
CONFIG IOL1WAY = ON
CONFIG MSSP7B_EN = MSK7
CONFIG WPFP = PAGE_0
CONFIG WPEND = PAGE_WPFP
CONFIG WPCFG = OFF
CONFIG WPDIS = OFF
#ENDCONFIG

which expects an external xtal



DEFINE OSC 16

is just a compiler directive used for compile time timing calculations , it does nothing else

to use the internal osc the config words need to be set appropriately
such as
CONFIG OSC = INTOSC

or

CONFIG OSC = INTOSCPLL

and
CONFIG PLLDIV needs to match

along with

CONFIG CPUDIV which need to match

read the osc section of the data sheet

[picmilan]

Thanks alot! I will try that.

Do I need to set OSCCON and OSCTUNE registers as well if I am using internal oscillator? I am a bit confused about Frequency Tuning bit of OSCTUNE register.How you get to 16MHz from 96 MHz PLL?

[richard]

for 16mhz

#CONFIG
CONFIG WDTEN = ON
CONFIG PLLDIV = 2
CONFIG STVREN = ON
CONFIG XINST = OFF
CONFIG DEBUG = OFF
CONFIG CPUDIV = OSC3_PLL3
CONFIG CP0 = OFF
CONFIG OSC = INTOSCPLL
CONFIG T1DIG = ON
CONFIG LPT1OSC = OFF
CONFIG FCMEN = OFF
CONFIG IESO = OFF
CONFIG WDTPS = 512
CONFIG DSWDTOSC = INTOSCREF
CONFIG RTCOSC = T1OSCREF
CONFIG DSBOREN = ON
CONFIG DSWDTEN = ON
CONFIG DSWDTPS = G2
CONFIG IOL1WAY = ON
CONFIG MSSP7B_EN = MSK7
CONFIG WPFP = PAGE_0
CONFIG WPEND = PAGE_WPFP
CONFIG WPCFG = OFF
CONFIG WPDIS = OFF
#ENDCONFIG

OSCTUNE.6=1 ; pll enable




8mhz -----/2 --= 4---pll--= 96 -/2 = 48 ------/3-- = 16
inc osc pll pre pll cpu div

[picmilan]

I got it running using external oscillator but bluetooth doesn't pickup the commands..

Any idea? even
Hserout [dec 10] doesn't work.

[picmilan]

Actually It's working using what you suggested.


Hserout [10,0]

Thanks alot!