اريد تكرار الشي

بإمكانك استخدام أداة الـ Timer مثلاً والتي تقوم بإطلاق الحدث كل فترة زمنية تحددها أنت في خاصية الـ interval ..

ولكن لا أعتقد أنه يمكنك إيصالها لأكثر من دقيقة وثواني ..

السلام عليكم ورحمة الله وبركاته

لعمل تكرار ظهور الفورم كل مدة معينة يتم استخدام اداءة الـ Timer ونقوم بتغير قيمة الـ Interval الى 5000 وهى تعنى خمس ثوانى

كما تريد فمثلا انت تملك 2 فورم وتريد لفورم 2 ان تظهر كل 5 ثوانى بقم بوضع الـ Timer فى فورم واحد وغير قيمة الـ Interval الى 5000 واكتب داخله الكود التالى

Form2.show

سيقوم باظهار هذه الفورم كل 5 ثوانى عندما تغلقها سيقوم بفتحا كل 5 ثوانى مرة اخرى

لقد ارسلت لك المثال

ارجو ان اكون اوضحت

اشكركم على المشاركة ولكن الى الان لم احصل على نتيجة

لان التايمر وخاصيتة انتير فال لا تعطي اكثر من خمس ثواني

اخوكم .........

  S = S + 1

    If S Mod 60 = 0 Then
    
             M = 1 + M
             S = 0
                           END IF
            
        If M Mod 60 = 0 Then
        
            H = H + 1
            M = 0
            
        End If

ممكن تضيف هذا الكود لتايمر يكون الانترفل فيه هو ثانية واحدة . وفي كل مرة تزداد ال s بمقدار ثانية الى ان تصل الى 60 اي مرور دقيقة كاملة . هنا تصبح قيمة ال m=1 فإذا اردت اظهار الفورم بعد 5 دقائق يمكن وضع شرط كالتالي :

IF M=5 THEN
FORM1.SHOW
END IF

وبالمثل استخدم ال H للتعبير عن الساعة ..

وبالتالي يمكنك استغلال الثانية للحصول على ساعات ..

اقتباس

لان التايمر وخاصيتة انتير فال لا تعطي اكثر من خمس ثواني

في الواقع يمكنك الوصول بهذه الخاصية حتى دقيقة وبضع ثواني ..

عموماً جرب طريقة الأخ هوب وأخبرنا عن النتيجة ..

يمكن الاستفادة أيضاً من الشيفرة التالية التي تعتمد على طرح الأوقات بالدالة DateDiff.

Dim StartTime As Date, EndTime As Date
Public intDateDiffer As Integer

Private Sub StartTimer()
Timer1.Enabled = True
Timer1.Interval = 1000
StartTime = Now
End Sub

Private Sub Timer1_Timer()
intDateDiffer = 5
'If you want to chage the amount of minutes change the 5 to any number you want
EndTime = Now
If DateDiff("s", StartTime, EndTime) >= intDateDiffer * 60 Then 
    Call SubProcedure
    StartTime = Now
End If
End Sub

Private Sub SubProcedure()
'
'
'Your code possibly goes here
'
'
End Sub

وإليك أيضاً هذا المثال على هذه الطريقة في الملف المرفق..

LongIntervalTimer.zip

اقول الله لا يوفقكم الا بكل خير

وشكركم جميعا على سرعة التجاوب

اخوكم .....