تويت
درس عمل لوجو في Auto Play Media Studio
[frame="1 98"]
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاتة
درسنا اليوم هو طريقة عمل لوجو يتحرك داخل ساحة العمل
وأهدى هذا العمل لأخي وصديقى البغرامى لما يبذلة في شرح هذا البرنامج ونشرة
وأهدى هذا العمل لأخي وصديقى البغرامى لما يبذلة في شرح هذا البرنامج ونشرة
نبدأ علي بركة الله
نفتح مشروع جديد أو أى مشروع تريد تنفيذ العمل علية
نحضر صورة بمقاس صغير وليكن 163*163 مثلا أو المقاس الذي تحب
فمثلا اخترت اللوجو هذا وهو صورة بامتداد png
نحضر صورة بمقاس صغير وليكن 163*163 مثلا أو المقاس الذي تحب
فمثلا اخترت اللوجو هذا وهو صورة بامتداد png
نقوم بإدراج الصورة بالضغط هنا بالضغط علي الاداة الموضحة بالصورة
ونقوم بإختيار الصورة ونغير في شفافية الصور حسب الرغبة ثم نضغط OK فتظهر كما موضح
ثم نضغط كلك يمين علي أى مكان في العمل أو دبل كلك ونختارProperties
ونحدد Script ثم من قائمة On Show نضع الكود :
كود:
Pag = Page.GetSize();
ImgSize = Image.GetSize("Logo");
HMov = "Right";
VMov = "Down";
Page.StartTimer(10);
ثم من قائمة On Timer نضع الكود :
كود:
POS = Image.GetPos("Logo");
if POS.X == 0 then
HMov = "Right";
end
if POS.X+ImgSize.Width == Pag.Width then
HMov = "Left";
end
if POS.Y == 0 then
VMov = "Down";
end
if POS.Y+ImgSize.Height == Pag.Height then
VMov = "Up";
end
if HMov == "Right" then
POS.X = POS.X + 1;
Image.SetPos("Logo", POS.X, POS.Y);
end
if HMov == "Left" then
POS.X = POS.X - 1;
Image.SetPos("Logo", POS.X, POS.Y);
end
if VMov == "Down" then
POS.Y = POS.Y + 1;
Image.SetPos("Logo", POS.X, POS.Y);
end
if VMov == "Up" then
POS.Y = POS.Y - 1;
Image.SetPos("Logo", POS.X, POS.Y);
end
كما موضح بالصورة
ثم نضغط OK
ونقوم بمعاينة المشروع بالضغط علي F5
وإلي درس آخر إن شاء الله
[/frame]
ونقوم بمعاينة المشروع بالضغط علي F5
وإلي درس آخر إن شاء الله
تعليق