منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
أمر يضغط البتن - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=14954)

الصفحات: 1 2

أمر يضغط البتن - adel27 - 01-03-16

السـلام عليكم ورحمة الله وبركاته 

محتاج أمر  يضغط على زر بتن موجود في برنامجي  في وقت معين كل يوم  عمل هذا الزر يقوم بعمل نسخه أحتياطيه للبرنامج

RE: أمر يضغط البتن - LoveVb - 01-03-16

وعليكم السلام ورحمة الله وبركاتة
تفضل
Button1.PerformClick()
ضعه في الحدث Timer_Tick وحدد interval مدة تنفيذ الكود حيث ال 1000 = ثانيه
او تضع الاكواد الموجودة في الزر في sub وتقوم باستدعائه

RE: أمر يضغط البتن - adel27 - 01-03-16

أول شي أشكرك على مرورك 
ثـاني شـي يا عزيزي 
أنا وضعت timer 
أنا محتـاج البتن هذا تتفعل خاصية كليك كل يوم السـاعه فرضاً 4 العصر
كرماً لا أمراً توضح لي في المثال المرفق 

[attachment=9632]

RE: أمر يضغط البتن - Fantastico - 02-03-16

فقط أضف الكود التالي الى مشروعك
عند بداية تشغيل البرنامج (Load) يقوم بحساب الزمن المتبقي عن الموعد (الرابعة عصرا مثلا) ويضعه في (Timer1.Interval)
يمكنك ان تضع نفس الكود في حدث (Tick) للمؤقت لكي يعيد حساب الفترة المقبلة حتىى تتكرر العملية في كل رابعة عصرا
يمكنك تغيير الموعد الى اي وقت من اليوم تريده من خلال المتغير (TimeToClick) الواضح في الكود

PHP كود :
   Dim TimeToClick As New TimeSpan(16, 0, 0) 'الرابعة عصرا
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
          
        Dim ts As Long = (TimeToClick.Ticks - Now.TimeOfDay.Ticks)
        If ts < 0 Then ts = ts + TimeSpan.TicksPerDay

        Timer1.Interval = ts / 10000
        Timer1.Start()
    End Sub
     

سامحنا ان وجدت أخطاء

RE: أمر يضغط البتن - adel27 - 02-03-16

أشكرك على مرورك أتمنى التوضيح على المثال ليتم التوضيح لي بشكل أفضل ولنفترض بأن العمل المطلوب منه أظهار مسج بكس كل يوم الساعه 12 ظهراً

RE: أمر يضغط البتن - Fantastico - 03-03-16

المسألة سهلة جدا
الرابعة عصرا (16,0,0)
الثانية عشرة ظهرا (12,0,0)
الثانية والنصف بعد الظهر (14,30,0)
الثانية عشرة ليلا (0,0,0)  .. وهكذا

المثال في المرفقات

RE: أمر يضغط البتن - adel27 - 03-03-16

الكود يعمل بالشكل الصحيح ألف شكر 
هل يعمل كل يوم هذا الكود ..؟

RE: أمر يضغط البتن - Fantastico - 03-03-16

لا شكر على واجب Smile

طبعا فهو يعتمد على الوقت فقط ولا يعتمد على التأريخ إطلاقا
اذن يعمل كل يوم
حتى وان استمر البرنامج بالعمل لأكثر من 24 ساعة

RE: أمر يضغط البتن - adel27 - 04-03-16

أذن أذا أصبح البرنامج شغال 48 ساعه يرسل الرساله مرتين ..؟
أو مره وحده فقط ..؟

RE: أمر يضغط البتن - hassan - 04-03-16

(04-03-16, 01:08 AM)adel27 كتب : أذن أذا أصبح البرنامج شغال 48 ساعه يرسل الرساله مرتين ..؟
أو مره وحده فقط ..؟

بعد اذن الاخوان


اخي لماذا لا تقرا الكود افضل لك 

لان لو ما قريه وقعدت تسال ما راح تستفيد طول عمرك ولا راح  تتعلم شوف الكود وش يتكون منه وراح تعرف هل هو يتكرر مره واحده او مرتين او ... الى اخره

صدقني ما راح تتعلم اذا بس تنسخ كود وتلصقه حاول كل كود تشوفه عرف كل حرف وكل سطر ماذا يعمل عشان صدقني مع الوقت راح تحتاج طريقة في التايمر مثلا وراح تتذكر هاذا الكود وراح تنصع اشياء وطرق اخره



وشكرا