تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] عداد زمني وفيه زر ايقاف
#1
السلام عليكم
أنا أقوم بإنشاء برنامج عبارة عن عداد زمني وفيه زر ايقاف وزر تشغل ولك اريد كود يقوم بإيقاف المؤقت عند توقف الماوس لمدة معينة
أرجو الرد
الرد
تم الشكر بواسطة:
#2
السلام عليكم أخي العزيز ورحمة الله وبركاته
نرجو منك أخي العزيز وضع مثال صغير للتعديل عليه وشكرا
إسرائيل إلى زوال ...  وسوف تثبت الأيام ذلك ... قريباً إن شاء الله.
الرد
تم الشكر بواسطة:
#3
تفضل اخي هذا هو البرنامج
https://www.dropbox.com/s/e9o5gtj7vxh2w7...7.rar?dl=0
الرد
تم الشكر بواسطة:
#4
up up up up up
الرد
تم الشكر بواسطة:
#5
(20-02-16, 06:22 AM)saadhod كتب : تفضل اخي هذا هو البرنامج
https://www.dropbox.com/s/e9o5gtj7vxh2w7...7.rar?dl=0


تفضل أخى كودك بعد التعديل 


PHP كود :
   'Private LastMoveTime As DateTime
    Private MilliSecondsFromLastMove As Integer = 0
    Private MouseTimeoutMilliseconds As Integer = 2000 '
500
    Private Sub Button1_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Btn_Start.Click
        MilliSecondsFromLastMove 
0
        Timer1
.Start()
 
   End Sub

    Private Sub Button2_Click
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Btn_Stop.Click
        Timer1
.Stop()
 
   End Sub

    Private Sub Timer1_Tick
(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Timer1.Tick
        If MilliSecondsFromLastMove 
>= MouseTimeoutMilliseconds Then Timer1.Stop()

 
       Timer1.Interval 10
        Label4
.Text += 1
        MilliSecondsFromLastMove 
+= 100
        If Label4
.Text "60" Then
            Label3
.Text += 1
            Label4
.Text "00"
 
       End If
 
       If Label3.Text "60" Then
            Label2
.Text += 1
            Label3
.Text "00"
 
       End If
 
       If Label2.Text "60" Then
            Label1
.Text += 1
            Label2
.Text "00"
 
       End If
 
   End Sub

    Private Sub Form1_MouseMove
(sender As System.ObjectAs System.Windows.Forms.MouseEventArgsHandles MyBase.MouseMove
        MilliSecondsFromLastMove 
0
    End Sub 
الرد
تم الشكر بواسطة:
#6
مشكوووووور أخي الكريم فضلت على راسي بس أخي كيف بحدد مددة توقف الماوس؟؟
الرد
تم الشكر بواسطة:
#7
هذا السطر يحدد المدة التى يتوقف عندها العداد

Private MouseTimeoutMilliseconds As Integer = 2000 '500

كل 1000  يساوى ثانيه واحده
الرد
تم الشكر بواسطة:
#8
اخي وضعت الكود لكن العداد يتوقف حتى ولو كانت الماوس تتحرك
الرد
تم الشكر بواسطة:
#9
ربما ان الوقت صغير جدا
لان الرقم الموجود فى المثال المرفوع 500 اى انه نصف ثانية و لذلك يتوقف الكود بمجرد البدء

حاول زيادة الوقت


ان لم ينفع ارفع البرنامج
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Photo [VB.NET] كود عداد داخلي لتاريخ انتهاء النظام ؟ Ebrahim5556 3 123 31-10-18, 01:21 AM
آخر رد: عبد العزيز البسكري
  [VB.NET] عمل عداد تنازلي Simo1991 1 157 25-09-18, 05:06 PM
آخر رد: ابراهيم ايبو
  عمل ايقاف مؤقت للتحميل ابو روضة 6 262 27-08-18, 08:43 AM
آخر رد: elgokr
  ايقاف تشغيل جدار الحمايه ابو روضة 12 462 07-08-18, 01:39 AM
آخر رد: ابو روضة
  طريقة عمل عداد لمستخدمين البرنامج YousefOkasha 17 698 22-06-18, 03:35 PM
آخر رد: elgokr
  كود ايقاف تشغيل المراقبه للكاميرا والعوده لحالة العرض aden 1 140 01-05-18, 12:57 PM
آخر رد: عبدالله الدوسري
  ايقاف filter بالداتا جريد فيو الو0 2 212 27-04-18, 06:13 AM
آخر رد: الو0
  [سؤال] تعديل اسم مستخدم قاعدة البيانات ( ايقاف و تفعيل المستخدم ) عماد البشبيشى 4 553 14-11-17, 02:29 PM
آخر رد: عماد البشبيشى
  [vb6.0] ايقاف التايمر باستخدام زر السبيس Mohammed.hasan96 2 321 28-08-17, 04:19 AM
آخر رد: Mohammed.hasan96
  بوتن ايقاف BackgroundWorker rabeh.ram 17 1,014 23-06-17, 11:39 AM
آخر رد: rabeh.ram

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


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