ايمن سالم
25-01-2011, 10:40 AM
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاتة
http://www.al-wed.com/pic-vb/3.gif
درسنا اليوم هو طريقة عمل لوجو يتحرك داخل ساحة العمل
وأهدى هذا العمل لأخي وصديقى البغرامى لما يبذلة في شرح هذا البرنامج ونشرة
نبدأ علي بركة الله
نفتح مشروع جديد أو أى مشروع تريد تنفيذ العمل علية
نحضر صورة بمقاس صغير وليكن 163*163 مثلا أو المقاس الذي تحب
فمثلا اخترت اللوجو هذا وهو صورة بامتداد png
http://img94.imageshack.us/img94/6318/logoiwe.png
نقوم بإدراج الصورة بالضغط هنا بالضغط علي الاداة الموضحة بالصورة
http://img233.imageshack.us/img233/2537/111wm.jpg
ونقوم بإختيار الصورة ونغير في شفافية الصور حسب الرغبة ثم نضغط OK فتظهر كما موضح
http://img94.imageshack.us/img94/7647/1111sj.jpg
ثم نضغط كلك يمين علي أى مكان في العمل أو دبل كلك ونختارProperties
http://img94.imageshack.us/img94/2972/42454.jpg
ونحدد 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
كما موضح بالصورة
http://img94.imageshack.us/img94/5460/787788.jpg
ثم نضغط OK
ونقوم بمعاينة المشروع بالضغط علي F5
وإلي درس آخر إن شاء الله
السلام عليكم ورحمة الله وبركاتة
http://www.al-wed.com/pic-vb/3.gif
درسنا اليوم هو طريقة عمل لوجو يتحرك داخل ساحة العمل
وأهدى هذا العمل لأخي وصديقى البغرامى لما يبذلة في شرح هذا البرنامج ونشرة
نبدأ علي بركة الله
نفتح مشروع جديد أو أى مشروع تريد تنفيذ العمل علية
نحضر صورة بمقاس صغير وليكن 163*163 مثلا أو المقاس الذي تحب
فمثلا اخترت اللوجو هذا وهو صورة بامتداد png
http://img94.imageshack.us/img94/6318/logoiwe.png
نقوم بإدراج الصورة بالضغط هنا بالضغط علي الاداة الموضحة بالصورة
http://img233.imageshack.us/img233/2537/111wm.jpg
ونقوم بإختيار الصورة ونغير في شفافية الصور حسب الرغبة ثم نضغط OK فتظهر كما موضح
http://img94.imageshack.us/img94/7647/1111sj.jpg
ثم نضغط كلك يمين علي أى مكان في العمل أو دبل كلك ونختارProperties
http://img94.imageshack.us/img94/2972/42454.jpg
ونحدد 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
كما موضح بالصورة
http://img94.imageshack.us/img94/5460/787788.jpg
ثم نضغط OK
ونقوم بمعاينة المشروع بالضغط علي F5
وإلي درس آخر إن شاء الله