تويت
السلام عليكم ورحمة الله وبركاته
كيف يمكن عمل عداد للوقت بحيث يحسب الوقت الذي مر منذ فتح البرنامج
كيف يمكن عمل عداد للوقت بحيث يحسب الوقت الذي مر منذ فتح البرنامج
-
-
السلام عليكم ورحمة الله وبركاته
يمكن أن تكون إحدى الطرق كما هو موضح بالمثال فى المرفقات :
الأكواد فى الحدث "On Show" و الحدث "On Timer" -
موفق بإذن الله ... لك مني أجمل تحية .
متابع معكم و نستفيد منك استاذ عبود
تعليق
-
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
تعليق
-
اذا اضفنا ليبال يعبر عن الجزء من الثانية ......... و لنسميه Label8
يصبح الكود كالاتي ....... في on show
وفي timeكود PHP:Page.StartTimer(100, 10);
كود PHP:z = Label.GetText("Label8");
s = Label.GetText("Label1");
m = Label.GetText("Label2");
h = Label.GetText("Label3");
if e_ID==10 then
if tonumber(z) == 9 then
Label.SetText("Label8", 0);
Page.StartTimer(1000,20);
elseif tonumber(z) < 10 then
Label.SetText("Label8", tonumber(z)+1);
end
end
----------
if e_ID==20 then
if tonumber(s)==59 then
Label.SetText("Label2", tonumber(m)+1);
Label.SetText("Label1", 0);
Page.StartTimer(60000,30);
elseif tonumber(s)<60 then
Label.SetText("Label1", tonumber(s)+1);
end
end
------------
if e_ID==30 then
if tonumber(m)==59 then
Label.SetText("Label2", 0);
Label.SetText("Label3", tonumber(h)+1);
elseif tonumber(m) < 60 then
Label.SetText("Label2", tonumber(m)+1);
end
end
حاولت التعديل على كود الاستاذ عبود في جزء واحد e_Id لكن لم انجح لذلك قسمته الى ثلاثةتعليق
-
مشكورررررررررررررررتعليق
-
السلام عليكم ورحمةاللّٰه وبركاته .
اشكر كل من ساهم في إثراء الموضوع.
في الواقع انا في الاصل اعمل مع فيجوال بيسك وافهم قليلا لغة البرمجة vb
اكتشف منذ شهر برنامج اوتو بلاي الذي شدني اليه من الوهلة الأولى . بقي ان اتعود على استعمال الاكواد.
اكتشفت هذا المنتدى الجميل منذ أسبوعين ..... واظنه مثل منتد ى فيجوال بيسك في سرعة رد اعضاء ه و مشرفيه....
انا فخور بان انامل عربية تصنع كل هذا.... وشكرا مرة اخرى لمن ساعدني.....تعليق
-
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .تعليق
-
المشاركة الأصلية بواسطة المحترف اقلي مشاهدة المشاركة
هذا يأتى بالفهم والتحليل والتدقيق لما تريد تنفيذة والقدرة على التحكم التام فى الشروط بالقدر الذى تريد أن يظهر علية الكود
ضع تصور لما تريد تنفيذه أولا ورتب أفكارك وضع الشرط الذى تريدة ثم قل لنفسك لو كذا إفعل كذا وإذا رأيت كذا إفعل كذا ولو لم تجد كذا إفعل كذا ولو لم تجد شيئ نفذ كذا
هنا يكون الشرط فعال جدا ........ التطبيق هو خير معلم وصديق .
وبعد صلاة الجمعة أضع لك الكود بنفس النمط السابق إن شاء الله
تعليق
-
يمكن أن يكون الحل بعد إضافة عداد اللحظات كالتالى فى المرفقات :تعليق
-
بارك الله فيك أستاذ ...
من يعدل لي على الملف الأخير لتحقيق :
السرعة اللازمة لو أردت عند وصول عداد سريع الى 999 ليتحول الى ثانية حقيقية
أي نفس الملف يكون معبر بدل اللحظات بميلي ثانية حتى يتحول العدد عند الوصول
الى 999 الى ثانية واحدة حقيقية
إن أمكن ذلك
تعليق
-
صراحة لا أعرف لماذا لا يكون هناك سرعة إذا كان التايمر على 1 مللى ثانية مثلا
تعليق
-
السلام عليكم ورحمة الله وبركاتهتعليق
-
هههههههههه لما لقيت مفيش فايدة فى تسريع التايمر بالقدر الازم قولت ألجأ للتحايل علية فقررت أن يكون التايمر 1000 مللى ثانية "يعنى 1 ثانية" أى يكون كود الصفحة فى "On Show" :
وعملت حلقة تكرارية فى "On Timer" مع مجموعة الشروط فكانت النتيجة كذلك :كود:Page.StartTimer(1000, 10);
طبعا الملف المفتوح بالتعديل فى المرفقات .كود:-- if e_ID==10 then l = Label.GetText("Label8"); s = Label.GetText("Label1"); m = Label.GetText("Label2"); h = Label.GetText("Label3"); if tonumber(m)<59 then if tonumber(s)<59 then if tonumber(l)<999 then for i=0,998 do Label.SetText("Label8", i); end Label.SetText("Label1", tonumber(s)+1); Label.SetText("Label8", 0); end elseif tonumber(s)==59 then Label.SetText("Label2", tonumber(m)+1); Label.SetText("Label1", 0); end elseif tonumber(m)==59 then Label.SetText("Label3", tonumber(h)+1); Label.SetText("Label2", 0); end end
ممنوع التشفى " أو الشماتة فى الحيلة "
ههههههههه
تعليق
-
أجدت كثيرا أستاذ عبود هذا هو الملف المعبر تماما عما أردت
وهو الأصح في نظري لهكذا تعامل
تقديري
تعليق
تعليق