إعـــــــلان

**ياسرهتهت ياسرهتهت** · 08-12-2015, 10:53 PM

بسم الله الرحمن الرحيم
ما شاء الله تبارك الرحمن
ابدع وتميز وعطاء
لاحدد له استاذي الفاضل
ابوبلقيس

بارك الله فيك وزادك علم على علم

تم التطبيق والملف المفتوح في المرفقات

من الواضح ان الكود يقوم برسم الدائر بوضع عدد من النقاط في مسافة ثابتة عن نقطة ثابتة هي مركز الصفحة
موفق بإذن الله ... لك مني أجمل تحية .

الملفات المرفقة

R-DRO.rar (10.4 كيلوبايت, 33 مشاهدات)

**ثامر أبو بلقيس ثامر أبو بلقيس** · 08-12-2015, 11:00 PM

مرور طيب اخي ياسر بارك الله فيك على الملف المفتوح
سعدت بوصول المعلومة لك شكرا

عبد الهادي بهاب · 08-12-2015, 11:14 PM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله وبركاته
المحاولة كالعادة لا تتطلب منك ردودا موفق

فكرة جميلة جدا و روعة ...........

بناءا عليه يمكن اضافة خاصية تحديد القطر و لون خط الدائرة .............

هذا مثال تطبيقي لكود الاستاذ مع اضافة خاصية اللون

http://up.top4top.net/downloadf-top4...dcae1-rar.html

فيه افكار اخرى تطبيقية لهذا الكود الرائع ..........ان شاء الله نعمل عليها

عبد الهادي بهاب · 08-12-2015, 11:15 PM

المشاركة الأصلية بواسطة ياسرهتهت مشاهدة المشاركة

بسم الله الرحمن الرحيم
ما شاء الله تبارك الرحمن
ابدع وتميز وعطاء
لاحدد له استاذي الفاضل
ابوبلقيس

بارك الله فيك وزادك علم على علم

تم التطبيق والملف المفتوح في المرفقات

من الواضح ان الكود يقوم برسم الدائر بوضع عدد من النقاط في مسافة ثابتة عن نقطة ثابتة هي مركز الصفحة
موفق بإذن الله ... لك مني أجمل تحية .

شكرا استاذ ياسر على الملف شكرا جزيلا

**ثامر أبو بلقيس ثامر أبو بلقيس** · 08-12-2015, 11:42 PM

متوقع منك ملف مميز أخي المحترف لترسيخ ما نصل إليه .. بارك الله فيك

شكرا جزيـــــلا

جيد لو تكون الفكرة البسيطة إنطلاقة لأعمال مميزة لذلك قد
تراودك أفكار مشابهة تعنى بالتطبيقات الهندسية و تزويد المتعلمين ببرمجيات تعليمية موفق

**azizsoft azizsoft** · 09-12-2015, 12:33 AM

الحمدلله والصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

مبدع دوما يا أستاذ

جزاكم الله خيرا ونفع بكم

عبد الهادي بهاب · 09-12-2015, 12:33 AM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

متوقع منك ملف مميز أخي المحترف لترسيخ ما نصل إليه .. بارك الله فيك

شكرا جزيـــــلا

جيد لو تكون الفكرة البسيطة إنطلاقة لأعمال مميزة لذلك قد
تراودك أفكار مشابهة تعنى بالتطبيقات الهندسية و تزويد المتعلمين ببرمجيات تعليمية موفق

شكرا استاذ و منكم نتعلم

هذه فكرة تحتاج الى تعديل

-------------------- رسم مربع برمجيا -----------------

ضع انبوت input1 خاص بطول ضلع المربع

------- يفضل ان تعطيه قيمة اكبر من 50 حتى يظهر -----

ضع انبوت اخر input2 خاص بمواقع المربع في الصفحة

--------- اجعلها 50 او اكثر حتى كون في منتصف الصفحة --------

ضع في زر هذا الكود

كود PHP:


