تقييم الموضوع :
  • 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 اى انه نصف ثانية و لذلك يتوقف الكود بمجرد البدء

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  عمل ايقاف مؤقت للتحميل ابو روضة 6 160 27-08-18, 08:43 AM
آخر رد: elgokr
  ايقاف تشغيل جدار الحمايه ابو روضة 12 333 07-08-18, 01:39 AM
آخر رد: ابو روضة
  طريقة عمل عداد لمستخدمين البرنامج YousefOkasha 17 528 22-06-18, 03:35 PM
آخر رد: elgokr
  كود ايقاف تشغيل المراقبه للكاميرا والعوده لحالة العرض aden 1 115 01-05-18, 12:57 PM
آخر رد: عبدالله الدوسري
  ايقاف filter بالداتا جريد فيو الو0 2 152 27-04-18, 06:13 AM
آخر رد: الو0
  [سؤال] تعديل اسم مستخدم قاعدة البيانات ( ايقاف و تفعيل المستخدم ) عماد البشبيشى 4 426 14-11-17, 02:29 PM
آخر رد: عماد البشبيشى
  [vb6.0] ايقاف التايمر باستخدام زر السبيس Mohammed.hasan96 2 256 28-08-17, 04:19 AM
آخر رد: Mohammed.hasan96
  بوتن ايقاف BackgroundWorker rabeh.ram 17 770 23-06-17, 11:39 AM
آخر رد: rabeh.ram
Question ايقاف البرنامج من الادمن lval6402@gmail.com 3 391 09-06-17, 04:47 AM
آخر رد: عبدالرحمن المكاوي
  [سؤال] طريقة عمل فاصل زمني بين كودين thevest_knight 7 674 27-01-17, 07:03 PM
آخر رد: thevest_knight

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


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