For P16f887 (includes Hardware using Proteus). This is a code reading 3 internal ADC channels. Could be used with accelerometer. Plus it has a dimmer part which can be controlled by the ADC. Maybe not the best out there, but it worked for me.

delphi XE 安卓下加速度传感器计算，源码实例，很好的例子，欢迎下载学习-Delphi XE Android acceleration sensor calculation, source code examples, a good example, welcome to download learning