MEGATON
03-15-2008, 11:10 PM
بسم الله الرحمن الرحيم
اليوم سوف اقدم جديد البرنتمج الشهير في عالم التجميعيات خلفية باسم اسطوانتك متحركة
ومن لا يعرف البرنامج شرح ملك التجميعيات karim_dz من هنا (http://www.bramjnet.com/vb3/showthread.php?t=196390)
http://img229.imageshack.us/img229/272/22xy4.jpg
نبدأ بالصور
http://img85.imageshack.us/img85/1998/39108393is4.jpg
http://img229.imageshack.us/img229/7223/31756127zm9.jpg
http://img229.imageshack.us/img229/2702/15052178uz0.jpg
الأكواد حسب الصور
1
Pag = Page.GetSize();
ImgSize = Image.GetSize("Logo");
HMov = "Right";
VMov = "Down";
Page.StartTimer(10);
2
POS = Image.GetPos("Logo");
-- Sets way of movement
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
-- Moves image horizontaly
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
-- Moves image verticaly
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
الأكواد واحد واثنان يوضعان في خصائص الصفحة page properties ثم سكربت scripet
وفي الصورة الثالثة اي تضع الخلفية المتحركة وامتدادها يكون من نوع jpg ولرؤية المشروع
حمل المثال من هنــــــاااا (http://www.zshare.net/download/907856650e9d26/]moving logo.apz)
دمتم في عون الله وتقبلو شرحي البسيط
وشكر خاص لملك التجميعيات :smailes80:
اليوم سوف اقدم جديد البرنتمج الشهير في عالم التجميعيات خلفية باسم اسطوانتك متحركة
ومن لا يعرف البرنامج شرح ملك التجميعيات karim_dz من هنا (http://www.bramjnet.com/vb3/showthread.php?t=196390)
http://img229.imageshack.us/img229/272/22xy4.jpg
نبدأ بالصور
http://img85.imageshack.us/img85/1998/39108393is4.jpg
http://img229.imageshack.us/img229/7223/31756127zm9.jpg
http://img229.imageshack.us/img229/2702/15052178uz0.jpg
الأكواد حسب الصور
1
Pag = Page.GetSize();
ImgSize = Image.GetSize("Logo");
HMov = "Right";
VMov = "Down";
Page.StartTimer(10);
2
POS = Image.GetPos("Logo");
-- Sets way of movement
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
-- Moves image horizontaly
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
-- Moves image verticaly
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
الأكواد واحد واثنان يوضعان في خصائص الصفحة page properties ثم سكربت scripet
وفي الصورة الثالثة اي تضع الخلفية المتحركة وامتدادها يكون من نوع jpg ولرؤية المشروع
حمل المثال من هنــــــاااا (http://www.zshare.net/download/907856650e9d26/]moving logo.apz)
دمتم في عون الله وتقبلو شرحي البسيط
وشكر خاص لملك التجميعيات :smailes80:
