تويت
السلام عليكم ورحمة الله وبركاته
افتح صفحة جديدة ..........
ضع في مجلد الصور هذه الصورة
ضع 3 من عنصر البارغراف و اجعل عرضه متوافقا مع المسافة بين الاصبعين و يظهر كانه يمسك الاطار الاسود
و اجلعهم الواحد اسفل الاخر
في الحدث on preload ضع الكوذ التالي
في المقفوفة igli ضع ما تريده من معلومات الجينيرك من اعدا و نقديم
الان في on show
الان في ontimer
ثم ضف صقحة ثانية و اجعل فيها باراغاف او ليبال فيه الترحيب
معاينة
افتح صفحة جديدة ..........
ضع في مجلد الصور هذه الصورة
ضع 3 من عنصر البارغراف و اجعل عرضه متوافقا مع المسافة بين الاصبعين و يظهر كانه يمسك الاطار الاسود
و اجلعهم الواحد اسفل الاخر
في الحدث on preload ضع الكوذ التالي
كود PHP:
Image.SetPos("Image1",- Image.GetSize("Image1").Width , - Image.GetSize("Image1").Height);
pos={}; for i=1,3 do pos[i] = Paragraph.GetPos("Paragraph"..i) end
Paragraph.SetPos("Paragraph1", Paragraph.GetPos("Paragraph1").X,- Paragraph.GetSize("Paragraph2").Height)
Paragraph.SetPos("Paragraph2",- Paragraph.GetSize("Paragraph2").Width , Paragraph.GetPos("Paragraph2").Y)
Paragraph.SetPos("Paragraph3", Paragraph.GetPos("Paragraph3").X, Page.GetSize().Height)
igli = {
"ÝßÑÉ : ÈåÇÈ ÚÈÏ ÇáåÇÏí",
"ÊÕãíã : ÃÈæ ÂáÇÁ",
"ÊÌÑíß: ÇáÊÇíãÑ Ýí ÇáÇæÊæÈáÇí",
"ÇÚÏÇÏ : ÇáÈÇÑÛÑÇÝ",
"ÎáÝíÇÊ : ÈíÖÇÁ",
" ÊÍÑíß: ÊÇíãÑ",
"ÇßæÇÏ : ÊÇíãÑæ ÇæäÔÇæ",
"ÇáãÚáæãÇÊ : Ýí ÈÏÇÈÉ ÇáÕÞÍÉ",
"ÇáæÞæÏ : ÇáÕáÇÉ Úáì ÇáäÈí",
"ÇáãÇÁ : ÇáÊÓÈíÍ æ ÇáÊÍãíÏ",
"ÇÎÑÇÌ : ÕÏÞÉ ÌÇÑíÉ",
"ÓÇÆÞ : ÇáÊæßá Úáì Çááå",
"ãÓÇÚÏ : Çáãáßíä",
"ÇÔÑÇÝ ÚÇã : ÑÞíÈ æ ÚÊíÏ",
"2017 / 2018" }
الان في on show
كود PHP:
x=1; y=1;
Page.StartTimer(10,x);
for i = 1,3 do
Paragraph.SetText("Paragraph"..i, igli[y]) ; y=y+1
end
الان في ontimer
كود PHP:
if e_ID == 1 then
if Paragraph.GetPos("Paragraph"..x).Y >= pos[1].Y then
Page.StopTimer(1); Page.StartTimer(10, 4);
x=2;
else
Paragraph.SetPos("Paragraph"..x, Paragraph.GetPos("Paragraph"..x).X, Paragraph.GetPos("Paragraph"..x).Y+5)
Image.SetPos("Image1",Paragraph.GetPos("Paragraph"..x).X-228, Paragraph.GetPos("Paragraph"..x).Y-56)
end
end
if e_ID == 2 then
if Paragraph.GetPos("Paragraph"..x).X >= pos[2].X then
Page.StopTimer(2);
Page.StartTimer(10, 4); x=3;
else
Paragraph.SetPos("Paragraph"..x, Paragraph.GetPos("Paragraph"..x).X+5, Paragraph.GetPos("Paragraph"..x).Y)
Image.SetPos("Image1",Paragraph.GetPos("Paragraph"..x).X-228, Paragraph.GetPos("Paragraph"..x).Y-56)
end
end
if e_ID == 3 then
if Paragraph.GetPos("Paragraph"..x).Y <= pos[3].Y then
Page.StopTimer(3);
Paragraph.SetPos("Paragraph1", Paragraph.GetPos("Paragraph1").X,- Paragraph.GetSize("Paragraph2").Height)
Paragraph.SetPos("Paragraph2",- Paragraph.GetSize("Paragraph2").Width , Paragraph.GetPos("Paragraph2").Y)
Paragraph.SetPos("Paragraph3", Paragraph.GetPos("Paragraph3").X, Page.GetSize().Height)
if y > #igli then Page.Jump("Page2") end
for i = 1,3 do
Paragraph.SetText("Paragraph"..i, igli[y]) ; y=y+1;
end Label.SetText("Label1", y) ;
Application.Sleep(500);
Page.StartTimer(10, 4); x=1;
else
Paragraph.SetPos("Paragraph"..x, Paragraph.GetPos("Paragraph"..x).X, Paragraph.GetPos("Paragraph"..x).Y-5)
Image.SetPos("Image1",Paragraph.GetPos("Paragraph"..x).X-228, Paragraph.GetPos("Paragraph"..x).Y-56)
end
end
if e_ID == 4 then
if Image.GetPos("Image1").Y >= Page.GetSize().Height then
Page.StopTimer(4);
if y < #igli+3 then Page.StartTimer(10, x); end
else
Image.SetPos("Image1",Image.GetPos("Image1").X , Image.GetPos("Image1").Y+5)
end
end
معاينة
تعليق