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

نسخة كاملة : Alarm after 10 minutes - vb.net
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم
أتسائل عن كيفيه وضع مؤقت يظهر msgBox بعد 10 دقائق او اي وقت احدده

مثلا بعد الضغط علي الزر رقم 1 يقوم البرنامج بحساب 10 دقائق ومن ثم يقوم بتنفيذ امرين
الاول الضغط علي زر اخر
والثاني msgBox تحذيري
وشكرا
(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 ObjectAs EventArgsHandles Timer1.Tick
        second 
second 1
        If second 
>= 60 Then ' تمثيل الزمن بالثواني هنا سيتم تنفيذ الاحدات بعد دقيقة
            Timer1.Stop() '
ايقاف المؤقت

            MsgBox
("لقد توقف المؤقت عن العمل....")
 
           Button2_Click(sendere)
 
           second 'ارجاع العد للقيمة صفر للبدء من جديد ان اقتضت الضرورة
        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 ObjectAs EventArgsHandles Button2.Click

        MsgBox
("لقد تم الضغط على الزر الثاني")
 
   End Sub
End 
Class 
(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 ObjectAs EventArgsHandles Timer1.Tick
        second 
second 1
        If second 
>= 60 Then ' تمثيل الزمن بالثواني هنا سيتم تنفيذ الاحدات بعد دقيقة
            Timer1.Stop() '
ايقاف المؤقت

            MsgBox
("لقد توقف المؤقت عن العمل....")
 
           Button2_Click(sendere)
 
           second 'ارجاع العد للقيمة صفر للبدء من جديد ان اقتضت الضرورة
        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 ObjectAs EventArgsHandles Button2.Click

        MsgBox
("لقد تم الضغط على الزر الثاني")
 
   End Sub
End 
Class 
شكرا لك اخي الفاضل