موضوع منقول من المنتدي القديم
الكاتب : مصلح الحريصي
** فورم ** كيف يتم إنشاء تايمرين على نموذج واحد كل تايمر له فاصل زمني خاص به
الأخوة الكرام
السلام عليكم ورحمة الله وبركاته
أولاً : اهنيء نفسي واهنئكم على الموقع الجديد 0
ثانياً : ألف ألف شكر لك القائمين على هذا المنتدى على ما بذلوه وما يبذلونه وما سوف يبذلونه من جهوداً لتطوير هذا المنتدى ((((( هم يتعبون ويزرعو ونحن نحصل )))) ولكن أسأل الله العلي القدير أن يكافأهم بالجنة فهي خير دار وخير جزاء وحصاد0
ثالثاً : لدي سؤال وهو:
كيف أجعل على النموذج تايمرين كل منهما له قيمة خاصة أي فاصل زمني خاص مثلاً:
Timer1 الفاصل الزمني له 200 وا Timer2 أريد الفاصل الزمني له 1000
me.Timer1Interval =200
me.Timer2Interval =1000
هذا وشكراً للجميع0
--------------------------------------------------------------------------------
الكاتب: مصلح الحريصي بتاريخ: 8/15/2002 12:37:29 PM
--------------------------------------------------------------------------------
اما عن الفاصل الزمني للفورم فأعتقد أنه واحد
قد يفيد ها فى التحيل علي ما تريد
Dim MYtime1, Mytime2, Mytime3MYtime1 = Timerو بعد عدة اجراءاتMytime3 = Timermyperiod = Mytime3 - MYtime1myperiod = format(myperiod, "0.00")MsgBox "completed in : " & myperiod & "seconds" و بعد عدة اجراءاتMytime2 = Timermyperiod = Mytime2 - MYtime1myperiod = format(myperiod, "0.00")MsgBox "completed in : " & myperiod & "seconds"
الكاتب: محمد طاهر بتاريخ: 8/16/2002 2:49:40 PM
--------------------------------------------------------------------------------
طريقة ثانية
ما يمكن تكون الطريقة ذي كويسة :
Option Compare DatabaseDim Num1Private Sub Form_Timer()' هنا تكتب اللي تبغاه يتكرر دايمNum1 = Num1 + 1If Num1 > 5 Then Num1 = 1If Num1 = 5 Then' هنا تكتب اللي تبغاه يتكرر كل خمس مرات من عداد الوقتEnd IfEnd Subكود: --------------------------------------------------------------------------------
الكاتب: osama457 بتاريخ: 8/16/2002 5:05:57 PM
--------------------------------------------------------------------------------
طريقة ثانية معليش ما عرفت اكتب الكودOption Compare DatabaseDim Num1 As BytePrivate Sub Form_Timer()' هنا تكتب اللي تبغاه يتكرر دايمNum1 = Num1 + 1If Num1 > 5 Then Num1 = 1If Num1 = 5 Then' هنا تكتب اللي تبغاه يتكرر كل خمس مرات من عداد الوقتEnd IfEnd Sub-------------------------------------------------------------------------------- الكاتب: osama457 بتاريخ: 8/16/2002 5:09:37 PM
--------------------------------------------------------------------------------
مثال فقط . هل من الممكن أن يعمل لنا أحداً من الأعضاء أو المشرفين مثالاً على تايمرين في نموذج واحد مع اختلاف عداد الوقتمثال: جعل مربع نص يومض بعد كل 1000 ( يعني ثانية ) . في عداد الوقتوجعل مربع نص آخر على نفس النموذج يومض بعد كل 2000 ( يعني ثانيتين ) في عداد الوقتفهل نحظى بهذا المثال من محب لنشر العلم . جزاه الله خيراوللجميع تحياتي--------------------------------------------------------------------------------لا إله إلا الله .. محمد رسول الله - صلى الله عليه وسلم . الكاتب: سعودي31 بتاريخ: 9/7/2002 7:38:13 AM
--------------------------------------------------------------------------------
--------------------------------------------------------------------------------
