جابجایی یک عکس با شتاب سنج

[arastooms 1,046]

سلام به همه اساتید عزیز 
قصد دارم یک عکس ساده ( فرض میکنیم یک توپ ) رو در صفحه اکتویتی جابجا کنم با شتاب سنج گوشی که کاربر گوشی رو چپ و راست میکنه اون ویو در واقع ( ایمیج ویو ) جا بجا بشه و از اکتویتی هم بیرون نیاد 
یعنی کنار دیواره ها بمونه و بیرون نره
سورس یا کتابخوه ای هست که بتونید به من پیشنهاد کنید 
یا مطلبی که مطالعه کنم در این زمینه
با تشکر از دوستان و اساتید

[Kazem Forghani 2,927]

سلام ، با استفاده از کتابخانه Phone و کلس PhoneAccelerometer می تونید این کار رو انجام بدید. ابتدا یک متغیر از نوع PhoneAccelerometer تعریف کنید.

Dim pa As PhoneAccelerometer

زمانی که می خواید برنامه به سنسور گوش بده متد StartListening رو اجرا کنید.

pa.StartListening("pa")

حالا با استفاده از ساب زیر می تونید مختصات رو بگیرید.

Sub p_AccelerometerChanged (X As Float, Y As Float, Z As Float)
	pnl.Left = X
	pnl.Top = Y
End Sub

ببخشید خیلی سریع توضیح دادم. موفق باشید