تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشكلة بسيطة جداً بموقت timer
#1
سلام عليكم
واجهتني مشكلة بسيطية
وهي كالتالي:
عند الضغط ع بوتين ايقاف تايمر يرجع من حيث توقف
ولكن اريد عند الضغط ع زر بوتين التوقف والبدء من الصفر
وسوف اوضح سؤوالي بالاكواد
والرجاء مساعدتي وشكراً
كود :
Public Class Form1
   Dim second As Integer
  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
[size=small]    Timer1.Interval = 1000[/size]

[size=small][/size][size=small]        Timer1.Start() 'Timer starts functioning[/size]
[size=small][/size]
    End Sub


[size=small]  [/size]
[size=small][font=Monaco, Consolas, Courier, monospace]  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click[/font][/size]
[size=small]  [/size]
[size=small][/size]
[font=Monaco, Consolas, Courier, monospace][size=small][/size][/font]
 Timer1.Stop()
[font=Monaco, Consolas, Courier, monospace][size=small][/size][/font]
[size=small][font=Monaco, Consolas, Courier, monospace]    End Sub[/font][size=small] [/size][/size]

   Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
       Label1.Text = DateTime.Now.ToString

       second = second + 1
       If second >= 10 Then
           Timer1.Stop() 'Timer stops functioning
  Label1.Text = "timer stopped"
       End If


   End Sub

End Class
الرد
تم الشكر بواسطة:
#2
الكود فيه بعض اللخبطة و مش واضح
لكن ما فهمته انك تريد أن تبدأ التايمر بالضغط علي باتون ثم و عندما تصل الثواني لعدد معين يتم إيقاف التايمر
ان كان هذا طلبك رجاء التأكيد علي ذلك

عموما بشكل مبدئي نفذ الكود التالي

و لتنفيذ الكود افتح فورم ضع عليه باتون و label و اضف له تايمر


PHP كود :
Public Class Form1

    Private count 
As Integer 0
    Private Sub Timer1_Tick
(sender As ObjectAs EventArgsHandles Timer1.Tick
        count 
+= 1
        Label1
.Text count.ToString
        If count 
>= 100 Then
            Timer1
.Enabled False
            Timer1
.Stop()
 
           count 0
            Label1
.Text count.ToString
        End 
If
 
   End Sub

    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        Timer1
.Enabled True
        Timer1
.Start()
 
   End Sub
End 
Class 
الرد
تم الشكر بواسطة: 3asfa~mdmra
#3
تمام وهو المطلوب
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة في open file dailog nnnnn 2 72 منذ 3 ساعة مضت
آخر رد: اسامه الهرماوي
  [سؤال] استفسار عن مشكلة في كود لايجاد العملاء الغير موجودين بجدول الدفع ahmedmansour 20 671 منذ 7 ساعة مضت
آخر رد: ahmedmansour
  مشكلة عند تنصيب فيجوال بيسك 2013 Mohamed Magdy 9 97 اليوم, 03:39 AM
آخر رد: elgokr
  [VB.NET] مشكلة عدم ظهور كريستال ريبورت في فجول 2013 عبدالرحمن بشري عمر 9 73 اليوم, 03:31 AM
آخر رد: عبد العزيز البسكري
  مشكلة فى تعطيل زر الحفظ سمير جمال 7 114 15-11-18, 07:02 PM
آخر رد: elgokr
  مشكلة ايجاد قاعدة البيانات m.reyati 5 86 13-11-18, 02:06 AM
آخر رد: mero5000
  [VB.NET] مشكلة في برنامج متعدد اللغات ay.alhaj 12 250 12-11-18, 03:30 AM
آخر رد: ay.alhaj
  حل مشكلة عدم تثبيت برنامجي hamadz 4 101 11-11-18, 02:29 PM
آخر رد: elgokr
  مشكلة في الكرستل ريبورت hassan 14 1 55 11-11-18, 02:15 PM
آخر رد: elgokr
  مشكلة التكرار في الكريستل ريبورت makky 6 113 09-11-18, 01:30 PM
آخر رد: makky

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم