كيفية عمل قرص دوار ؟

[يوسف البراهيم]

السلام عليكم

كيف اعمل قرص دوار ببرنامج autoplay ?

[عبود عبود]

حركة دوران
http://www.mediafire.com/file/4db1t1lwyis52a3/%D8%AD%D8%B1%D9%83%D8%A9_%D8%AF%D9%88%D8%B1%D8%A7% D9%86_%D8%A7%D9%84%D9%83%D9%88%D8%A7%D9%83%D8%A8.r ar

[يوسف البراهيم]

حركة دوران
المحتوى المخفي لايقتبس

جميل عزيزي

الفكرة يكون مشابه

للقرص الدوار طبعا راح يتم تغيير المحتوى لاستخدامه في دروس الرياضيات
https://www.youtube.com/watch?v=V9JoGXxUooA&t=77s

[فرح صالحي]

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

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

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

[يوسف البراهيم]

كيف اخلي القرص يدور و يتوقف بزر؟

[يوسف البراهيم]

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

[يوسف البراهيم]

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

[فرح صالحي]

كيف اخلي الأرض تتوقف عن الدوران بضغطة زر

بواسطة هذا الكود
Page.StopTimer( Image.GetPos("earth"))

[يوسف البراهيم]

بواسطة هذا الكود
page.stoptimer( image.getpos("earth"))

الله يعطيك العافية

سؤال اخر

كيف اجعل الارض تدور حول نفسها مثل القرص
؟

[يوسف البراهيم]

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

[يوسف البراهيم]

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

[يوسف البراهيم]

ما من مجيب يا أخوان

[يوسف البراهيم]

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

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

لماذا لا تعتمد سيناريو أخر
مثلا نضع 8 ليبالات label على شكل القرص

:abc_051:
:abc_051: --- :abc_051:
:abc_051: --- --- :abc_051:
:abc_051: --- :abc_051:
:abc_051:

ثم في on shoaw


for i=1,8 do
Label.SetText("Label"..i,Math.Random(1,70));
end


في زر ضع الكود


pos={} ; for i= 1,8 do pos[i] = Label.GetPos("Label"..i); end

for i= 1,8 do p=i+1 ; if p >= 9 then p=1 end
Label.SetPos("Label"..i ,pos[p].X, pos[p].Y)
end

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

لقطة اخرى
نفس السيناريو ........8 ليبالات label من 1 الى 8 .........لكل منها لون مختلف



قي onshow

for i=1,8 do
Label.SetText("Label"..i,Math.Random(1,70));
end

في التايمر on timer


if e_ID == 1 then
pos={} ; for i= 1,8 do pos[i] = Label.GetPos("Label"..i); end

for i= 1,8 do p=i+1 ; if p >= 9 then p=1 end
Label.SetPos("Label"..i ,pos[p].X, pos[p].Y)
end
end

if e_ID == 2 then
Page.StopTimer(1);
end



في الزر


Page.StartTimer(300, 1);

Page.StartTimer(3000,2);

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

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

جرب الاقتراح

[يوسف البراهيم]

جرب الاقتراح

الله يعطيك العافية
فكرة حلوووة
حلوة كثير

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

الله يعطيك العافية
فكرة حلوووة
حلوة كثير

اقتراح اخر .........
ضع ليبال واحد فقط كبير
في زر ضع الكود

Page.StartTimer(100,1);
Page.StartTimer(2000, 2);

في التايمر ضع الكود

if e_ID == 1 then
Label.SetText("Label1", Math.Random(1,100));
end



if e_ID == 2 then
Page.StopTimer(1);
end

[محمد بن أحمد أبو حذيفة]

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

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

من اجل تسجيل النتائج
ضع غريد يعمودين

[يوسف البراهيم]

جميل
الله يعطيك العافية عزيزي
بسن شنو ( غريد )

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

http://gulfup.co/i/00676/v9pp59g0199j.png

و لك خالص الشكر و التقدير

[مـصـطـفـى مـراد]

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

[احمد كبه]

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

[اسلام اينو]

شغل جميلللللللللللللللللللللل لللللللللللللل

[اغواطي حر]

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

[احمد فيصل]

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

[احمد فيصل]

ممكن شرح للكود ااالمسستخدم فى االدورا

[السعيد الجزائري]

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