تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
استخدام التايمر
#1
السلام عليكم
اريد اسوي تايمر عبارة عن ساعة ودقايق وثواني من ينتهي الوقت ينغلق الفورم
يعني يضهر للمستخدم عبارة عن ساعة تنازلية مثل ثلاث ساعات وقبل انتهاء الوقت قبل عشرة دقائق
يضهر رسالةتحذيرة
ممكن المساعدة
وخاصتا من الاخ vb.net
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

وجدت كلاس بالانترنت مرفقة تحت

طريقة الاستخدام:
PHP كود :
Public Class Form1
    
'يحتوي علي الزمن المطلوب timeSpan الكلاس يحتاج لمتغير من نوع 
    ' 
مثلا هنا يبدأ العداد التنازلي من ثلاثة ساعة
    Dim ts 
As New TimeSpan(300)

 
   ' نسخة من كلاس العداد التنازلي مع أحداثها
    ' 
لأنها تحتوي علي حدث مهم وهو أداة التايمر
    Dim WithEvents cd 
As New CountDown

    Private Sub Button1_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click

        
'له timeSpan تجهيز العداد بعد اسناد  
        cd.SetTime(ts)

        ' 
بدأ العداد
        cd
.Start()

 
   End Sub

    Private Sub Button2_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click
        
' إيقاف العداد
        cd.Pause()
    End Sub


    ' 
عند أخذ نسخة منه كما هو مبين فوق WithEvents هذا الحدث خاص بكلاس العداد التنازلي لا يظهر إلي بإضافة الكلمة 
    Private Sub cd_Tick
(ByVal sender As ObjectByVal e As System.EventArgsHandles cd.Tick
        
' إظهار تقدم العداد 
        Me.Label1.Text = String.Format("{0:00}:{1:00}:{2:00}", cd.Hours, cd.Minutes, cd.Seconds)

        ' 
إظهار تحذير إذا وصل العداد للدقيقة العاشرة
        
' نكتفي هنا بتغيير لون نص الأداة للون الأحمر
        If Label1.Text = "00:10:00" Then
            Label1.ForeColor = Color.Red
        End If

    End Sub


End Class 
[ltr]


الملفات المرفقة
.rar   CountDown.rar (الحجم : 1.38 ك ب / التحميلات : 37)
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#3
(24-09-14, 11:44 AM)kslawy كتب : السلام عليكم ورحمة الله وبركاته

وجدت كلاس بالانترنت مرفقة تحت

طريقة الاستخدام:

PHP كود :
Public Class Form1
    
'يحتوي علي الزمن المطلوب timeSpan الكلاس يحتاج لمتغير من نوع 
    ' 
مثلا هنا يبدأ العداد التنازلي من ثلاثة ساعة
    Dim ts 
As New TimeSpan(300)

 
   ' نسخة من كلاس العداد التنازلي مع أحداثها
    ' 
لأنها تحتوي علي حدث مهم وهو أداة التايمر
    Dim WithEvents cd 
As New CountDown

    Private Sub Button1_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click

        
'له timeSpan تجهيز العداد بعد اسناد  
        cd.SetTime(ts)

        ' 
بدأ العداد
        cd
.Start()

 
   End Sub

    Private Sub Button2_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click
        
' إيقاف العداد
        cd.Pause()
    End Sub


    ' 
عند أخذ نسخة منه كما هو مبين فوق WithEvents هذا الحدث خاص بكلاس العداد التنازلي لا يظهر إلي بإضافة الكلمة 
    Private Sub cd_Tick
(ByVal sender As ObjectByVal e As System.EventArgsHandles cd.Tick
        
' إظهار تقدم العداد 
        Me.Label1.Text = String.Format("{0:00}:{1:00}:{2:00}", cd.Hours, cd.Minutes, cd.Seconds)

        ' 
إظهار تحذير إذا وصل العداد للدقيقة العاشرة
        
' نكتفي هنا بتغيير لون نص الأداة للون الأحمر
        If Label1.Text = "00:10:00" Then
            Label1.ForeColor = Color.Red
        End If

    End Sub


End Class 
[ltr]
كالله فيك وجعله في ميزان حسناتك بس ممكن اكدر اخلي المستخدم يتحكم بوقت التايمر 
واكون شاكر الك 
وشكرا مقدما 
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم ورحمة الله وبركاته

تم تعديل المثال ليتحكم المستخدم بواسطة أداة الـ NumericUpDown  لتحديد الوقت المطلوب

المثال بفيجوال بيسك 2010


الملفات المرفقة
.rar   CountDown.rar (الحجم : 54.16 ك ب / التحميلات : 43)
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] ايقاف التايمر باستخدام زر السبيس Mohammed.hasan96 2 86 28-08-17, 04:19 AM
آخر رد: Mohammed.hasan96
  [VB.NET] كيف اوقف التايمر بعد تحديد الكل في listbox ? e-coder 9 214 31-07-17, 01:53 AM
آخر رد: ابو ليلى
  المساعدة حول طريقة استخدام Run as Date ddemed 2 129 11-06-17, 09:13 PM
آخر رد: عبدالرحمن المكاوي
  [VB.NET] مشكلة تهنيج الفورم اثناء تشغيل التايمر e-coder 0 131 02-06-17, 06:01 PM
آخر رد: e-coder
  [VB.NET] كيفية اضافة change password بدون استخدام الكنترول ؟ ahmednab 1 407 26-05-17, 06:57 PM
آخر رد: النسر79
  [VB.NET] طريقة منع استخدام form1 بعد فتح form2 abomo3ath 3 184 19-04-17, 10:56 AM
آخر رد: عبـدالله
  [VB.NET] سؤال عن استخدام e.HasMorePages = True ssayed111 1 139 18-04-17, 04:26 PM
آخر رد: عبـدالله
  [سؤال] كيف يمكنني استخدام متغير لمناداة اي اداة اليوم مبتدئة وغداً محترفة 3 264 04-02-17, 09:57 PM
آخر رد: عبد الرحمن
  خطأ بعد استخدام العمل في الخلفية أسامة السالمي 2 247 17-12-16, 02:20 PM
آخر رد: أسامة السالمي
  [VB.NET] كيفية استخدام مكتبة TLSharp الماجيك مسعد 5 439 13-12-16, 03:55 AM
آخر رد: الماجيك مسعد

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


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