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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مطلوب كود يقوم بعمل عداد count naden 5 186 13-10-16, 03:43 AM
آخر رد: الماجيك مسعد
  طلب.كود.ايقاف.البرنامج CLARO 7 193 10-07-16, 12:57 AM
آخر رد: CLARO
  كود ايقاف الماوس و الكيبورد mohamed haroon 9 685 14-09-15, 05:23 PM
آخر رد: mohamed haroon
Information [سؤال] يرجى المساعدة ضروري عداد وترقيم تلقائي بدر إشتية 2 552 16-02-15, 09:25 PM
آخر رد: الكاتب
  [VB.NET] إدراج عداد تناظري و عدادات أخرى firas 1 228 18-09-14, 09:59 PM
آخر رد: aladein
  كيف اسوي عداد hassan 2 452 23-07-14, 04:46 AM
آخر رد: hassan
  [سؤال] ايقاف تفعيل الفورم الاساسية عنداظهار فورم ثانية أبو الحسن 3 808 11-05-14, 01:56 PM
آخر رد: Sniper.ps
  [سؤال] ايقاف مؤقت للتحميل واستناف من حيث توقف ali.alfoly 5 1,257 11-03-14, 02:15 PM
آخر رد: أسامة
  [VB.NET] كيف اقدر اوجد مجموع الاعداد و عدد الا عداد فيListBox مبرمج مبتدأ 3 824 11-02-14, 07:46 AM
آخر رد: Genius Live
  عداد دقائق بالثانية ismail2012 3 942 10-11-13, 01:59 PM
آخر رد: سعود

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


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