+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] اريد تشغيل شرط if لو متغير رقم" 0" خلال دقيقتين انو ينفذ امر كذا (/showthread.php?tid=25822)
اريد تشغيل شرط if لو متغير رقم" 0" خلال دقيقتين انو ينفذ امر كذا - kalshsami - 21-07-18
لو بدي اعمل امر انو لو المتغير ما تغير خلال دقيقتين انو يشغل امر تاني
صفر هو المتغير لو بقى صفر ل دقيتين انو يشغل اللون الاحمر
0 صفر بتغير كل شوي لو ما تغير انو يشتغل اللون الاحرم
If P33.Text = "0" Then
P33.BackColor = Color.Red
' Console.Beep(4000, 1000)
end if
وشكرا اكتير الكم
RE: اريد تشغيل شرط if لو متغير رقم" 0" خلال دقيقتين انو ينفذ امر كذا - elgokr - 21-07-18
قم بإنشاء إداء
Timer
قم بجعل خصائصه كالتالى
PHP كود :
Enabled = True
Interval = 120000
وضع الكود التالى فى الفورم
كود :
If TextBox1.Text = Nothing Or TextBox1.Text = "0" Then
TextBox1.BackColor = Color.Red
Else
Timer1.Stop()
End Ifتحياتى لك
وتمنياتى لك التوفيق
RE: اريد تشغيل شرط if لو متغير رقم" 0" خلال دقيقتين انو ينفذ امر كذا - kalshsami - 21-07-18
(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
تحياتى لكوتمنياتى لك التوفيق
لو ما فهمتني قلى ونا بوضوح الموضوع
RE: اريد تشغيل شرط if لو متغير رقم" 0" خلال دقيقتين انو ينفذ امر كذا - elgokr - 21-07-18
(21-07-18, 10:56 PM)kalshsami كتب : اخي مشكو بس انا كان قصدي انو صفر بتغير لو ما تغير خلال دقيقتين يبقى يشتغل الامر التاني
لو ما فهمتني قلى ونا بوضوح الموضوع
طبقاً لما فهمته وضعت لك الكود
ومن حيث الصفر هو طبقاً لشرحك
فكل ما عليك فعله هو تغيير القيمة والشرط طبقاً لما تريد التحقق منه
وبدلاً من كود :
MsgBox("Hello..")قم بوضع الكود المطلوب تنفيذه اذا تحقق بان القيمة
كما هى لا تتغير اى 0 كما انت وضحت فى الموضوع
تحياتى لك
وتمنياتى لك التوفيق
RE: اريد تشغيل شرط if لو متغير رقم" 0" خلال دقيقتين انو ينفذ امر كذا - kalshsami - 22-07-18
اخي مع الاسف ما زبط انا راح اشرح كمان مرخ
انا عندي دالة بتعطي نتيجية من 0 ل 100 لو الصفر ضلو ادقيقه او اكتر معنتو فى فصل صار او خلل
المهم اخي انا بدي حركة او دالة تفيد انو لو الصفر ما تغير وضلو لمد ة معينة انو فى صار خلل
يارب اكون شرحتلك بشكل كافى وشكرا لك
https://up.top4top.net/del18ceb6390cca6a6cb6866fab70f88815.html
RE: اريد تشغيل شرط if لو متغير رقم" 0" خلال دقيقتين انو ينفذ امر كذا - elgokr - 22-07-18
اتمنى ما فى المرفقات هو ملخص عملى لما تريده تماماً
صورة توضيح للبرنامج
صورة عند انتهاء الوقت
وصورة فى حالة تغيير اى قيمة من TextBox
بمجرد الكتابة يتم تغيير اللون الى اللون الافتراضي
طبعاً يمكنك التحكم فى الالوان كمثال جعله اللون الاخضر وما شبه
طبعاً يمكنك تجاهل هذا الجزء (انا قمت بوضعه شكلياً فقط)
مرفق بالمرفقات سورس + برنامج
السورس(2015)
اتمنى هذا ما تريده
واتمنى ان تصل لك فكرة الكود كاملاً
وبالنهاية لا تنسي تغيير المدة المطلوبة من خلال الاسطر التالية
كود :
Private i As Integer = 10
Private ii As Integer = 10حيث ان 1 = ثانية واحدة ولاتمام عمل دقيقتين فعليك كتابة 120 بكلاهما بدلاً من 10
تحياتى لك
وتمنياتى لك التوفيق
RE: اريد تشغيل شرط if لو متغير رقم" 0" خلال دقيقتين انو ينفذ امر كذا - kalshsami - 22-07-18
اخي مشكور اكتير وانا غلبتك معي والله
المهم انا بعتلك فكره بسيطه من برنامجي
راح اول متشوفها تفهم قصدي
ونا بعتذر من الاول كان لازم اعمل هيك انت شوفها وقلى لو فى اي استفسار لاني محتاج هيك شغل
الايبى الى بالبرنامج هو لا موقع انا بدي اعملها ل روترات شبكة
يعني 0 ما بتيجي الى لما تفصل النت عندك او تحط ايبي رواترك ورح تفهم قصدي
RE: اريد تشغيل شرط if لو متغير رقم" 0" خلال دقيقتين انو ينفذ امر كذا - mrnooo2000 - 22-07-18
اليك أخى ما تريد
انا وضعت المدة فى التايمر 5 ثوانى حتى تظهر النتائج بسرعة يمكنك ان تغيرها لما تريد
انا وضعت 3 احتمالات للتوضيح
1- ان تكون القيمة = صفر و لكن قبل المدة المحددة اللون أحمر خفيف
2- ان تكون القيمة = صفر و الوقت أكثر من المدة المحددة اللون أحمر
3- ان تكون القيمة <> صفر اللون أخضر خفيف
يمكنك ان تعدل ما تشاء