سنسور های حرکتی و زاویه سنج

[Moien1 2]

سلام بر دوستان گرامی .

1.سلام میخواستم یه آموزش بزارید درمورد کار با سنسور های شتاب سنج و ژیروسکوپ (سنسور های حرکتی و زاویه سنج) .
2.میخواستم یه برنامه بنویسم که نشون بده مبایل چندرجه تغییر زاویه داشته .

[Abol 5]

بسم ا... الرّحمن الرّحیم

                                                                  به نام خدای بخشنده مهربان

باز هم                        بسم ا... الرّحمن الرّحیم

((((((((((((((همیشه (((((((با نام )))))))و(((((((یاد خدا)))))))و(((((((برای کسب رضای خدا شروع کن)))))))))))))))))))))

شکرلللّه حمدلللّه ربّالعالمین

                                                                     شکربرای خداست سپاس وستایش مخصوص خداست پروردگار جهانیان

خدارا شکر برای ایمانمان به او وهمه حسنات

خدایا شکرت

 

سلام

 

 

من در اینترنت در سایت اصلی B4A جست وجو کردم کمی فهمیدم باید متغیری که سنسور است رااین گونه معرفی کرد:Dim sensor As PhoneOrientation

               انشا ا... می فهمیم                                                                                                                   

بقیه را نمی دانم

نگاه کن ،من تا با نام ویاد خدا شروع کردم بدون آموزش با الگو گرفتن از سایر کدها فهمیدم

می بینی خدا چه مهربان عالم ومقتدر است

 

خداراشکر فهمیدم.

باز هم خدا را شکر

یک ساب هم باید این گونه تعریف کنی:::

mx ,my , mz لابل هایی هستند

 

[Moien1 2]

پس از تحقیقات بسیار کاشف به عمل آمد که Accelerometer شتاب جازبه در محور های مختصات را نشان میدهد نه زاویه.

برای به دست آوردن زاویه باید چکارکنم؟

[Moien1 2]

راستی این که سنسور شتاب سنج ، سنسور زاویه سنج هم داریم ؟

 

یکی جواب بده دیگه

[Moien1 2]

ترو خدا کسایی که میتونن جواب بدن و کسایی که نمیتونن به کسایی که میتونن پیام بدن

[Moien1 2]

آخرش من نفهمیدم میشه مسافت پیموده شده حساب کرد یا نه

[Moien1 2]

درود بر همه دوستان زحمت کش وشجاع.    

خیلی خوش حالم کردین انشا الله خداوند هم شما خوش حال کنه.

مشکلم برطرف شد

فقط یه سوال دیگه این y  و x و z  که بهمون میده به درجه است؟ :nemidoonam:

اگه بخوایم مسافت طی شده از یک مکان تا مکان دیگه ای داشته باشیم باید از چه سنسور و کدی استفاده کنیم؟

[Moien1 2]

احساس میکنم دقیق متوجه نشدید که من چی میخوام.   

 

یه نگا هی به بازی labyrinth بندازید متوجه میشید. 

 

میخوام وقتی موبایل کج میکنم بگه چند درجه کج شده.

[Moien1 2]

دقیقا الآن متوجه نشدید من چی میگم؟ یا دلیل دیگه ای داره ؟ اگه ابهامی هست بگید من بیشتر توضیح بدم.

[پژمان نیکروان 6,055]

برادر شما صبور باشید ، منم این تاپیکو ندیده بودم.

http://answercenter.ir/topic/2293-%D8%B3%D9%86%D8%B3%D9%88%D8%B1-%D9%87%D8%A7/

اینو نگاه کنید ، همون x , y ,z گوشی رو نشون میده.

یعنی گوشی رو سمت راست و چپ کج میکنید مقدار نشون میده و به سمت عقب و جلو هم بیارید نشون میده.

 

اگه متوجه نشدید بگید تا چیزی آماده بکنیم.

[Moien1 2]

با سپاس فراوان از تمامی دوستان، واقعا خوش حال شدم که جواب دادین

الآن این کد من کجاش ایراد دار که صفحه خالیه:

 

ببخشید نمیدونم چرا این جوری شد

رنگ ها اشتباه شده ،شما به کد توجه کنید

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: True
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	Dim p As PhoneAccelerometer
'	Dim label1 As Label
'	Dim label2 As Label
'	Dim label3 As Label
	Private Label1 As Label
	Private Label2 As Label
	Private Label3 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("luyout1")	
	Dim p As PhoneAccelerometer
	
	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub p_AccelerometerChanged (X As Float, Y As Float, Z As Float)
      Label1.text=x
      Label2.text=y
      Label3.text=z
End Sub

[Nemesis 1,846]

در activity create

	p.StartListening("p")

اضافه کنید

[nany12 623]

تایپیک رو دیدم

فقط میتونی مثال بزنی باید برای لبیل ها چی نوشت؟

[پژمان نیکروان 6,055]

تایپیک رو دیدم

فقط میتونی مثال بزنی باید برای لبیل ها چی نوشت؟

هیچی ... x رو مساوی لیبل بکنید همین!

Sub p_AccelerometerChanged (X As Float, Y As Float, Z As Float)
    label1.text=x
label2.text=y
label3.text=z
End Sub

مبینید که با حرکت دادن زاویه های گوشی مقدارش تو لیبل نشون داده میشه.