[mohamedallams]

السلام عليكم

أتسائل عن كيفيه وضع مؤقت يظهر msgBox بعد 10 دقائق او اي وقت احدده

مثلا بعد الضغط علي الزر رقم 1 يقوم البرنامج بحساب 10 دقائق ومن ثم يقوم بتنفيذ امرين

الاول الضغط علي زر اخر

والثاني msgBox تحذيري

وشكرا

[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 


[mohamedallams]

(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 


شكرا لك اخي الفاضل