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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] تعديل اسم مستخدم قاعدة البيانات ( ايقاف و تفعيل المستخدم ) عماد البشبيشى 4 210 14-11-17, 02:29 PM
آخر رد: عماد البشبيشى
  [vb6.0] ايقاف التايمر باستخدام زر السبيس Mohammed.hasan96 2 154 28-08-17, 04:19 AM
آخر رد: Mohammed.hasan96
  بوتن ايقاف BackgroundWorker rabeh.ram 17 552 23-06-17, 11:39 AM
آخر رد: rabeh.ram
Question ايقاف البرنامج من الادمن [email protected] 3 240 09-06-17, 04:47 AM
آخر رد: عبدالرحمن المكاوي
  [سؤال] طريقة عمل فاصل زمني بين كودين thevest_knight 7 473 27-01-17, 07:03 PM
آخر رد: thevest_knight
  [سؤال] كيف يمكنني ايقاف صوت تحميل الصفحة في WebBrowser ali.alfoly 2 434 16-12-16, 06:34 PM
آخر رد: ali.alfoly
  [سؤال] مطلوب كود يقوم بعمل عداد count naden 5 608 13-10-16, 03:43 AM
آخر رد: الماجيك مسعد
  طلب.كود.ايقاف.البرنامج CLARO 7 490 10-07-16, 12:57 AM
آخر رد: CLARO
  كود ايقاف الماوس و الكيبورد mohamed haroon 9 1,410 14-09-15, 05:23 PM
آخر رد: mohamed haroon
Information [سؤال] يرجى المساعدة ضروري عداد وترقيم تلقائي بدر إشتية 2 856 16-02-15, 09:25 PM
آخر رد: الكاتب

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


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