رفتن به مطلب
بیسیک فور ایکس
  • اطلاعیه ها

    • H@mid.RS

      جذب نیرو   پنجشنبه, 10 فروردین 1396

      درود به دوستان عزیز به چند نفر مدیر برای بخش های php و گرافیک نیازمندیم درصورت تمایل درخواست خود را در پیام خصوصی بفرستید  
    • H@mid.RS

      تغییر نام کاربری   دوشنبه, 28 فروردین 1396

      درود دوستانی که نام کاربری انها با ایمل شان یکی بود تغییر کرد مثلا نام کاربری sss@tmail.com به sss تغییر کرد دوستانی که مشکل ورود دارند @ به بعد را پاک کنند
    • H@mid.RS

      کسب درآمد   پنجشنبه, 31 فروردین 1396

      دوستانی که میخواهند با انجمن خودشون همکاری کنند و از محیط انجمن درآمد کسب کنند به بنده پیام خصوصی بفرستند
    • H@mid.RS

      راه اندازی وبلاگ برای انجمن   دوشنبه, 18 اردیبهشت 1396

      درود به همه دوستان عزیز از این پس کاربران ویژه  - همکاران - و مدیران میتوانند در انجمن برای خود وبلاگ بسازند
  • 0
meisam133

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

سوال

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

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


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

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

Recommended Posts

  • 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

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


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

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



Timer.Enabled = False

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


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

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

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


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

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

با این صورت

Dim med As MediaPlayer
Dim t As Timer

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

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

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


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

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

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

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

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

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

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

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

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

×