Using Diamond's Accelerometer

[agraham]

Originally Posted by Mr_Gee

No there is nothing else

Wrong! There is a lot more information there. It shows how important it is to describe exactly and in detail rather than just saying an exception occurred.

I think that the dll might actually be working, it is your code that is trying to use the returned information incorrectly. From my earlier post

Dim data(0)
...
HTCGSensor.New
...
data() = HTCGSensor.GetRawSensorData

In the unlikely event that it works the data is returned in a 20 byte array described in the struct at the start of the source file in the zip. You can reassemble the data the hard way by multiplying and adding bytes or by using my ByteConverter library

You have to assign the returned data to an array and pick it apart from there. The array will be an array of bytes that you have to transform to the required numbers. With my ByteConverter library it looks likes this (there may be typos/errors, I haven't actually tried the code).

TiltX = ByteConv.Int16FromBytes(data(), 0) ' From -1000 to 1000 (about), 0 is flats
TiltY = ByteConv.Int16FromBytes(data(), 2) ' From -1000 to 1000 (about), 0 is flatshort
TiltZ = ByteConv.Int16FromBytes(data(), 4) ' From -1000 to 1000 (about), 0 is flat
Unknown1 = ByteConv.Int16FromBytes(data(), 6) ' Always zero
AngleY = ByteConv.Int32FromBytes(data(), 8) 'From 0 to 359
AngleX = ByteConv.Int32FromBytes(data(), 12) 'From 0 to 359
Unknown2 = ByteConv.Int16FromBytes(data(), 16) ' Bitfield?

[Mr_Gee]

Originally Posted by agraham

Wrong! There is a lot more information there. It shows how important it is to describe exactly and in detail rather than just saying an exception occurred.

Sorry you are right, I think I was just to eager to get started...

I started again from scratch

Sub Globals
	Dim data(0)
End Sub
Sub App_Start
	Form1.Show
End Sub
Sub Button1_Click
	HTCGSensor.New1
	data() = HTCGSensor.GetRawSensorData
	Msgbox(ArrayLen(data()))
End Sub

Error message is :

An error occured on sub button1_click
Line number : 15
data() = HTCGSensor.GetRawSensorData
Error description :
NotSupportedException

[agraham]

Originally Posted by Mr_Gee

NotSupportedException

Pity it doesn't tell us what is not supported

I can't see anything wrong with the code (it's only three lines long!), but I can't test it as I haven't an HTC device. I've done the same thing the long way round with this second attempt. If this doesn't work then I am afraid that I am out of ideas without having a device to play with.

[Mr_Gee]

:-)

guess what... i'm getting data back!

msgbox(ArrayLen(data())) is giving 20
and sending the data to a listbox is also working

Now for the hard part processing the data...

I have no idea where to start

I get a list of values, none of them are negative so the stuff you posted in post#4 cannot be used directly... but i'm pretty sure i'm missing something
is this something that can be deducted using your byteconverter lib?

edit added image

[agraham]

Originally Posted by Mr_Gee

is this something that can be deducted using your byteconverter lib?

You will need to play. Add my ByteConverter library as a component, make an object called ByteConv and use the code I posted in #11 to take the data apart. You won't see those values I posted in #4 until you have parsed the data back into the correct format.

[Mr_Gee]

Man..this is cool :-)

I got it working with the above code, but it's very jittery at the moment,
changes of 2 (on 2000)

I'll polish the code and post it, there must be other people wanting to use your lib :-)

Thanks for all your help on this