عبد الهادي بهاب

عبد الهادي بهاب

عضو ذهبي
#1
اليوم مع الرياضيات في موضوع الكسور
وجدت ملفا جميلا حول جدا الكسور و حاولت انجازه البرنامج بالاوتوبلاي )
و الحمد لله تم ذلك بشكل يسير ..........
"لفكرة هو انشاء مربعات بعدد معين يتماثل مع مقامي الكسرين
يعني مثلا اذا كان لدينا 1/5 و الكسر 2/7 ........فاولا نقسم طول المستقيم العمودي الى مقام الكسر الاول 5 ...... و نقسم طول المستقيم الافقي على مقام الكسر الثاني 7 ......و بالتالي نجعل الكود يشكل لنا مربعات طولها هو التانج الاول و عرضها الناتج الثاني .....
ثم نلون فقط عدد من المربعات و الذي هز جداء البسيط و هو في مثالنا 2

الكود الاساسي للعمل كله هو :
PHP:
 function ala()
 v1 = tonumber(Label.GetText("Lab1"));
 v2 = tonumber(Label.GetText("Lab2"));
 v3 = tonumber(Label.GetText("Lab3"));
 v4 = tonumber(Label.GetText("Lab4"));
 Label.SetText("mu1", v1*v3);
 Label.SetText("mu2", v2*v4);
 for i =1,9 do 
 Page.DeleteObject("p"..i);
 for p =1,9 do
 Page.DeleteObject("m"..i..p);
 end end
 
 pre = Paragraph.GetPos("ver");
 Nver = tonumber(Label.GetText("Label2"));
 Nhor = tonumber(Label.GetText("Label4"));
 
 -- Paragraph object properties table.
 tblParaProps = {};
 tblParaProps.Text = "";
 tblParaProps.X = pre.X+4;
 tblParaProps.Y = pre.Y;
 tblParaProps.Width = 630/Nhor;
 tblParaProps.Height = 630/Nver;
 tblParaProps.BGColor = Math.HexColorToNumber("FFFFFF");
 tblParaProps.BorderStyle = BORDER_SOLID;
 tblParaProps.BGStyle  = BG_SOLID ;
 tblParaProps.BorderColor = Math.HexColorToNumber("000000");
 tblParaProps.ScrollStyle = SCROLL_STANDARD;
 Page.CreateObject(OBJECT_PARAGRAPH, "m11", tblParaProps);
 
 for i=2,Nver do
 tblParaProps.X = Paragraph.GetPos("m1"..(i-1)).X  ;
 tblParaProps.Y = Paragraph.GetPos("m1"..(i-1)).Y + 630/Nver  ;
 Page.CreateObject(OBJECT_PARAGRAPH, "m1"..i, tblParaProps);
 end
 
 
 for p = 1,Nhor-1 do
 for i= 1,Nver do
 tblParaProps.Width = 630/Nhor;
 tblParaProps.Height = 630/Nver;
 tblParaProps.X = Paragraph.GetPos("m1"..i).X + 630/Nhor*p; 
 tblParaProps.Y = Paragraph.GetPos("m1"..i).Y ;
 Page.CreateObject(OBJECT_PARAGRAPH, "m"..(p+1)..i, tblParaProps);
 end end
 
 
 -------------------------------------color------
 
 Cv = tonumber(Label.GetText("Label1"));
 Ch = tonumber(Label.GetText("Label3"));
 for i= Nver-Cv+1,Nver do
 for p=1,Ch do
 Paragraph.SetProperties("m"..p..i, {BGColor = 39423});
 end
 end
 
 
 
 
 
 end------------ala
مثال على المشروع كتطبيق :



http://www.mediafire.com/file/w3ainz6z0l286e9/Mult_Fractions.exe
او
http://mediafire.com/download/002/2/Mult_Fractions.rar

و شكل ذلك كالتالي :



لمن يريد فهم الاكواد بشكل مفصل الملف المفتوح :
http://www.mediafire.com/file/ppci46w36cts7qm/mult%20frac.apz
او
http://mediafire.com/download/002/2/mult.frac.rar

بالتوفيق في مشاريعكم العلمية لا تنسوا الدعاء
 

saaaaaam

saaaaaam

الوسـام الماسـي
#2
ما شاء الله تبارك الرحمن
جهود ملحوظة وجبارة بارك الله فيك وجزيت من الخير إجزلة
 

torrenty

الوسـام الماسـي
#3
شكرا لك .
 
سعد الدين

سعد الدين

المسؤول الفني
#4
ماشاء الله عليك لم تبخل بأي معلومة عنا فبارك الله بك والف شكر .
 
عبد الهادي بهاب

عبد الهادي بهاب

عضو ذهبي
#5
ما شاء الله تبارك الرحمن
جهود ملحوظة وجبارة بارك الله فيك وجزيت من الخير إجزلة
تحية لكم ... شطرا لفريق الادارة على المتابعة ..و اعاتكم الله

و ربي يحفظكم استاذ

ماشاء الله عليك لم تبخل بأي معلومة عنا فبارك الله بك والف شكر .
منكم تعلمنا استاذ سعد ...ربي يعينكم و يحفظكم
 

أعلى