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

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


m3r

سوال

سلام

من یه برنامه به این شکل نوشتم که تا زمانی که دست روی باتن قرار داره یکی یکی به مقدار a اضافه کنه ولی وقتی برنامه رو اجرا میکنم اصلا باتن کار نمیکنه!!

Sub Button1_click	
	Do While Button1_click	
		a=a+1		
	Loop
End Sub

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

و سوال بعدی اینه که میخوام مثلا با تاخیر 100 میلی ثانیه به مقدار a اضافه شه (من واسه میکرو برنامه مینویسم اونجا یه دستور تاخیر داریم که پردازنده رو درگیر یه سری سیکل محاسباتی میکنه که تاخیر مورد نظر ایجاد بشه) تو برنامه نویسی اندروید بدون استفاده از تایمر میشه این تاخیر رو ایجاد کرد؟

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

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

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

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

Down button and counter.zip

پسورد : www.answercenter.ir

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

خب رویدادی که بعد دو وایل گذاشتین مربوط به کلیک کردن هستش

پس این فقط یک بار مقدار رو به a اضافه میکنه

اما میتونید رویداد down براش بزارید به این صورت 

Sub Button1_down	
	Do While Button1_down	
		a=a+1		
	Loop
End Sub

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

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

کد رو تست نزدم خودم

'activty create'
dim t as timer
t.initilize("t",100)

Sub Button1_down	
	Do While Button1_down	
                t.enabled = true		
	Loop
End Sub

sub t_tick
a=a+1
end sub

sub Button1_up
t.enabled = false
end sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام

این کدی که من طبق برنامه ای شما زحمتش رو کشیدید نوشتم ولی باز هم کلید هیچ عکس العملی نشون نمیده!! یعنی اصلا حالتی که کلید رو فشار داده باشم نشون نمیده!!

Sub Process_Globals
	Dim t As Timer
End Sub

Sub Globals
	Private Label1 As Label
	Dim a As Int
	Dim str As String
	Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
	t.Initialize("tick" ,100)
End Sub


Sub Button1_down
	
	Do While Button1_down
	t.enabled=True			
	str=a
		
	Loop
	
End Sub

Sub Button1_up	
		t.enabled=False	
End Sub


Sub tick_Tick
	a=a+1
	Label1.Text=str	
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

@@m3r, شما اومدی متغییر عددی a رو ریختی تو متغییر رشته ای str بعد داخل ساب تیک گفتی هر بار که تیک خورد ثانیه شمار بیاد متغییر  str رو بریزه تو لیبل

مستقیم a رو بریزین تو لیبل

این سابت اینطوری میشه

Sub tick_Tick
	a=a+1
	Label1.Text="ADAD #"&a
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

ممنون از راهنماییتون

من فک میکردم تو لیبل فقط میشه متغیر از نوع استرینگ رو نمایش داد!

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

بازم جواب نمیده!

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

@@m3r,

من تست نکردم تست میکنم بهت جواب میدم اگر دوستان دیگه زود تر جواب دادن که چه عالی

نه متغییر عددی هم مستقیم میشه ریخت داخلش اما اول تبدیل به استرینگ بشه بهتره چون بعدا مشکلاتی به وجود میاره مثلاً اگر اعداد زیاد باشه برنامه سرعتش فوق الاده میاد پایین چون مستقیم اعداد رو داخل مقدار یک شیء میرزه اما اگه رشته باشه تا هر چقدر هم پیش بره مشکلی نداره

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

بایگانی شده

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

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

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