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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة عمل عداد لمستخدمين البرنامج YousefOkasha 4 90 16-06-18, 04:14 AM
آخر رد: elgokr
  كود ايقاف تشغيل المراقبه للكاميرا والعوده لحالة العرض aden 1 70 01-05-18, 12:57 PM
آخر رد: عبدالله الدوسري
  ايقاف filter بالداتا جريد فيو الو0 2 88 27-04-18, 06:13 AM
آخر رد: الو0
  [سؤال] تعديل اسم مستخدم قاعدة البيانات ( ايقاف و تفعيل المستخدم ) عماد البشبيشى 4 293 14-11-17, 02:29 PM
آخر رد: عماد البشبيشى
  [vb6.0] ايقاف التايمر باستخدام زر السبيس Mohammed.hasan96 2 207 28-08-17, 04:19 AM
آخر رد: Mohammed.hasan96
  بوتن ايقاف BackgroundWorker rabeh.ram 17 639 23-06-17, 11:39 AM
آخر رد: rabeh.ram
Question ايقاف البرنامج من الادمن [email protected] 3 320 09-06-17, 04:47 AM
آخر رد: عبدالرحمن المكاوي
  [سؤال] طريقة عمل فاصل زمني بين كودين thevest_knight 7 555 27-01-17, 07:03 PM
آخر رد: thevest_knight
  [سؤال] كيف يمكنني ايقاف صوت تحميل الصفحة في WebBrowser ali.alfoly 2 533 16-12-16, 06:34 PM
آخر رد: ali.alfoly
  [سؤال] مطلوب كود يقوم بعمل عداد count naden 5 696 13-10-16, 03:43 AM
آخر رد: الماجيك مسعد

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


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