منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] عداد زمني وفيه زر ايقاف - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] عداد زمني وفيه زر ايقاف (/showthread.php?tid=14819)

عداد زمني وفيه زر ايقاف - saadhod - 20-02-16

السلام عليكم
أنا أقوم بإنشاء برنامج عبارة عن عداد زمني وفيه زر ايقاف وزر تشغل ولك اريد كود يقوم بإيقاف المؤقت عند توقف الماوس لمدة معينة
أرجو الرد

RE: كود ضروري جداً - saadhod - 20-02-16

تفضل اخي هذا هو البرنامج
https://www.dropbox.com/s/e9o5gtj7vxh2w7p/WindowsApplication7.rar?dl=0

RE: كود ضروري جداً - saadhod - 20-02-16

up up up up up

RE: كود ضروري جداً - mrnooo2000 - 21-02-16

(20-02-16, 06:22 AM)saadhod كتب : تفضل اخي هذا هو البرنامج
https://www.dropbox.com/s/e9o5gtj7vxh2w7p/WindowsApplication7.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.Object, ByVal e As System.EventArgs) Handles Btn_Start.Click
        MilliSecondsFromLastMove = 0
        Timer1.Start()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Stop.Click
        Timer1.Stop()
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 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.Object, e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        MilliSecondsFromLastMove = 0
    End Sub 


RE: كود ضروري جداً - saadhod - 21-02-16

مشكوووووور أخي الكريم فضلت على راسي بس أخي كيف بحدد مددة توقف الماوس؟؟

RE: كود ضروري جداً - mrnooo2000 - 21-02-16

هذا السطر يحدد المدة التى يتوقف عندها العداد

Private MouseTimeoutMilliseconds As Integer = 2000 '500

كل 1000  يساوى ثانيه واحده

RE: كود ضروري جداً - saadhod - 21-02-16

اخي وضعت الكود لكن العداد يتوقف حتى ولو كانت الماوس تتحرك

RE: كود ضروري جداً - mrnooo2000 - 22-02-16

ربما ان الوقت صغير جدا
لان الرقم الموجود فى المثال المرفوع 500 اى انه نصف ثانية و لذلك يتوقف الكود بمجرد البدء

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


ان لم ينفع ارفع البرنامج