عمل عداد للثواني والدقائق و الساعات

[ابو امين]

السلام عليكم ورحمة الله وبركاته
كيف يمكن عمل عداد للوقت بحيث يحسب الوقت الذي مر منذ فتح البرنامج

[عبود عبود]

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

يمكن أن تكون إحدى الطرق كما هو موضح بالمثال فى المرفقات :

الأكواد فى الحدث "On Show" و الحدث "On Timer"

[عبد الهادي بهاب]

موفق بإذن الله ... لك مني أجمل تحية .
متابع معكم و نستفيد منك استاذ عبود:abc_052:

[ثامر أبو بلقيس]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية . :abc_138:

[عبد الهادي بهاب]

اذا اضفنا ليبال يعبر عن الجزء من الثانية ......... و لنسميه Label8

يصبح الكود كالاتي ....... في on show

Page.StartTimer(100, 10);

وفي time


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
اكتشف منذ شهر برنامج اوتو بلاي الذي شدني اليه من الوهلة الأولى . بقي ان اتعود على استعمال الاكواد.
اكتشفت هذا المنتدى الجميل منذ أسبوعين ..... واظنه مثل منتد ى فيجوال بيسك في سرعة رد اعضاء ه و مشرفيه....
انا فخور بان انامل عربية تصنع كل هذا.... وشكرا مرة اخرى لمن ساعدني.....

[ياسرهتهت]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

[عبود عبود]

اذا اضفنا ليبال يعبر عن الجزء من الثانية ......... و لنسميه Label8

يصبح الكود كالاتي ....... في on show

Page.StartTimer(100, 10);

وفي time


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 لكن لم انجح لذلك قسمته الى ثلاثة


هذا يأتى بالفهم والتحليل والتدقيق لما تريد تنفيذة والقدرة على التحكم التام فى الشروط بالقدر الذى تريد أن يظهر علية الكود
ضع تصور لما تريد تنفيذه أولا ورتب أفكارك وضع الشرط الذى تريدة ثم قل لنفسك لو كذا إفعل كذا وإذا رأيت كذا إفعل كذا ولو لم تجد كذا إفعل كذا ولو لم تجد شيئ نفذ كذا :abc_088: هنا يكون الشرط فعال جدا ........ التطبيق هو خير معلم وصديق .

وبعد صلاة الجمعة أضع لك الكود بنفس النمط السابق إن شاء الله

:abc_138:

[عبود عبود]

يمكن أن يكون الحل بعد إضافة عداد اللحظات كالتالى فى المرفقات :

[ثامر أبو بلقيس]

بارك الله فيك أستاذ ...
من يعدل لي على الملف الأخير لتحقيق :
السرعة اللازمة لو أردت عند وصول عداد سريع الى 999 ليتحول الى ثانية حقيقية
أي نفس الملف يكون معبر بدل اللحظات بميلي ثانية حتى يتحول العدد عند الوصول
الى 999 الى ثانية واحدة حقيقية :abc_088:
إن أمكن ذلك :abc_138:

[عبود عبود]

صراحة لا أعرف لماذا لا يكون هناك سرعة إذا كان التايمر على 1 مللى ثانية مثلا :abc_070:

[هبة الرحمن]

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

[عبود عبود]

:abc_065:هههههههههه لما لقيت مفيش فايدة فى تسريع التايمر بالقدر الازم قولت ألجأ للتحايل علية فقررت أن يكون التايمر 1000 مللى ثانية "يعنى 1 ثانية" أى يكون كود الصفحة فى "On Show" :

Page.StartTimer(1000, 10);

وعملت حلقة تكرارية فى "On Timer" مع مجموعة الشروط فكانت النتيجة كذلك :

--
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

طبعا الملف المفتوح بالتعديل فى المرفقات .

ممنوع التشفى " أو الشماتة فى الحيلة " :abc_113: ههههههههه

[ثامر أبو بلقيس]

أجدت كثيرا أستاذ عبود هذا هو الملف المعبر تماما عما أردت
وهو الأصح في نظري لهكذا تعامل

تقديري :abc_040:

[ابو امين]

وعليكم السلام ورحمة الله وبركاته
في الواقع كنت قد بدات منذ مدة مشروعا للاذان بلغة فيجوال بيسك وقد وصلت الى حدود 90 % منه.
شرح المشروع: هو عبارة عن نافذة واحدة على ملئ الشاشة
تحدد انطلاقا من قاعدة بيانات اكسس اوقات الصلوات لتاريخ اليوم
مع حساب الوقت المنقضي و المتبقي للصلاة..
ذكر تاريخ اليوم بالهجري و الميلادي
تذكير بأسماء اللّٰه الحسنى
اذكار بعد الصلاة
ادعية من القران
حساب لعدد الأيام المتبقية لرمضان و العيدين....الخ
لضرورة لا مناص منها البرنامج باللغة الفرنسية عدا الأذكار و ادعية القران....
اريد ان اوضح امرا مهما: لم اتعلم البرمجة في المدرسة و لا من عند معلم.... كل الجهد فردي
حاولت جلب الاكواد من الانترنات و تم تحويرها لتناسب المشروع....
سؤالي اليوم هل من الممكن فعل نفس هذا البرنامج بالاوتو بلاي و خاصة ربطه بقاعدة بيانات
يمكن تعديلها من خلا البرنامج نفسه عند الضرورة القصوى.
الهدف من البرنامج: ربط الحاسوب

