ملف مفتوح ...التمثيل البياني لجداء كسرين

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

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

الكود الاساسي للعمل كله هو :


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

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

https://b.top4top.net/p_822qik881.gif

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

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

[فرح صالحي]

شـكــ وبارك الله فيك ـــرا لك ...:abc_152: لك مني أجمل تحية .