رفتن به مطلب
  • 0

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


Moien1

سوال

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

13 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

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

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

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

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

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

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

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

خدایا شکرت

 

سلام

 

 

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

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

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

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

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

 

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

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

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

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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

 

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

 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

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

 

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

 

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

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

#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


لینک ارسال
به اشتراک گذاری در سایت های دیگر

در activity create

	p.StartListening("p")

اضافه کنید

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...