تصميم جينيريك او مقدمة لمشروعك

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

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

افتح صفحة جديدة ..........

ضع في مجلد الصور هذه الصورة

https://a.top4top.net/p_806ssafq1.jpg

ضع 3 من عنصر البارغراف و اجعل عرضه متوافقا مع المسافة بين الاصبعين و يظهر كانه يمسك الاطار الاسود

و اجلعهم الواحد اسفل الاخر

في الحدث on preload ضع الكوذ التالي

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" }

في المقفوفة igli ضع ما تريده من معلومات الجينيرك من اعدا و نقديم

الان في on show
x=1; y=1;
Page.StartTimer(10,x);
for i = 1,3 do
Paragraph.SetText("Paragraph"..i, igli[y]) ; y=y+1
end


الان في ontimer

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

ثم ضف صقحة ثانية و اجعل فيها باراغاف او ليبال فيه الترحيب

معاينة

https://c.top4top.net/p_806sppoa1.gif

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

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

الفكرة الثانية

نضع صورتين التاليتين في مجلد الصور

https://a.top4top.net/p_8062gthy1.jpg

https://a.top4top.net/p_806ssafq1.jpg

نضع لكل منهما بارغراف عرضه متوافق مع المسافة بين الاصبعين

الان في on preload

pos={}; for i=1,2 do pos[i] = Paragraph.GetPos("Paragraph"..i) end


Paragraph.SetPos("Paragraph2",- Paragraph.GetSize("Paragraph2").Width , Paragraph.GetPos("Paragraph2").Y)
Paragraph.SetPos("Paragraph1", Page.GetSize().Width, Paragraph.GetPos("Paragraph1").Y)

Image.SetPos("Image2",- Image.GetSize("Image2").Width , Image.GetPos("Image2").Y)
Image.SetPos("Image1", Page.GetSize().Width, Image.GetPos("Image1").Y)

ali = {
"ÚÈÏ ÇáåÇÏí",
"ÚÈÏ ÇáÑÍãä",
"ÇáäÈí",
"ÇÈä ÚÈÏ Çááå",
"ÇãäÉ",
"ÍÏíÌÉ" };

igli = {
"ÇÎÑÇÌ",
"ÇÚÏÇÏ",
"ÕáæÇ Úáì",
"ãÍãÏ",
"Ããå",
"ÒæÌå" };

بحيث نضع في المجموعة igli كلمات الاحراج و الاشارف و الاعادا و و و
و في المجموعة ali نضع الاسماء

في الحدث on show

Page.StartTimer(10,1);
y=1;
Audio.Load(CHANNEL_NARRATION, "AutoPlay\\Audio\\nahih.wma", true)

Paragraph.SetText("Paragraph1", igli[y]);
Paragraph.SetText("Paragraph2", ali[y]);
y=y+1

وضع رابط الملف الموسيفي المارفق للمقدمة في audio

الان في التايمر

if e_ID == 1 then
if Paragraph.GetPos("Paragraph1").X <= pos[1].X -10 then
Page.StopTimer(1);
Application.Sleep(1500);
Paragraph.SetPos("Paragraph2",- Paragraph.GetSize("Paragraph2").Width , Paragraph.GetPos("Paragraph2").Y)
Paragraph.SetPos("Paragraph1", Page.GetSize().Width, Paragraph.GetPos("Paragraph1").Y)
Image.SetPos("Image2",- Image.GetSize("Image2").Width , Image.GetPos("Image2").Y)
Image.SetPos("Image1", Page.GetSize().Width, Image.GetPos("Image1").Y)
Paragraph.SetText("Paragraph1", igli[y]);
Paragraph.SetText("Paragraph2", ali[y]);
y=y+1; Label.SetText("Label1", y)
if y >= #igli then Page.Jump("Page2"); else Page.StartTimer(10,1); end
else
Paragraph.SetPos("Paragraph1", Paragraph.GetPos("Paragraph1").X-5, Paragraph.GetPos("Paragraph1").Y)
Image.SetPos("Image1",Paragraph.GetPos("Paragraph1").X-110,Image.GetPos("Image1").Y)
Paragraph.SetPos("Paragraph2", Paragraph.GetPos("Paragraph2").X+5, Paragraph.GetPos("Paragraph2").Y)
Image.SetPos("Image2",Paragraph.GetPos("Paragraph2").X-210, Image.GetPos("Image2").Y)
end
end



لا تنسى وضع صفحة ثانية للترحيب

معاينة

https://d.top4top.net/p_806x07tv1.gif

[azizsoft]

بارك اللهم فيكم أخي عبد الهادي
أفكار جميلة :abc_022:

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

بارك اللهم فيكم أخي عبد الهادي
أفكار جميلة :abc_022:

تسلم استاذ عزيز

[حياة الفريد]

جزاك الله خيرا

[حياة الفريد]

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

ضع 3 من عنصر البارغراف و اجعل عرضه متوافقا مع المسافة بين الاصبعين و يظهر كانه يمسك الاطار الاسود




أين نضع عنصر البارغراف

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

أين نضع عنصر البارغراف
في ملف docs