سورس کد کار با سنسور

[movaffag 67]

با سلام

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

خودم هم تا دیروز دنبالش میگشتم

یه نمونه کد میزارم که خیلی کمکم کرد امیدوارم به شمام کمک کنه

SensorsExample.zip

*hendoone*

[armin black 25]

 

خیلی ممنون

 

[مجید آرتا 5,875]

 

 

خیلی ممنون

 

جهت تشکر کردن فقط میتونید از دکمه پسندیدم استفاده کنید در غیر این صورت اسپم محسوب میشه

امیدوارم که رعایت کنید

با تشکر

[abbas2142 557]

سلام

ببخشید من می خوام وقتی گوشی مثلا zش صفر شد یه پیغام بده

 

باید چی کار کنم ؟؟؟؟؟

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

 

سلام

ببخشید من می خوام وقتی گوشی مثلا zش صفر شد یه پیغام بده

 

باید چی کار کنم ؟؟؟؟؟

تعریف متغیر از نوع PhoneAccelerometer:

Dim p As PhoneAccelerometer

فعال کردن در قسمت اکتیویتی کریت و مشخص کردن اونت:

p.StartListening("p")

ایجاد ساب و گذاشتن شرط:

Sub p_AccelerometerChanged (X As Float, Y As Float, Z As Float)
	If Z=0 Then
	
	اتفاقی بیفته
	
	End If
End Sub

[abbas2142 557]

شرمنده دادا کار نکرد

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

شرمنده دادا کار نکرد

کار که میکنه

فقط ممکنه بعضی وقتا این Z عددش 0 نشه...

چون اینجوری میشه معمولا: 0.1 و...

یه لیبل بذار و Z رو تو لیبل نمایش بده خودت متوجه میشی که Z چی هست و تو چه مواقعی تغییر میکنه

[abbas2142 557]

خوب من لیبل رو گذاشتم ولی وقتی z صفر شد هیچ اتفاقی نیوفتاد

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

سورستو پیوست کن ، اگه من از سورست اشکال گرفتم چی؟

مگه داریم؟ مگه میشه یه همچین چیزی؟

سورست رو قرار بده چک کنم.