+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] Alarm after 10 minutes - vb.net (/showthread.php?tid=41946)
Alarm after 10 minutes - vb.net - mohamedallams - 19-07-22
السلام عليكم
أتسائل عن كيفيه وضع مؤقت يظهر msgBox بعد 10 دقائق او اي وقت احدده
مثلا بعد الضغط علي الزر رقم 1 يقوم البرنامج بحساب 10 دقائق ومن ثم يقوم بتنفيذ امرين
الاول الضغط علي زر اخر
والثاني msgBox تحذيري
وشكرا
RE: Alarm after 10 minutes - vb.net - asmarsou - 22-07-22
(19-07-22, 12:32 PM)mohamedallams كتب :السلام عليكمأتسائل عن كيفيه وضع مؤقت يظهر msgBox بعد 10 دقائق او اي وقت احدده
مثلا بعد الضغط علي الزر رقم 1 يقوم البرنامج بحساب 10 دقائق ومن ثم يقوم بتنفيذ امرينالاول الضغط علي زر اخروالثاني msgBox تحذيريوشكرا
و عليكم السلام و رحمة الله و بركاته
هذا مثال بسيط لذلك
PHP كود :
Public Class Form1
Dim second As Integer
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
second = second + 1
If second >= 60 Then ' تمثيل الزمن بالثواني هنا سيتم تنفيذ الاحدات بعد دقيقة
Timer1.Stop() 'ايقاف المؤقت
MsgBox("لقد توقف المؤقت عن العمل....")
Button2_Click(sender, e)
second = 0 'ارجاع العد للقيمة صفر للبدء من جديد ان اقتضت الضرورة
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Timer1.Interval = 1000
Timer1.Start() 'بدء المؤقت
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
MsgBox("لقد تم الضغط على الزر الثاني")
End Sub
End Class
RE: Alarm after 10 minutes - vb.net - mohamedallams - 30-07-22
(22-07-22, 10:47 PM)asmarsou كتب :شكرا لك اخي الفاضل(19-07-22, 12:32 PM)mohamedallams كتب :السلام عليكمأتسائل عن كيفيه وضع مؤقت يظهر msgBox بعد 10 دقائق او اي وقت احدده
مثلا بعد الضغط علي الزر رقم 1 يقوم البرنامج بحساب 10 دقائق ومن ثم يقوم بتنفيذ امرينالاول الضغط علي زر اخروالثاني msgBox تحذيريوشكرا
و عليكم السلام و رحمة الله و بركاته
هذا مثال بسيط لذلك
PHP كود :
Public Class Form1
Dim second As Integer
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
second = second + 1
If second >= 60 Then ' تمثيل الزمن بالثواني هنا سيتم تنفيذ الاحدات بعد دقيقة
Timer1.Stop() 'ايقاف المؤقت
MsgBox("لقد توقف المؤقت عن العمل....")
Button2_Click(sender, e)
second = 0 'ارجاع العد للقيمة صفر للبدء من جديد ان اقتضت الضرورة
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Timer1.Interval = 1000
Timer1.Start() 'بدء المؤقت
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
MsgBox("لقد تم الضغط على الزر الثاني")
End Sub
End Class