ناثيرات جميلة على نص في اتبوت

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

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


لاحظ الصورة التالية

https://a.top4top.net/p_7012aokr1.gif
الصورة رديئة جدا

الان ضع 5 صور في مجلد images
افتح مشروع جديد ..........
ضع ابتوت فارغ و سميه input1
في الصفحة ضع صورة من الصور الخمس و اجعلها بحجم الصفحة
------------
تمام ؟؟؟
---------
الان ضع زر و اغرس فيه الكود التالي :

for i=1,20 do Page.DeleteObject("A"..i); end
txt = Input.GetText("Input1");
w = Page.GetSize().Width;
h = Page.GetSize().Height;
p1 = w/ 6 ; p2 = w/ 5 ; p3 = w/4 ; p4 = w/ 5 ;
-- Label object properties table.
tblLabelProps = {};
tblLabelProps.Text = txt ;
tblLabelProps.FontName = "Traditional Arabic";
tblLabelProps.FontSize = 16;
tblLabelProps.FontScript = DEFAULT_CHARSET;
tblLabelProps.ColorNormal = Math.HexColorToNumber("0000FF");
tblLabelProps.ColorDown = Math.HexColorToNumber("000000");
tblLabelProps.ColorHighlight = Math.HexColorToNumber("000000");
tblLabelProps.ColorDisabled = Math.HexColorToNumber("C0C0C0");
-----gauche --------------
for i=1,3 do
tblLabelProps.Y = p1*i;
tblLabelProps.X = -20;
Page.CreateObject(OBJECT_LABEL, "A"..i,tblLabelProps)
end

for i=4,6 do
tblLabelProps.ColorNormal = Math.HexColorToNumber("FFFF00");
tblLabelProps.ColorDown = Math.HexColorToNumber("FFFF00");
tblLabelProps.ColorHighlight = Math.HexColorToNumber("FFFF00");
tblLabelProps.FontSize = 25;
tblLabelProps.Y = p2*(i-3);
tblLabelProps.X = -10;
Page.CreateObject(OBJECT_LABEL, "A"..i,tblLabelProps)
end

tblLabelProps.ColorNormal = Math.HexColorToNumber("CC99FF");
tblLabelProps.ColorDown = Math.HexColorToNumber("CC99FF");
tblLabelProps.ColorHighlight = Math.HexColorToNumber("CC99FF");
tblLabelProps.FontSize = 80;
tblLabelProps.Y = 50;
tblLabelProps.X = 0
Page.CreateObject(OBJECT_LABEL, "A7",tblLabelProps)
---------
tblLabelProps.ColorNormal = Math.HexColorToNumber("008000");
tblLabelProps.ColorDown = Math.HexColorToNumber("008000");
tblLabelProps.ColorHighlight = Math.HexColorToNumber("008000");
tblLabelProps.FontSize = 200;
tblLabelProps.Y = 10;
tblLabelProps.X = 10
Page.CreateObject(OBJECT_LABEL, "A8",tblLabelProps)

---------dtroit ----------

for i=9,10 do
tblLabelProps.ColorNormal = Math.HexColorToNumber("FF0000");
tblLabelProps.ColorDown = Math.HexColorToNumber("FF0000");
tblLabelProps.ColorHighlight = Math.HexColorToNumber("FF0000");
tblLabelProps.FontSize = 35;
tblLabelProps.Y = p3*(i-6)
tblLabelProps.X = h+10;
Page.CreateObject(OBJECT_LABEL, "A"..i,tblLabelProps)
end


for i=11,12 do
tblLabelProps.ColorNormal = Math.HexColorToNumber("00FF00");
tblLabelProps.ColorDown = Math.HexColorToNumber("00FF00");
tblLabelProps.ColorHighlight = Math.HexColorToNumber("00FF00");
tblLabelProps.FontSize = 50;
tblLabelProps.Y = p4*(i-10);
tblLabelProps.X = h -10;
Page.CreateObject(OBJECT_LABEL, "A"..i,tblLabelProps)
end


tblLabelProps.ColorNormal = Math.HexColorToNumber("008000");
tblLabelProps.ColorDown = Math.HexColorToNumber("008000");
tblLabelProps.ColorHighlight = Math.HexColorToNumber("008000");
tblLabelProps.FontSize = 120;
tblLabelProps.Y = 50;
tblLabelProps.X = 200
Page.CreateObject(OBJECT_LABEL, "A13",tblLabelProps)


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




الان في التايمر ازرع الكود التالي

if e_ID == 1 then
for i=1,8 do
if Label.GetPos("A"..i).X >= w then
Label.SetPos("A"..i, -10 , Label.GetPos("A"..i).Y);
else
Label.SetPos("A"..i, Label.GetPos("A"..i).X +3 , Label.GetPos("A"..i).Y);
end
end

for i=9,13 do
if Label.GetPos("A"..i).X + Label.GetSize("A"..i).Width <= 0 then
Label.SetPos("A"..i, h+10 , Label.GetPos("A"..i).Y);
else
Label.SetPos("A"..i, Label.GetPos("A"..i).X -3 , Label.GetPos("A"..i).Y);
end
end
end

if e_ID == 2 then
gh = gh + 1 ;
if gh > 5 then
gh = 0 ;
else
Image.Load("Image1", "AutoPlay\\Images\\"..gh..".jpg") ;
for i=1,7 do
Application.Sleep(5);
op = Image.GetOpacity("Image1");
Image.SetOpacity("Image1", op-10) ;
end
Application.Sleep(10);
Image.SetOpacity("Image1", 100) ;

end

end

قم بالمعاينة
اكتب اي شيء في الانبوت ثم اضفط على الزر

[فرح صالحي]

بارك الله فيك وزادك من علمه:abc_138: