برامج

حصري جديد AutoPlay Media Studio خلفية متحركة [الأرشيف] - برامج نت

المساعد الشخصي الرقمي

مشاهدة النسخة كاملة : حصري جديد AutoPlay Media Studio خلفية متحركة


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:

elgamal_vet
03-17-2008, 12:41 AM
شكراً علي الموضوع لكن الملفات بها فيروس
والسورسات غير كاملة

MEGATON
03-17-2008, 01:15 AM
اسف على الاخطاء لكن سوف اصحح الخطأ قريبا

mahmoud alami
03-20-2008, 08:44 AM
متى التصحيح؟..

mahia79
03-20-2008, 01:25 PM
شكرا من فضلك اريد برنامج الأوتو بلاي الذي يدعم الكتابة باللغة العربية

MEGATON
03-20-2008, 02:42 PM
متى التصحيح؟..

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

jaks1986
03-21-2008, 08:05 PM
بارك الله فيك

MEGATON
09-02-2008, 06:13 PM
مشكووووورين

دمتم

boumarchi
09-02-2008, 11:00 PM
thank you for this

MEGATON
09-02-2008, 11:05 PM
مشكووووور

دمتم

zoladx
09-12-2008, 12:37 AM
thxxxxxxxx

MEGATON
09-13-2008, 10:44 PM
مشكوووووووووووورين

دمتم