[ابو امين]

قلت ربط الحاسوب بشاشة تلفزة تعلق في مكان من المسجد.
لماذا : كل الاجهزة التي تم شراء ها لا يتوافق التوقيت المبرمج فيها مع التوقيت المعمول به
في اغلب المدن الفرنسية.....
الله يشهد اني لا ابحث من وراء كل هذا عن ربح مادي.... هو فقط لخدمةاالإسلام .
بقي ان كل كان كل ما ذكرته ممكنا برمجيا... هل الاخوة مستعدون لمد يد المساعدة....
انتظر ردودكمان شاء اللّٰه .....
ارفع واجهة البرنامج فيجوال بيسك اليوم او غدا ان شاء اللّٰه .....
مع الشكر مسبقا....

[عبود عبود]

كى يعمل البرنامج فى أى مكان فى الوقت المناسب لابد من ضبط الساعة للجهاز المنصب علية البرنامج بشكل دقيق فإما أن يكون يدويا أو بواسطة الإتصال بالإنترنت .

سؤال خارجى هل تمكنت من صناعة ملفات الدل أى تستطيع صناعة ملف دل " مهم لمجموعة من الإستفسارات الخاصة بى شخصيا "

[عبود عبود]

هل الاخوة مستعدون لمد يد المساعدة....


نعم إن شاء الله

[المحترف القادم]

موفق بإذن الله ... لك مني أجمل تحية .

[ابو امين]

بسم الله الرحمن الرحيم
سؤال خارجى هل تمكنت من صناعة ملفات الدل أى تستطيع صناعة ملف دل " مهم لمجموعة من الإستفسارات الخاصة بى شخصيا "
لم افهم قصدك أخي عبود آسف

[عبد الهادي بهاب]

يمكن أن يكون الحل بعد إضافة عداد اللحظات كالتالى فى المرفقات :

:abc_052::abc_052::abc_052:

شكرا استاذ عبود
نصيحة قيمة دائما سنكون تلاميذة مجتهدين

[ابو امين]

السلام عليكم ورحمة الله وبركاته
هذه واجهة البرنامج كما وعدت
أنتظر اقتراحاتكم و نقدكم

[عبد الهادي بهاب]

وعليكم السلام ورحمة الله وبركاته
في الواقع كنت قد بدات منذ مدة مشروعا للاذان بلغة فيجوال بيسك وقد وصلت الى حدود 90 % منه.
شرح المشروع: هو عبارة عن نافذة واحدة على ملئ الشاشة
تحدد انطلاقا من قاعدة بيانات اكسس اوقات الصلوات لتاريخ اليوم
مع حساب الوقت المنقضي و المتبقي للصلاة..
ذكر تاريخ اليوم بالهجري و الميلادي
تذكير بأسماء اللّٰه الحسنى
اذكار بعد الصلاة
ادعية من القران
حساب لعدد الأيام المتبقية لرمضان و العيدين....الخ
لضرورة لا مناص منها البرنامج باللغة الفرنسية عدا الأذكار و ادعية القران....
اريد ان اوضح امرا مهما: لم اتعلم البرمجة في المدرسة و لا من عند معلم.... كل الجهد فردي
حاولت جلب الاكواد من الانترنات و تم تحويرها لتناسب المشروع....
سؤالي اليوم هل من الممكن فعل نفس هذا البرنامج بالاوتو بلاي و خاصة ربطه بقاعدة بيانات
يمكن تعديلها من خلا البرنامج نفسه عند الضرورة القصوى.
الهدف من البرنامج: ربط الحاسوب

السلام عليكم
مشروع جميل جدا ..... بالتوفيق
طبعا يمكن برمجة ذلك بالاتوبلاي
ام هناك كودات و قيم و متغيرات فقط يبقى التجميع ........ سبق وطرح موضوع مماثل
http://www.abc4web.net/vb/showthread.php?t=32645

و من باب النصيحة لو كانت هذه المشاركة موضوعا مستقلا لكان التواصل افضل و اوضح
وهذا ايضا رسالة للاخوة المشرفين لو يضعون هذذه المشاركة موضوعا بعنوان واضح مثلا ( مشروع الاذان ) ..الخ
:abc_152::abc_152:
بالتوفيق

[عبد الهادي بهاب]

السلام عليكم ورحمة الله وبركاته
هذه واجهة البرنامج كما وعدت
أنتظر اقتراحاتكم و نقدكم

شكل جميل جدا ...بالتوفيق يبقى فيه قضية تتثبيت الخط الخاص بالارقام عند المستخدم لمن لا يملكون الخط في اجهزتهم

[ابو امين]

http://www.abc4web.net/vb/showthread.php?p=297295#post297295
يمكن المشاركة مباشرة في هذا الموضوع المستقل : ساعة الآذان فرنسا

[محمد سامر]

مشكووووووووووووووووووور

[kiaamed]

جزاك الله عنا كل خير

موفق بإذن الله ... لك مني أجمل تحية:abc_022::abc_022:

[منار بربرة]

مشكووووور اخى