Welcome to بیسیک فور ایکس

Register now to gain access to all of our features. Once registered and logged in, you will be able to contribute to this site by submitting your own content or replying to existing content. You'll be able to customize your profile, receive reputation points as a reward for submitting content, while also communicating with other members via your own private inbox, plus much more! This message will be removed once you have signed in.

  • 0
meisam133

متوقف کردن تایمر در اکتیویتی

سوال

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

  • 0

منظور دوست عزیزمون اینه که اگه 10 ثانیه شد تایمر متوقف بشه


خوب کاری نداره


سرعت تایمر رو 1000 ملی ثانیه بذار یعنی 1 ثانیه


بعد ی int تعریف کن تا با هر یک ثانیه به اینتمون 1 اضافه بشه تا برسه به ده و وقتی رسید به ده پیام میده و متوقف میشه و با زدن دکم ادامش میره


حالا شما می تونید ی دکمه هم بذارید برا متوقف شدن


کل مثال به صورت زیر :



Sub Process_Globals
 Dim t As Timer
End Sub

Sub Globals
    Dim a=0 As Int
    Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout(1)
    t.Initialize("t",1000)
    t.Enabled=True
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub t_tick

a = a +1
Log(a)
If a=10 Then
    Log("ده ثانیه شد و تایمر متوقف شد.")
    t.Enabled=False
    
End If
End Sub

Sub Button1_Click
    t.Enabled=True

End Sub

پروژه هم پیوست شد براتون


 


timer.zip

پسند شده توسط nasim

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


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

  • 0

برای توقف همون طور که سید گفتن از کد زیر استفاده کنید :



Timer.Enabled = False

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


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

  • 0

نه منظورم این بود که تایمر رو تا یه ثانیه ای که پیش میره متوقفش کنیم با زدن یک دکمه بعد که دوباره رو همون دکمه کلیک کردیم ادامه ی ثانیه ها طی بشه

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


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

  • 0

شما اولش یه متد تعریف میکنی که مطمئنا داری

با این صورت

Dim med As MediaPlayer
Dim t As Timer

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

Sub Button2_Click
	t.Enabled=False
	med.Pause
End Sub

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


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

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !


ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

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


ورود به حساب کاربری