Using Diamond's Accelerometer

[Mr_Gee]

It would be real cool to be able to use this in B4PPC,
Is there any way of using what this guy made?
Apparently he wrote a "managed wrapper" for the Sensor API,
I opened the file, but i think it is currently meant for VS (e.g. i couldn't find a DLL)

[agraham]

You try this AT YOUR OWN RISK I've no idea if it will work. Best case it will work, probably it will fail benignly, at worst you will need to hard reset your device and reinstall everything!

The original code required VS2008 and the WM6.0 SDK, neither of which I have. However I stripped out the device orientation bits of code, which won't compile with my system ,and and compiled the rest under VS2005 for WM5.0 devices. I can't test the code but it is pretty simple.

Make a HTCGSensor object and New it. Then call GetRawSensorData whenever you want to get the data. The data is returned relative to the screen face.

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 ByteConverter library

[Mr_Gee]

Thanks agraham, that was quick

I don't have a Diamond yet, I'm waiting for the stock,
should be end of next week if everything goes well

after shoving the data through your ByteConverter Lib, will it
give me an orientation or the X,Y,Z axis?

[agraham]

IF it works you'll have to play, I don't really know myself. From the source

public short TiltX;   // From -1000 to 1000 (about), 0 is flat
public short TiltY;   // From -1000 to 1000 (about), 0 is flat
public short TiltZ;   // From -1000 to 1000 (about), 0 = Straight up, -1000 = Flat, 1000 = Upside down
public short Unknown1;  // Always zero
public int AngleY;  // From 0 to 359
 public int AngleX;  // From 0 to 359
public int Unknown2; // Bit field?

[Mr_Gee]

looks interesting...

I'll give it a go when i have one, and report back here

Thanks for your help on this

[Mr_Gee]

Hi agraham,

Just got my t-Mobilized Diamond so I though i'd give this a go.

In the IDE I made a form and included the HTCSensor.dll
when hitting F5 i get the following error
- unable to find an entry point named HTCSendorOpen in DLL HTCSensorSDK
next I copy pasted Sensor.DLL and renamed it to HTCSensorSDK.DLL
That didn't help...

[agraham]

Originally Posted by Mr_Gee

- unable to find an entry point named HTCSendorOpen in DLL HTCSensorSDK

I assume you mean "HTCSensorOpen". Do you have an HTCSensorSDK.dll file on the device? That message might mean the dll was found but lacked the required entry point.

Googling I found this "But HTCSensorSDK.dll is on ROM (I think) and not removeable" which implies that it should be on the device. I am afraid that I can't be of further help. The code requires that entry point in that dll.

[Mr_Gee]

Yes I did, sorry..

I found the HTCSensorSDK.DLL on my device, so I copied it to the same dir as the sbp file.
next I change the sbp file to :

Sub App_Start
	Form1.Show
	sen.New1
	'TextBox1.Text = sen.GetRawSensorData
	Msgbox(sen.ToString)
End Sub

and it states "WindowsMobile.Sensor.HTCGSensor" in the popupbox

when I use the GetRawSensorData I get a "NotSupportedException"

Does that help you in any way?

[agraham]

Ih has found the dll and the intialisation entry point or it wouldn't have got that far.

Originally Posted by Mr_Gee

when I use the GetRawSensorData I get a "NotSupportedException"

Any further information with that exception? That message is the exception type, I would have expected an additional message as well.

[Mr_Gee]

Originally Posted by agraham

Ih has found the dll and the intialisation entry point or it wouldn't have got that far.
Any further information with that exception? That message is the exception type, I would have expected an additional message as well.

No there is nothing else.. I've attached a screenshot

I've used "TextBox1.Text = sen.ToString(sen.GetRawSensorData)" in this case
but to be sure i also did TextBox1.Text = sen.GetRawSensorData

same result