Hi all,
After some time i (old forumname pvwoerkom) fired up the old atom and am back in bussines.
Project: Monocopter single wing rotating flying device.
Hardware:
Wing, Rc Receiver, BAP24, brushless motor+controller, compass and some code.
I will post some of my experiments to show what i have been up to so far.
Simple compass routine:
Code:
SDA Con P8 ' Define Data pin
SCL Con P9 ' Define Clk pin
Compass Con 0xC0 ' Compass I2C Address
CmdReg Con 0 ' Compas Command register
BearingReg Con 2 ' Compas 1st Range register
Bearing Var Word ' 16 bit variable for Bearing
revision var byte ' revision of compass module
dbear var byte
reg4 var word
reg6 var word
reg8 var word
reg10 var word
Serout S_OUT, i9600, ["Compass start", 13]
Main
pause 300
i2cout p8,p9,0xc0,[0x00]
i2cin p8, p9, 0xC0, [revision, dbear, Bearing.HighByte, Bearing.LowByte, reg4.highbyte, reg4.lowbyte, reg6.highbyte, reg6.lowbyte]
bearing.bit15=0
Serout S_OUT, i9600, [hex revision,32,dec dbear,32, DEC Bearing/10, 32,real bearing/10, 32, hex reg4,32,hex reg6, 13]
goto Main