Compass module and I2C bus

[mister_e]

Have a look at this one for Basic Stamp
http://www.robot-electronics.co.uk/htm/cmps2bs2.shtml
http://www.robot-electronics.co.uk/htm/cmpsatom.shtml

I don't think your software is the main problem.. double check your hardware first

And probably you need to calibrate it first...
http://www.robot-electronics.co.uk/htm/cmps_cal.shtml

EDIT: AHHHH F*** You used a Word sized Variable... it must be a BYTE sized variable for this specific register

[vladimir059@hot]

Hello Mister E.
I tried everything, but it doesn’t work.
I contacted to Devantech Co and Gerald said:
“We've had this before.
It's the PIC Basic Pro compiler.
It does not correctly implement the I2C bus protocol (SCL bus hold).”

Maybe exist other way to implement I2C protocol, or some sort of trick which can help me to overcome these limits
Vladimir

[mister_e]

mpffffff well if it works with a Stamp.. and i use I2CREAD/WRITE in 90% of my stuff without problem, i would probably look at something else first before to tell it's a compiler related stuff.

Tell us your PIC model

Post your config fuses settings

post your schematic

Once again, i doubt it's a PBP problem...

[mister_e]

what happened to your results when you change to a Byte Sized variable? you should read something between 0-255

NOW if you want to use a word sized variable, YOU MUST READ register #2, not 1, so try...

ControlByte VAR BYTE
Register VAR BYTE
ControlByte = $C0
Register = 2
'
'
'
'
i2cread dpin,cpin,ControlByte,Register,[bearing.highbyte, bearing.lowbyte]

and you should read something in a range of 0-3599
<img src="http://www.picbasic.co.uk/forum/attachment.php?attachmentid=1249&stc=1&d=116582183 1">

About now?

[vladimir059@hot]

Big Thank You Mister E.
You and MELABs staff helped me to find mistake. I insert in my code two lines and now program works great. These are two lines:
DEFINE I2C_HOLD 1
DEFINE I2C_SLOW 1

Maybe, someone will have the same problems in future, so I decided to post all my code. It works flawless.
Thanks again
Vladimir

'PIC16f872
'---------------- Definitions---------------------------------------------
define OSC 20
'------------- Define LCD registers and bits------------------------------
DEFINE I2C_HOLD 1
define I2C_SLOW 1
Define LCD_DREG PORTB 'Set LCD data port
Define LCD_DBIT 0 'Set starting data bit
Define LCD_RSREG PORTB 'Set LCD register select port
Define LCD_RSBIT 4 'Set LCD register select bit
Define LCD_EREG PORTB 'Set LCD enable port
Define LCD_EBIT 5 'Set LCD enable bit
define DEBUG_REG PORTC 'Set DEBUD port
DEFINE DEBUG_BIT 1 'Set DEBUG pin
DEFINE DEBUG_BAUD 2400 'Set DEBUG baud rate
DEFINE DEBUG_MODE 0 'Set DEBUG mode



DPIN var PORTc.4 ' I2C data pin
CPIN var PORTc.3 ' I2C clock pin
bearing var word ' word size bearing value 0 - 359
bearing1 var byte ' byte size bearing value 0 - 255

Main:
i2cread dpin,cpin,%11000000,2,[bearing.Highbyte,bearing.lowbyte]

lcdout $fe, 1,"BEARING ",DEC BEARING/10

i2cread dpin,cpin,%11000000,1,[bearing1]

lcdout $fe, $c0,"Bearing ", dec bearing1

DEBUG " Compass Bearing ", # bearing,13,10

pause 20

goto main

[mister_e]

Nice!

Now forward the info to Devantech

[vladimir059@hot]

DONE. I mailed Info to Devantech.
Best Wishes.
Vlad

[shaiqbashir]

Hi guys!

Well ! i have some confusions in understanding the following program :

1) what is the purpose and function of this line :

DEBUG " Compass Bearing ", # bearing,13,10

2) Why is the address be written as %11000000?

3) WHat is the function of this line:

i2cread dpin,cpin,%11000000,2,[bearing.Highbyte,bearing.lowbyte]

4) and what this DEC sign means, i have checked the help section, it is no command. Then why it is written there :

lcdout $fe, 1,"BEARING ",DEC BEARING/10


lcdout $fe, $c0,"Bearing ", dec bearing1

Please help me as soon as possible!

and can anyone tell me whats the cost of this CMPS-03?

Can we operate it through I2C on PIC16F84A?