مساعدة في اعداد هذا التايمر مع البروجرس

[الجارف]

السلام عليكم ..

استكمالا لمشوار الإخوة جميعًا ..

نريد التعديل على الملف التالي ..

نريد ربط البروجرس مع التايم المحدد ولكن بطريقة أن يعمل البروجرس بالتناقص

هذا رابط الملف

تحميل (http://www.gulfup.com/?K4yijD)

[فرح صالحي]

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

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

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

وفقكم الله .

[Haitham.2012]

في المرفقات الملف المفتوح و الإضافه ..

تم الإعتماد على الإضافه a.e لإختصار معظم الأكواد ..

موفق

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

جزاك الله كل خير أستاذ هيثم :abc_022:

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
وفقك الله اخ هيثم لما تحبه وترضاه
وجازاك الله خيرا كثيرا
:abc_152:

[الجارف]

وفقكم الله جميعًا ..
أخي فرح
وأخي ثامر
وأخي هيثم

فكلكم تستحقون الإشادة ..
ونرفع لكم القبعة احتراما وإجلالا ..

حفظكم الله ورعاكم أينما كنتم

[فرح صالحي]

وفقكم الله جميعًا ..
أخي فرح
وأخي ثامر
وأخي هيثم

فكلكم تستحقون الإشادة ..
ونرفع لكم القبعة احتراما وإجلالا ..

حفظكم الله ورعاكم أينما كنتم
السلام عليكم ورحمة الله وبركاته
الاخ ثامر/ هيثم او هيثم /تامر في المقدمة
ثم من بعدهم
فرح . نحن نستفيد ونتعلم منهم
لذلك الاستاذ دائما في المقدمة
ثم التلميذ يتبع الاستاذ
موفق بإذن الله ... لك مني أجمل تحية .

:abc_028:

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

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

======= وإن شاء الله نبقى دائما نقدر أمثالك و أمثال الأستاذ
والسائل المحترم ====================

[الجارف]

السلام عليكم ورحمة الله وبركاته
الاخ ثامر/ هيثم او هيثم /تامر في المقدمة
ثم من بعدهم
فرح . نحن نستفيد ونتعلم منهم
لذلك الاستاذ دائما في المقدمة
ثم التلميذ يتبع الاستاذ
موفق بإذن الله ... لك مني أجمل تحية .

:abc_028:

في هذا الصرح الشامخ ..

ومع هؤلاء الأكارم النبلاء الأفاضل ..

لا أعتقد أنهم في حاجة ان نقدم اسما على اسمهم أو ان نؤخرهم ..

فما قدموا لنا يكفي ان يكون لهم السبق دائما ..

فهم يتمتعون بروح العطاء .. والأخوة .. والمساعدة

جعلنا الله متحابين فيه ان شاء الله

[الجارف]

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

======= وإن شاء الله نبقى دائما نقدر أمثالك و أمثال الأستاذ
والسائل المحترم ====================

جميعكم الثلاثة أساتذه ..

بذلتم .. وقدمتم .. وتابعتم .. وأرشدتم .. ونصحتم

ولكم كل الشكر والتقدير

[Haitham.2012]

الشكر لله وحده اخواني الكرام .. تقبلوا تقديري

:abc_138: :abc_152: :abc_138:

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

وهذا ملف بدون اضافات لتنفيذ المطلوب
http://www.gulfup.com/?NjZcs4

قد يمر من هناااا من له نفس الانشغال

[فرح صالحي]

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

[عبود عبود]

وهذا ملف بدون اضافات لتنفيذ المطلوب
http://www.gulfup.com/?NjZcs4

قد يمر من هناااا من له نفس الانشغال

جيد جزاك الله خيرا ........ ولكن لاحظت أن العداد قد يختل فى العد التنازلى فى بعض الأحيان
فعلى سبيل المثال قمت بتجربة عدد 2 فى الإينبوت أى ما يعادل دقيقتين فوجدت عدم تطابق العد التنازلى أو بمعنى هناك بعض الثوانى لا يتم إحتسابها كالتالى :
عند الثانية 54 و 45 و 43 و 38 و 34 و 30 و 26 و 20 و 15 و 11 و 6 و 3 هذا بالنسبة للدقيقة الأولى من العد
وأيضا تحدث هناك فى الدقيقة الأخيرة من العد مع بعض الأرقام أيضا فى خانة الثوانى .

لا أدرى ربما الخلل من الكمبيوتر لدى أو أنى لم ألاحظ جيدا .
كانت هذه ملاحظة منى .

:abc_138:

[عبود عبود]

في المرفقات الملف المفتوح و الإضافه ..

تم الإعتماد على الإضافه a.e لإختصار معظم الأكواد ..

موفق

ممتاز ................ جزاك الله خيرا

:abc_138:

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

بالتأكيد أخي عبود أن لكل محاولة لابد من مراجعة
وتهذيب في الأكواد سعدت بردك
لم أشعر بماذكرت وقد تخضع المحاولة لمراجعة و تصحيح من طرف الزملاء

[عبود عبود]

لم أشعر بماذكرت وقد تخضع المحاولة لمراجعة و تصحيح من طرف الزملاء

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

[فرح صالحي]

حاول مرة أخرى مع دقيقتين ولاحظ أن العداد بيركن يعنى يتوقف فى بعض الثوانى
السلام عليكم ورحمة الله وبركاته

جربت مع دقيقتين مرة اولى ومرة ثانية ولم الاحظ اي خلل في العد كل الارقام ظهرت اثناء العد تنازليا ومتتابعة .
تقبل مروري والسلام عليكم ورحمة الله وبركاته
:abc_022:

[azizsoft]

بسم الله الرحمن الرحيم

بارك الله فيكم

[عبود عبود]

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

جربت مع دقيقتين مرة اولى ومرة ثانية ولم الاحظ اي خلل في العد كل الارقام ظهرت اثناء العد تنازليا ومتتابعة .
تقبل مروري والسلام عليكم ورحمة الله وبركاته
:abc_022:

مع أنى لم أذكر أن الأرقام لا تظهر ولكنى قلت أن العداد يتوقف أو بالمصرى بيركن بعض الشيئ .


إذن ربما قد يكون:


لا أدرى ربما الخلل من الكمبيوتر لدى أو أنى لم ألاحظ جيدا .
كانت هذه ملاحظة منى .
:abc_138:

[النصل القاطع]

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

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

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

عبرت في on timer
قيمة الثواني بطريقة أخرى إن شاء الله تكون مرضية
s = Math.Mod(result, 60);

[عبود عبود]

ملاحظة جيدة أخي عبود

عبرت في on timer
قيمة الثواني بطريقة أخرى إن شاء الله تكون مرضية
s = math.mod(result, 60);

طيب إلحق إحذفها قبل ما تكملها ...... إنت كدة مصلحتش هههههههه دى باظت على الآخر

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

هههههههه
Audio.Play(CHANNEL_USER1);
result = Label.GetText("Label1")-1
p =result-1
Label.SetText("Label1", result);
t =Label.GetText("Label1")/3600
h = Math.Floor(t);
m = Math.Floor((t-h) *60)
s = Math.Mod(result, 60);

Label.SetText("timer", h..":"..m..":"..s);
if result ==0 then
Page.StopTimer();
end
Progress.SetCurrentPos("Progress1", p);
if result ==0 then
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\14.ogg", true, false);

Page.StopTimer();
end


وما تقوليش مازال مشكل

[عبود عبود]

هههههههه
Audio.Play(CHANNEL_USER1);
result = Label.GetText("Label1")-1
p =result-1
Label.SetText("Label1", result);
t =Label.GetText("Label1")/3600
h = Math.Floor(t);
m = Math.Floor((t-h) *60)
s = Math.Mod(result, 60);

Label.SetText("timer", h..":"..m..":"..s);
if result ==0 then
Page.StopTimer();
end
Progress.SetCurrentPos("Progress1", p);
if result ==0 then
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\14.ogg", true, false);

Page.StopTimer();
end


وما تقوليش مازال مشكل

100 100 http://imageshack.com/a/img837/6066/rfkn.gif http://imageshack.com/a/img854/3441/t2u.gif

http://imageshack.com/a/img834/999/1cf.gif

[عبود عبود]

سامحونى للتدقيق الزائد عن حده .......... فربما بهذا يتم تصحيح معلومات أو أخطاء للآخرين

:abc_152:

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

مشكور جدا
حتى و إن الفرد يرهق:n200640: لكن جميل التعلم
واكتساب أشياء جديدة

[الجارف]

سامحونى للتدقيق الزائد عن حده .......... فربما بهذا يتم تصحيح معلومات أو أخطاء للآخرين

:abc_152:

مشكور جدا
حتى و إن الفرد يرهق:n200640: لكن جميل التعلم
واكتساب أشياء جديدة

جميل حوار الكبار .. حوار العمالقة

زادكم الله من علمه .. ورزقنا وإياكم من فضله
=====================================
كنت أرغب تشغيل صوت مختلف قبل نهاية الوقت في آخر ( 10 ) ثواني مثلا للإشعار بقرب انتهاء الوقت

فحاولت وطلعت النتيجة تمام معي في جزئية آخر ( 10 ) ثواني يختلف الصوت :

فكان الكود بالشكل التالي :

Audio.Play(CHANNEL_USER1);
result = Label.GetText("Label1")-1
p =result-1
Label.SetText("Label1", result);
t =Label.GetText("Label1")/3600
h = Math.Floor(t);
m = Math.Floor((t-h) *60)
s = Math.Mod(result, 60);

Label.SetText("timer", h..":"..m..":"..s);
if result ==0 then
Page.StopTimer();
end
Progress.SetCurrentPos("Progress1", p);
if result ==10 then
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\14.ogg", true, false);
if result ==0 then
Page.StopTimer();
end
end

هل ما قمت به صحيح ؟؟؟


ولدي ملاحظة إخواني .. جربت أن أضغط على زر البدء بدون وضع أي رقم في الانبوت

فكانت هذه النتيجة

http://im84.gulfup.com/RiNJm.jpg


وجربت وضع أحرف في الانبوت فكانت هذه النتيجة

http://im65.gulfup.com/u8orp.jpg

هل بالأمكان تفادي ذلك ..

كوضع شرط لعمل زر البدء أن يحدد المستخدم رقما في الانبوت

وأن يستبعد ( الصفر - والفراغ - والأحرف )



ولكم الشكر

[خادم المسلمين]

تفضل شرح

http://www.gulfup.com/?DUuraH

http://www.youtube.com/watch?v=sHRxguVr3yk
http://www.youtube.com/watch?v=RrxsmLWXRUs
وبخصوص ظهور النسبة المئوية
جرب

http://www.gulfup.com/?Co4qZZ
او حمل من المرفقات

[الجارف]

شكرا لك أخي خادم المسلمين ..

شروحات مهمة وملفات مهمة نحتاجها مستقبلا

[امل الماضي]

شكرا لكم جميعا ودامت روح التعاون بينكم

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

السلام عليكم
من بين الحلول يمكن أن تعدل في Hotspot2
ليصبح
x =Input.GetText("Input0");
x = String.ToNumber(x);
y =Input.GetText("Input1");
y = String.ToNumber(y);
w =Input.GetText("Input2");
w = String.ToNumber(w);
p=x*3600
s = y*60
tot=p +s+w
Label.SetText("Label1", tot);
if tot >= 1 then
Page.StartTimer(1000);
Progress.SetRange("Progress1", 0, tot);
Progress.SetCurrentPos("Progress1", tot);
end
حيث لايعمل التايمر عند القيم 0 , شاغر , فراغ بين أرقام, حروف

[الجارف]

حل مفيد نزعا ما ..

ومن وجهة نظري أنه غير عملي .. أرجو قبول وجهة نظري :abc_088:

الا يمكن تحقيق هذا الشرط في ادخالات الانبوت ؟؟

وماذا عن تغيير نغمة الصوت في آخر ( 10 ) ثواني ..؟؟
واجهتني بها مشكلة .. تتمثل في :
الصوتان يعملان معًا في نفس الوقت ..
حاولت ايقاف الصوت الاول وجعل الصوت الثاني يعمل ولم أنجح

[محمد فرحات]

السلام عليكم ورحمة الله وبركاته
جزاكم الله خيراً علي المتابعه الجادة والرد علي استفساراتنا

جعله الله في ميزان حسناتكم جميعاً

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

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

أخي الجارف حتى بعدالقيام بالمنع بالكود المعروف
كالتالي :
في global functions
function InputSoloNumeros(HwndInput)
Args1 = string.format("%d,%d", HwndInput, -16)
GetWinLong = DLL.CallFunction("user32.dll", "GetWindowLongA", Args1, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
Args2 = string.format("%d,%d,%d", HwndInput, -16, GetWinLong + 8192)
DLL.CallFunction("user32.dll", "SetWindowLongA", Args2, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
end

وفي on show
InputSoloNumeros((Input.GetProperties("Input1").WindowHandle))


تبقى تحتاج لما ذكرته لأنه يتعلق بالتنفيذ

[الجارف]

رااااااااااااااااااائع أستاذي ومعلمي الفاضل

نجحت الأكواد في جعل الانبوت لا يقبل الا الأرقام فقط .. ويمنع الشاغر الفراغ

ولكن ماذا نفعل مع الصفر ؟؟؟؟


تبقى تحتاج لما ذكرته لأنه يتعلق بالتنفيذ

هل يمكن توضيح ذلك ؟

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

ما قصدته أنه حتى بعد منع الكتابة التي لا نريدها
عند الضغط على Hotspot2 ستلاحظ أنه يبدأ عدا غير مقبول للقيمة 0
أو الشغور

لهذا جميل لو تضع الشرط المضاف للـ Hotspot2 " المشاركة 3 في هذه الصفحة"
واذا أحببت تدعيمها بأكواد المنع في الانبوت نفسه

عن الصفر عند زرعك لما قلنا في Hotspot2 فإن كتابته لا تعني شيء

ولمنع الصفر في عنصر قي انبوت مثلا تستطيع أن تدخل على الانبوت
في on key
if Input.GetText(this)=="0" then
Input.SetText(this, "");end

موفق:abc_152:

[الجارف]

جميل جدا أخي .. تمت العملية بنجاح :abc_138:

أشكرك على تعاونك اللامحدود .. وسامحني على كثرة الاستفسارات

أحب الدقة في إنجاز العمل .. :abc_099:
-----------------------------------------------------------------------------------
تبقى فقط شيء واحد وهو ما أشرت لك به سابقا :

تغيير نغمة الصوت في آخر ( 10 ) ثواني ..؟؟
واجهتني بها مشكلة .. تتمثل في :
الصوتان يعملان معًا في نفس الوقت ..
حاولت ايقاف الصوت الاول وجعل الصوت الثاني يعمل فقط في أخر ( 10 ) ثواني ولم أنجح

قمت بهذا التعديل فكان الكود بالشكل التالي :

Audio.Play(CHANNEL_USER1);
result = Label.GetText("Label1")-1
p =result-1
Label.SetText("Label1", result);
t =Label.GetText("Label1")/3600
h = Math.Floor(t);
m = Math.Floor((t-h) *60)
s = Math.Mod(result, 60);

Label.SetText("timer", h..":"..m..":"..s);
if result ==0 then
Page.StopTimer();
end
Progress.SetCurrentPos("Progress1", p);
if result ==10 then
Audio.Stop(CHANNEL_USER1);
Audio.Play(CHANNEL_USER2);
if result ==0 then
Page.StopTimer();
end
end

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

result = Label.GetText("Label1")-1
p =result-1
Label.SetText("Label1", result);
t =Label.GetText("Label1")/3600
h = Math.Floor(t);
m = Math.Floor((t-h) *60)
s = Math.Mod(result, 60);
Label.SetText("timer", h..":"..m..":"..s);
Progress.SetCurrentPos("Progress1", p);
if result> 10 then
Audio.Play(CHANNEL_USER1);
elseif result<= 10 then
Audio.Play(CHANNEL_USER2);
if result ==0 then
Page.StopTimer();
end
end

[الجارف]

لا زالت المشكلة قائمة ..

عند العد التنازلي ( 10 ) وأقل الصوتان يعملان معًا في نفس الوقت

[فرح صالحي]

السلام عليكم ورحمة الله وبركاته
ضع ملف مفتوح سيسهل التعديل عليه من طرف الخبراء .
قد يكون هناك خطأ في الاكواد لم تنتبه اليه , في بعض الاحيان مسافة زائدة او ناقصة تفسد العمل برمته .
في انتظار ذلك اتمنى لك التوفيق
:abc_012:

[أبو دنيا وعصام]

وفقكم الله

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

أخي الجارف تداخل الأصوات أم ربما
اخترت ملف صوتي أطول من اكتمال دورةان صح التعبير
فتسمع وكأنه تداخل ياحبذا لو يكون الملف
الصوتي للثواني العشر الأخيرة صغير ومناسب
كأن تجرب الملف Click1.ogg التابع للبرنامج وشوف

يمكنك إضافة توقيف الملف الصوتي الاول عند دخول 10 ثواني
الاخيرة في الجملة الشرطية

=============== :abc_152::abc_152:موفق :abc_152::abc_152:=====

[الجارف]

السلام عليكم ورحمة الله وبركاته
ضع ملف مفتوح سيسهل التعديل عليه من طرف الخبراء .
قد يكون هناك خطأ في الاكواد لم تنتبه اليه , في بعض الاحيان مسافة زائدة او ناقصة تفسد العمل برمته .
في انتظار ذلك اتمنى لك التوفيق
:abc_012:

نفس الملف الموجود في أول المشاركة مع متابعة الردود وإضافة التعديلات ..

والحمد لله انتهت المشكلة ..

تابع ردي التالي

[الجارف]

أخي الجارف تداخل الأصوات أم ربما
اخترت ملف صوتي أطول من اكتمال دورةان صح التعبير
فتسمع وكأنه تداخل ياحبذا لو يكون الملف
الصوتي للثواني العشر الأخيرة صغير ومناسب
كأن تجرب الملف click1.ogg التابع للبرنامج وشوف

يمكنك إضافة توقيف الملف الصوتي الاول عند دخول 10 ثواني
الاخيرة في الجملة الشرطية

=============== :abc_152::abc_152:موفق :abc_152::abc_152:=====

صح كلامك أخي
الملف الذي اخترته ليس قصيرًا ..

وهنا كانت المشكلة ..

شكرًا لك أخي الكريم ..

[عبدالله الجوهري]

شكرررررررررررررررررررا

[زياد مقداد]

مشكورين يا إخوتي

[احمد حكيم باز]

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

[سمسم يو]

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

[العبسي]

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

[سعيدون]

صراحة قمة التميز والابداع
شكرا لكم جميعا

[سمير نبيل]

جزاك الله كل خير أستاذ هيثم

[منوبة]

بارك الله في السائل وفي كل من قدم المساعدة
شكرا لكم جميعا
:abc_152::abc_152:

[فاضل الجبوري]

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

[أروى عبدالله]

يعطيك العافية اضافة رائعه وفقكم الله :abc_026:

[باي رياضيات]

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

[محمد سامر]

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

[kiaamed]

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