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

[m3r 7]

سلام

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

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

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

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

[محمد رشوند 1,208]

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

Down button and counter.zip

پسورد : www.answercenter.ir

[Negan 1,300]

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

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

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

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

[m3r 7]

ممنون

واسه اون تاخیر راهی سراغ ندارید?

نمیخوام از تایمر استفاده کنم!!!

[shahab.es 5,429]

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

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

'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

[m3r 7]

سلام

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

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

[محمد رشوند 1,208]

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

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

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

Sub tick_Tick
	a=a+1
	Label1.Text="ADAD #"&a
End Sub

[m3r 7]

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

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

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

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

[محمد رشوند 1,208]

@@m3r,

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

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

[m3r 7]

ممنون از لطفتون

مشکل حل شد

پس نیازی به شرط do while نیست!!