qtr = String.ToNumber(Input.GetText("Input1")); ---------- طول الضلع
-----------------------------------
pos = String.ToNumber(Input.GetText("Input2"));--------مكان المربع في الصفحة
-----------------------------------
for i = 1, qtr+pos do ------------- مسح المربع السابق
Page.DeleteObject("NewObject"..i);
Page.DeleteObject("NewObjec"..i);
Page.DeleteObject("NewObje"..i);
Page.DeleteObject("NewObj"..i);
end  
-------------------------------------انشاء نقطة---------------------
v = Window.GetSize(Application.GetWndHandle());
tblLabelProps = {};
tblLabelProps.Text = ".";
tblLabelProps.FontName = "Arial";
tblLabelProps.FontSize = 20;
tblLabelProps.FontWeight = FW_BOLD;
-----------الضلع العلوي-------
for i = pos, qtr+pos do
X = i
Y = pos
tblLabelProps.Y = X;
tblLabelProps.X = Y;
Page.CreateObject(OBJECT_LABEL, "NewObject"..i, tblLabelProps);
end  
------------الضلع الايمن-------
for p = pos, qtr+pos do
X = pos+qtr
Y = p
tblLabelProps.Y = X;
tblLabelProps.X = Y;
Page.CreateObject(OBJECT_LABEL, "NewObjec"..p, tblLabelProps);
end  
----------الضلع السفلي---------
for t = qtr+pos, pos, -1 do
X = t
Y = pos + qtr
tblLabelProps.Y = X;
tblLabelProps.X = Y;
Page.CreateObject(OBJECT_LABEL, "NewObje"..t, tblLabelProps);
end  
-----------الضلع الايسر----------
for r = qtr+pos, pos, -1 do
X = pos
Y = r
tblLabelProps.Y = X;
tblLabelProps.X = Y;
Page.CreateObject(OBJECT_LABEL, "NewObj"..r, tblLabelProps);
end  
------------------------------

بالتوفيق

عبد الهادي بهاب · 09-12-2015, 12:54 AM

لرسم مثلث قائم برمجيا

دائما ضع 2 من الانبوت الاول لطول ضلع المثلث و الثاني لمكانه في الصفحة
في زر ارزع هذا الكود :

كود PHP:


q = String.ToNumber(Input.GetText("Input1")); ---------- &#216;æá ÇáÖáÚ
-----------------------------------
p = String.ToNumber(Input.GetText("Input2"));--------&#227;ßÇä ÇáãÑÈÚ Ýí ÇáÕÝÍÉ

s = q+p
-----------------------------------
for i = 1, s do ------------- &#227;ÓÍ ÇáãÑÈÚ ÇáÓÇÈÞ
Page.DeleteObject("NewObject"..i);
Page.DeleteObject("NewObjec"..i);
Page.DeleteObject("NewObje"..i);
Page.DeleteObject("NewObj"..i);
end  
-------------------------------------&#199;äÔÇÁ äÞØÉ---------------------
v = Window.GetSize(Application.GetWndHandle());
tblLabelProps = {};
tblLabelProps.Text = ".";
tblLabelProps.FontName = "Arial";
tblLabelProps.FontSize = 20;
tblLabelProps.FontWeight = FW_BOLD;
-------&#199;áÖáÚ ÇáÇæá-------
for i = p, s do
X = i
Y = i
tblLabelProps.Y = X;
tblLabelProps.X = Y;
Page.CreateObject(OBJECT_LABEL, "NewObject"..i, tblLabelProps);
end  
--------&#199;áËÇäí-------
for n = s, p , -1 do
X = n
Y = p
tblLabelProps.Y = X;
tblLabelProps.X = Y;
Page.CreateObject(OBJECT_LABEL, "NewObjec"..n, tblLabelProps);
end  
---------&#199;áËÇáË---------
for t = s, p, -1 do
X = s
Y = t
tblLabelProps.Y = X;
tblLabelProps.X = Y;
Page.CreateObject(OBJECT_LABEL, "NewObje"..t, tblLabelProps);
end  
------------------------------

بالتوفيق ------

**ياسرهتهت ياسرهتهت** · 09-12-2015, 01:08 AM

بسم الله الرحمن الرحيم
عمل رائع اخي المحترف
بارك الله فيك

اريد خط مستقيم بين نقطتان معلومة الاحدثيات

موفق بإذن الله ... لك مني أجمل تحية .

