19-07-21, 10:18 PM
(آخر تعديل لهذه المشاركة : 19-07-21, 10:19 PM {2} بواسطة ابراهيم ايبو.)
السلام عليكم ورحمة الله وبركاته
كل عام وانتم بخير اضحى مبارك
اخي الكريم جيولوجي والاخ الكريم asmarsou
الموضوع هو اقرب مايكون الى ScreenSaver
اي يجب ان يتحسس البرنامج توقف الماوس او توقف ضربات المفاتيح لمدة معينة يتم حسابها
بالنسبة للمثال التالي استخدمت توقف حركة الماوس وهي الاكثر استخداما في البرامج
بعد فتح الفورم الثانية يتم تحديد مكان الماوس ومع التايمر في حدث التيك سيتم تحديد مكان الماوس ومع الحركة false
سيتم تنفيذ اغلاق الفورم بانتهاء المدة
اما اذا تم تحريك الماوس فمع كل حركة سيتم تحديد مكان الماوس والحركة اولها true واخرها False
المثال عملته على عجل وهو يعمل بشكل جيد وهو مبني على الثواني يمكنك تغيير الى دقائق غير قيم R1 و R2
من
الى
ناحية اخرى وضعت عدد من التكست بوكس لعرض القيم ومايحدث
يمكنك الاستغناء عنها وقد وضعت الاكواد بدون العرض في مربعات النصوص تحت الاكواد وجعلتها Comment
قم بالتجربة وان شاء الله يفي بما طلبت
كل عام وانتم بخير اضحى مبارك
اخي الكريم جيولوجي والاخ الكريم asmarsou
الموضوع هو اقرب مايكون الى ScreenSaver
اي يجب ان يتحسس البرنامج توقف الماوس او توقف ضربات المفاتيح لمدة معينة يتم حسابها
بالنسبة للمثال التالي استخدمت توقف حركة الماوس وهي الاكثر استخداما في البرامج
بعد فتح الفورم الثانية يتم تحديد مكان الماوس ومع التايمر في حدث التيك سيتم تحديد مكان الماوس ومع الحركة false
سيتم تنفيذ اغلاق الفورم بانتهاء المدة
اما اذا تم تحريك الماوس فمع كل حركة سيتم تحديد مكان الماوس والحركة اولها true واخرها False
المثال عملته على عجل وهو يعمل بشكل جيد وهو مبني على الثواني يمكنك تغيير الى دقائق غير قيم R1 و R2
من
كود :
R1 = Now.Second
R2 = Now.Secondكود :
R1 = Now.Minute
R2 = Now.Minuteيمكنك الاستغناء عنها وقد وضعت الاكواد بدون العرض في مربعات النصوص تحت الاكواد وجعلتها Comment
قم بالتجربة وان شاء الله يفي بما طلبت
اعمل الخير وأجرك لا تنتظره فالله خير من إليك يرده
البرمجة ليست مجرد كود بل هي منهج تفكير منطقي لحل المشكلات