منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : اريد تشغيل شرط if لو متغير رقم" 0" خلال دقيقتين انو ينفذ امر كذا
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
لو بدي اعمل امر انو لو المتغير ما تغير خلال دقيقتين انو يشغل امر تاني 
صفر هو المتغير لو بقى صفر ل دقيتين انو يشغل اللون الاحمر 
0 صفر بتغير كل شوي لو ما تغير انو يشتغل اللون الاحرم 
If P33.Text = "0" Then
P33.BackColor = Color.Red
' Console.Beep(4000, 1000)
end if

 وشكرا اكتير الكم 
قم بإنشاء إداء
Timer

قم بجعل خصائصه كالتالى
PHP كود :
Enabled True
Interval 
120000 

وضع الكود التالى فى الفورم
كود :
       If TextBox1.Text = Nothing Or TextBox1.Text = "0" Then
           TextBox1.BackColor = Color.Red
       Else
           Timer1.Stop()
       End If

تحياتى لك
وتمنياتى لك التوفيق
(21-07-18, 10:51 PM)elgokr كتب : [ -> ]
قم بإنشاء إداء
Timer

قم بجعل خصائصه كالتالى
PHP كود :
Enabled True
Interval 
120000 

وضع الكود التالى فى الفورم
كود :
   Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
       If TextBox1.Text = 0 Then
           MsgBox("Hello..")
       Else
           Timer1.Stop()
       End If
   End Sub

تحياتى لك
وتمنياتى لك التوفيق
 اخي مشكو بس انا كان قصدي انو صفر بتغير لو ما تغير خلال دقيقتين يبقى يشتغل الامر التاني 

 لو ما فهمتني قلى ونا بوضوح الموضوع
(21-07-18, 10:56 PM)kalshsami كتب : [ -> ] اخي مشكو بس انا كان قصدي انو صفر بتغير لو ما تغير خلال دقيقتين يبقى يشتغل الامر التاني 

 لو ما فهمتني قلى ونا بوضوح الموضوع

طبقاً لما فهمته وضعت لك الكود

ومن حيث الصفر هو طبقاً لشرحك
فكل ما عليك فعله هو تغيير القيمة والشرط طبقاً لما تريد التحقق منه
وبدلاً من 
كود :
MsgBox("Hello..")

قم بوضع الكود المطلوب تنفيذه اذا تحقق بان القيمة 
كما هى لا تتغير اى 0 كما انت وضحت فى الموضوع

تحياتى لك
وتمنياتى لك التوفيق
اخي مع الاسف ما زبط انا راح اشرح كمان مرخ 
انا عندي دالة بتعطي نتيجية من 0 ل 100 لو الصفر ضلو ادقيقه او اكتر معنتو فى فصل صار او خلل 
المهم اخي انا بدي حركة او دالة تفيد انو لو الصفر ما تغير وضلو لمد ة معينة انو فى صار خلل 
يارب اكون شرحتلك بشكل كافى وشكرا لك 


https://up.top4top.net/del18ceb6390cca6a6cb6866fab70f88815.html
اتمنى ما فى المرفقات هو ملخص عملى لما تريده تماماً

صورة توضيح للبرنامج

صورة عند انتهاء الوقت

وصورة فى حالة تغيير اى قيمة من TextBox

بمجرد الكتابة يتم تغيير اللون الى اللون الافتراضي
طبعاً يمكنك التحكم فى الالوان كمثال جعله اللون الاخضر وما شبه

طبعاً يمكنك تجاهل هذا الجزء (انا قمت بوضعه شكلياً فقط)

مرفق بالمرفقات سورس + برنامج
السورس(2015)

اتمنى هذا ما تريده
واتمنى ان تصل لك فكرة الكود كاملاً

وبالنهاية لا تنسي تغيير المدة المطلوبة من خلال الاسطر التالية
كود :
   Private i As Integer = 10
   Private ii As Integer = 10
حيث ان 1 = ثانية واحدة ولاتمام عمل دقيقتين فعليك كتابة 120 بكلاهما بدلاً من 10

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

انا وضعت المدة فى التايمر 5 ثوانى حتى تظهر النتائج بسرعة يمكنك ان تغيرها لما تريد 
انا وضعت 3 احتمالات للتوضيح
1- ان تكون القيمة = صفر و لكن قبل المدة المحددة اللون أحمر خفيف
2- ان تكون القيمة = صفر و الوقت أكثر من  المدة المحددة اللون أحمر 
3- ان تكون القيمة <> صفر اللون أخضر خفيف
يمكنك ان تعدل ما تشاء