-
-
شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
تعليق
-
رأى الشخصى واجب دعم الشرح بملف مفتوح " المفروض الشرح للمبتدئين "
تعليق
-
تحية لكم استاذالمشاركة الأصلية بواسطة خادم المسلمين مشاهدة المشاركةشـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
رايكم جد محترم ... نترك فترة زمنية لنتعرف محاولات الاخوة ........( نتمنى ذلك طبعا ) .....ثم ننزل الملف المفتوح للمشروعالمشاركة الأصلية بواسطة عبود عبود مشاهدة المشاركةرأى الشخصى واجب دعم الشرح بملف مفتوح " المفروض الشرح للمبتدئين "
الفكرة ترك المجال للمحاولات
شكرا استاذ عبودتعليق
-
جزاكم الله خيرا اخي عبد الهادي على جهودكم القيمة
تعليق
-
هذا تطبيقيالمشاركة الأصلية بواسطة عبد الهادي بهاب مشاهدة المشاركة
في عندس خطأ
أين ؟
https://up.top4top.net/downloadf-821fingb1-rar.htmlتعليق
-
السلام عليكم ورحمة الله وبركاتهالمشاركة الأصلية بواسطة يوسف البراهيم مشاهدة المشاركة
اولا شكرا على متابعة الدرس و على المشروع الناجح
----------
اولا لم تدخل الكود الخاص بزر qus
كود PHP:Page.StopTimer(1); Page.StopTimer(2);
gh = Math.Random(1,#qustion);
Paragraph.SetText("P_qustion", qustion[gh]);
sd = String.Length(repeons[gh]);
find1 = String.Find(repeons[gh], ".", 1);
find2 = String.Find(repeons[gh], ":", 1);
find3 = String.Find(repeons[gh], "@", 1);
ch1 = String.Mid(repeons[gh],1, find1-2); Paragraph.SetText("Paragraph1", ch1);
ch2 = String.Mid(repeons[gh], find1+1, find2-find1-1); Paragraph.SetText("Paragraph2", ch2);
ch3 = String.Mid(repeons[gh], find2+2, find3-find2-2); Paragraph.SetText("Paragraph3", ch3);
ch4 = String.Mid(repeons[gh], find3+1 , sd -find3); Paragraph.SetText("Paragraph4", ch4);
Table.Remove(qustion,gh);
Table.Remove(repeons,gh);
vrai = Paragraph.GetText("Paragraph1") ;
v2 = Paragraph.GetText("Paragraph2") ;
v3 = Paragraph.GetText("Paragraph3") ;
v4 = Paragraph.GetText("Paragraph4") ;
for i=1,4 do dd = Math.Random(1,#Ppos);
Paragraph.SetProperties("Paragraph"..i ,{BGColor = Math.HexColorToNumber("FFFF00")});
Paragraph.SetEnabled("Paragraph"..i, true);
Paragraph.SetPos("Paragraph"..i, Ppos[dd].X, Ppos[dd].Y); Table.Remove(Ppos,dd);
end
Ppos={};for i=1,4 do Ppos[i] = Paragraph.GetPos("Paragraph"..i); end
ثانيا : غير تسمية c1 الى تسمية من اختيارك لانها تتداخل مع قيم اخرى ة لتكن مثلا igli
on preload
كود PHP:old = Image.GetPos("flech");
Ppos = {};
for i=1,4 do
Ppos[i] = Paragraph.GetPos("Paragraph"..i);
end
igli=1;
on timer
كود PHP:if e_ID == 1 then
Paragraph.SetProperties("Paragraph"..d, {BGColor = Math.HexColorToNumber("003399")});
igli= igli+1;
if igli >= 15 then Page.StopTimer(1);Page.StopTimer(2); igli=0;
Paragraph.SetProperties("Paragraph"..d ,{BGColor = Math.HexColorToNumber("FFFF00")});
Page.ClickObject("qus1");
else
Page.StopTimer(1); Page.StartTimer(100,2);
end end
if e_ID == 2 then
Paragraph.SetProperties("Paragraph"..d, {BGColor = Math.HexColorToNumber("00CCFF")});
igli= igli+1;
if igli >= 15 then Page.StopTimer(1);Page.StopTimer(2); igli=0;
Paragraph.SetProperties("Paragraph"..d ,{BGColor = Math.HexColorToNumber("FFFF00")});
Page.ClickObject("qus1");
else
Page.StopTimer(2); Page.StartTimer(100,1);
end end
if e_ID == 5 then
qustion = TextFile.ReadToTable("AutoPlay\\Docs\\pro.txt")
repeons = TextFile.ReadToTable("AutoPlay\\Docs\\rep.txt")
for i=1,10 do
Image.Load("Image"..i, "AutoPlay\\Images\\22.png")
Paragraph.SetProperties("P"..i ,{BGColor = Math.HexColorToNumber("FFFFFF")});
Image.SetPos("flech", old.X, old.Y); x=0 ; err = 0 ;
end
Image.SetVisible("ami", true);
Image.SetVisible("comp", true);
Image.SetVisible("tel", true);
Paragraph.SetVisible("Pacomp", true);
Paragraph.SetVisible("Patel", true);
Paragraph.SetVisible("papub", true);
Application.Sleep(1500);
Page.igliickObject("qus");
end
ثالثا : في صور الجمهور و الاتصال بصديق ....في اعدادات الصور attribute في الاسفل في ِ Cursor عير المؤشر الى اليد Hand ثم في اسفل منه في الاصوات highlit و ِClik غير الخيار الى standar فتصبح الصورة كانها زر
رابعا : في ملف docs غير الملف pro و ليس pro1
اخيرا اجعل الخلفية بيضاء تماما
بالتوفيقتعليق
-
الله يعطيك الف عافية
الامور ممتازةتعليق
تويت
تعليق