عبد الهادي بهاب · 09-12-2015, 01:23 AM

المشاركة الأصلية بواسطة ياسرهتهت مشاهدة المشاركة

بسم الله الرحمن الرحيم
عمل رائع اخي المحترف
بارك الله فيك

اريد خط مستقيم بين نقطتان معلومة الاحدثيات

موفق بإذن الله ... لك مني أجمل تحية .

اجابة على السريع ........... في كود المربع ..........
اختر فقط الضلع العلوي فهو يفي بالغرض باعتبار نقطة البداية هي الموقع و طول المستقيم هو الاحداثية الثانية .........
مدام لم يتغير احداثيات y فهو سهل

اذا اردته مائل خذ كود الضلع الاول من كود المثلث القائم ............

اذا اردت قوس فقط فخذ كود الدائرة و انقص عدد 360 الى 150 مثلا اي دائرة غير مكتملة

طبعا يمكن الدمج بينها من اجل كود مثلا الامواج في البحر ......
او نافذة بها مثلثات ..........
او لرسم منزل بسيط جدا بمدفئة ........
او سيارة بعجلات ..........الخ
----------
من اجل التمرين : كود يرسم لنا هذا الشكل

**ثامر أبو بلقيس ثامر أبو بلقيس** · 09-12-2015, 07:06 PM

المشاركة الأصلية بواسطة ياسرهتهت مشاهدة المشاركة

بسم الله الرحمن الرحيم
اريد خط مستقيم بين نقطتان معلومة الاحدثيات

سأبحث لك من داخل الجهاز لدي ملفات متعلقة بهذا الشأن

برجاء ما المقصود باحداثبات معلومة هل تقصد نقطتين أو عنصرين على صفحة المشروع

أم الاحداثبات هي معطيات فقط

**ياسرهتهت ياسرهتهت** · 09-12-2015, 08:33 PM

المشاركة الأصلية بواسطة ثامر أبو بلقيس مشاهدة المشاركة

سأبحث لك من داخل الجهاز لدي ملفات متعلقة بهذا الشأن

برجاء ما المقصود باحداثبات معلومة هل تقصد نقطتين أو عنصرين على صفحة المشروع

أم الاحداثبات هي معطيات فقط

--------------------------------------------------------------
اقصد عنصرين

**ثامر أبو بلقيس ثامر أبو بلقيس** · 09-12-2015, 09:36 PM

السلام عليكم ورحمة الله وبركاته
سأعدل لك على احدى الملفات

في global functions اكتب

كود PHP:


function DrawL2R(fX,fY,tX,tY) 

mX = tX - fX; 

mY = tY - fY;

if mY > mX then base = mY else base = mX end 

lblDefault = Label.GetProperties("lblGraph1")

wX=fX; wY=fY

while wX < tX do

wX = wX + (mX / base)

wY = wY + (mY / base)

Page.CreateObject(OBJECT_LABEL, "lblGraph"..x, lblDefault)

Label.SetPos("lblGraph"..x, wX, wY);

Label.SetVisible("lblGraph"..x, true);

x=x+1;

end

end

==============================================
ضع في النجميعية عنصري Label كلا منهما مكتوب فيه نقطة
==============================================

كود الرسم

كود PHP:


props = Label.GetProperties("lblGraph1")

props.ColorNormal = Math.HexColorToNumber("0000FF")

Label.SetProperties("lblGraph1", props)

belkiss = Label.GetPos("Label1");

belkiss2 = Label.GetPos("Label2");

DrawL2R(belkiss.X,belkiss.Y,belkiss2.X,belkiss2.Y)

موفق

ملاحظة وضع كل عنصر على المحاور

لا يهم تواجد من حيث المكان فقط الانتباه لوضع الانبوت الأول

**ثامر أبو بلقيس ثامر أبو بلقيس** · 10-12-2015, 05:41 PM

طبعا الاكواد لن تعمل ........ لأنه ببساطة نسيت جملة لم أكتبها طبعا ليست كود بل جملة
-----------------------------------------
اكتشفها و موفق

إعـــــــلان

رسم دائرة برمجيا

رسم دائرة برمجيا

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

تعليق

مواضيع تهمك