أخواني الكرام تحية طيبة وبعد :
في المثال المرفق نموذج به عداد يعمل بسرعات مختلفة من خلال خانات اختيار ولا يتوقف
المطلوب :
قمت بعمل خانات اختيار أخرى وأريد التحكم بإيقافه من خلال هذه الخانات وحسب الفترة الزمنية لكل واحدة .
فأريد اذا اخترت مثلا الخانة ( خمس ثواني ) ثم ضغطت زر التشغيل أن يبدأ بالعد ثم يقف آليا بعد خمس ثواني .
جزاكم الله خيرا ،،
أخي الحبيب sbhha اليك مثالك بعد التعديل stop.watch.v1.by.medo19.rar فقط كنت تحتاج الى ادراج متغير يقوم بقراءة الثواني المطلوبه وتتمثل في الكود التالي :-
Private Sub Form_Timer() a.ForeColor = a.ForeColor + 3000 Dim l If Me.w.Value = 1 Then l = 3 ElseIf Me.w.Value = 2 Then l = 5 ElseIf Me.w.Value = 3 Then l = 10 End If a = a + 1 If Me.a = l Then Me.TimerInterval = 0 DoCmd.Beep End If End Sub
اليك تحياتي ،،،
أبو مروان
*****************************
نبذه عني اضغط على اسمي ----> 
مشكور يا ابو مروان الله يسعدك ويحفظك وأولادك من كل سوء .
طبعا هذا الذي طلبته بالضبط . ولكن بعد التجربة خاب ظني بالنتيجة . يعني اذا اخترت ثلاث ثواني سيقف العداد على رقم ثلاثة ، وإذا اخترت عشرة كذلك سيقف على رقم عشرة وهكذا لو اخترت 50 ، 52 سيقف على عدد مساو لما اخترته من ثواني . وأنا أريده أن يقف على رقم عشوائي وإنما جاءتني فكرة تنويع الثواني حتى تزيد مدة الخلط ، فلا أعلم ماذا يجب عمله حتى اصل الى هذه النتيجة .
اكرر شكري وتقبل تحياتي ،،،
أخي بارك الله فيك
أنما انت حددت طلبك في المشاركه الاولى و عملت على هذا الاساس
أرجوك وضح طلبك الثاني
أخوك أبو مروان
*****************************
نبذه عني اضغط على اسمي ---->
أخي الكريم
جرب المرفق عسي أن يفي بالمطلوب
وافر تحياتي ،،،
أخوك في الله
أبو مروان
*****************************
نبذه عني اضغط على اسمي ---->
ما عليش يابومروان انا كنت اتصور في الأول إنه سيكون كالأيقاف اليدوي .
المثال الثاني المرفق حركة وخطوة جميلة لكن خلي بالك إذا حددت الزمن والوقت فالنتيجه واحدة دائما
يعني بمجرد ما استعمل العداد مرتين تنكشف الأمور .
المطلوب وقوف عشوائي كالايقاف اليدوي .
سؤال :
الا يمكن استعمال عداد آخر للتحكم في هذا العداد ؟؟
تم تعديل هذه المشاركة بواسطة sabhha في 30 يناير 2010 في 18:45
المشكله أخي تقف امام timeinterval
هذه هي المشكله
عندي فكره لكن مش عارف تطبيقها بيكون ازاي ممكن تجرب
ممكن تستعين بنموذج آخر في وضع minimize و يقوم بعداد آخر مهمته إيقاف العداد في النموذج الاول
على العموم أنا مضطر للذهاب الآن و غدا اذا لم تصل الى نتيجه نجربها غدا
تحياتي ،،،
أبو مروان
*****************************
نبذه عني اضغط على اسمي ---->
طبقت الفكرة ونجحت
تم ايقام العداد من النموذج الآخر
لكني آمل بحاجة أشد اتقانا .. أقصد اشد عشوائية
لا استغني عن لمساتك وافكارك النيرة
تحياتي ،،،
تم تعديل هذه المشاركة بواسطة sabhha في 31 يناير 2010 في 00:37
الاخوة الافاضل
ما فهمته من المشاركات ان الاخ السائل يريد ايقاف العداد على رقم عشوائى اليا
فى المرفق الحل
و الرقم الذى يتوقف عنده العداد لا يمكن لاحد ان يتوقعه او يحدده باى حال من الاحوال
اتمنى ان يكون هذا هو المطلوب
و الله الموفق
ياسلام عليك اخي mrnooo2000
بالطبع هذا ما ابحث عنه فجزاك الله خيرا .
لكن تعال قولي : ايش سوت هذي "s"
يعني تفضلا منك وتكرما لو وضحت لنا كيف تتم هذه العملية العشوائية
وافر تحياتي .،،،
اخى الفاضل
فكرة الكود ان يقوم العداد بالعد حتى يكون الرقم مساوى لعدد الثوانى الحالى
و حيث انك فى كل مرة تضغط على الزر يتغير العدد فالبتالى يتغير رقم العداد
بالتوفيق
أشكرك أخي mrnooo2000
ولكن طريقتك غير فعاله مع عدد الثواني المطلوبه
اليك مثالك في المرفق باسم v3
أنظر ماذا يصنع الكود وبعدين خبرني
المثال يعتمد على الثواني المطلوبه و لكن هناك قصور في الكود منتظرك اكتشافها
تحياتي ،،،
أبو مروان
*****************************
نبذه عني اضغط على اسمي ---->
اخى الفاضل
اولا انا لم اتطرق لعدد الثوانى
فا الاخ السائل كان يريد ان ان يتوقف العداد عند رقم عشوائى
ثانيا لاحظت ما ترمى اليه و هو عدم ثبات العداد على ما اعتقد
و لكن ارجو تحديد ما تريد
تم تعديل هذه المشاركة بواسطة mrnooo2000 في 31 يناير 2010 في 15:43