اليوم مع الرياضيات في موضوع الكسور
وجدت ملفا جميلا حول جدا الكسور و حاولت انجازه البرنامج بالاوتوبلاي )
و الحمد لله تم ذلك بشكل يسير ..........
"لفكرة هو انشاء مربعات بعدد معين يتماثل مع مقامي الكسرين
يعني مثلا اذا كان لدينا 1/5 و الكسر 2/7 ........فاولا نقسم طول المستقيم العمودي الى مقام الكسر الاول 5 ...... و نقسم طول المستقيم الافقي على مقام الكسر الثاني 7 ......و بالتالي نجعل الكود يشكل لنا مربعات طولها هو التانج الاول و عرضها الناتج الثاني .....
ثم نلون فقط عدد من المربعات و الذي هز جداء البسيط و هو في مثالنا 2
الكود الاساسي للعمل كله هو :
PHP Code:
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/w3ainz..._Fractions.exe
او
http://s6.alxa.net/002/2/Mult_Fractions.rar
و شكل ذلك كالتالي :
لمن يريد فهم الاكواد بشكل مفصل الملف المفتوح :
http://www.mediafire.com/file/ppci46...ult%20frac.apz
او
http://s6.alxa.net/002/2/mult.frac.rar
بالتوفيق في مشاريعكم العلمية لا تنسوا الدعاء