مشروع مفتوح .... انشاء ورقة مليمترية بطريقة دقيقة برمجيا

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

السلام عليكم ورحمة الله وبركاته
في مشروع جديد
في زر ضع هذا الكود


tImageProperties = {};
tImageProperties.ImageFile = "AutoPlay\\Images\\L.png";
--------------h-------------------
for i = 1,60 do
tImageProperties.Width = 400;
tImageProperties.Height = 1;
tImageProperties.X = 100;
tImageProperties.Y =(i*5)+100;
Page.CreateObject(OBJECT_IMAGE, "h"..i, tImageProperties);
end
---------------bas----------------------------------
-------------- v -----------
for t = 1,80 do
tImageProperties.Width = 1;
tImageProperties.Height = 300;
tImageProperties.X = (t*5)+100;
tImageProperties.Y = 100;
Page.CreateObject(OBJECT_IMAGE, "v"..t, tImageProperties);
end

----------- c --------------
for i=1,15 do
p=i*5
Image.SetProperties("v"..p,{Width=2});
end

for i=1,12 do
p=i*5
Image.SetProperties("h"..p,{Height=2});
end

Image.SetProperties("h30",{Height=3});
Image.SetProperties("v40",{Width=3});


طبعا قبلها ضع هذه الصورة في ملف الصور

[ http://cdn.top4top.co/p_559zf6n99x1.png ]

http://cdn.top4top.co/p_559zf6n99x1.png

و سميها L

[فرح صالحي]

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

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

من اجل تحديد نقاط التلاقي بين الخطوط .............. نضيف نقطة صغيرة

ضع هذه الصورة في ملف الصور

http://cdn.top4top.co/p_5597qvmkwd1.png

http://cdn.top4top.co/p_5597qvmkwd1.png

و سميها p

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


tImageProperties = {};
tImageProperties.Cursor = CURSOR_HAND;
tImageProperties.Width = 5;
tImageProperties.Height = 5;
tImageProperties.ImageFile = "AutoPlay\\Images\\p.png";
--------------6------------------
for i = 1,16 do
p=i*5
v = i-8
tImageProperties.X = (Image.GetPos("v"..p).X)-2;
tImageProperties.Y = 100;
Page.CreateObject(OBJECT_IMAGE, "p6"..v, tImageProperties);
end
------------5 --------------------
for i = 1,16 do
p=i*5
v = i-8
tImageProperties.X = (Image.GetPos("v"..p).X)-2;
tImageProperties.Y = 124;
Page.CreateObject(OBJECT_IMAGE, "p5"..v, tImageProperties);
end
-----------------4 ----------------------
for i = 1,16 do
p=i*5
v = i-8
tImageProperties.X = (Image.GetPos("v"..p).X)-2;
tImageProperties.Y = 149;
Page.CreateObject(OBJECT_IMAGE, "p4"..v, tImageProperties);
end
--------------------3 -------------------
for i = 1,16 do
p=i*5
v = i-8
tImageProperties.X = (Image.GetPos("v"..p).X)-2;
tImageProperties.Y = 174;
Page.CreateObject(OBJECT_IMAGE, "p3"..v, tImageProperties);
end
--------------------2 --------------------
for i = 1,16 do
p=i*5
v = i-8
tImageProperties.X = (Image.GetPos("v"..p).X)-2;
tImageProperties.Y = 199;
Page.CreateObject(OBJECT_IMAGE, "p2"..v, tImageProperties);
end
----------------------- 1 -----------------
for i = 1,16 do
p=i*5
v = i-8
tImageProperties.X = (Image.GetPos("v"..p).X)-2;
tImageProperties.Y = 224;
Page.CreateObject(OBJECT_IMAGE, "p1"..v, tImageProperties);
end
--------------0 -----------------
for i = 1,16 do
p=i*5
v = i-8
tImageProperties.X = (Image.GetPos("v"..p).X)-2;
tImageProperties.Y = 249;
Page.CreateObject(OBJECT_IMAGE, "p0"..v, tImageProperties);
end
------------ - 1 --------------------
for i = 1,16 do
p=i*5
v = i-8
tImageProperties.X = (Image.GetPos("v"..p).X)-2;
tImageProperties.Y = 274;
Page.CreateObject(OBJECT_IMAGE, "p-1"..v, tImageProperties);
end
----------------- - 2 ----------------------
for i = 1,16 do
p=i*5
v = i-8
tImageProperties.X = (Image.GetPos("v"..p).X)-2;
tImageProperties.Y = 299;
Page.CreateObject(OBJECT_IMAGE, "p-2"..v, tImageProperties);
end
------------------- -3 -------------------
for i = 1,16 do
p=i*5
v = i-8
tImageProperties.X = (Image.GetPos("v"..p).X)-2;
tImageProperties.Y = 324;
Page.CreateObject(OBJECT_IMAGE, "p-3"..v, tImageProperties);
end
-------------------- - 4 --------------------
for i = 1,16 do
p=i*5
v = i-8
tImageProperties.X = (Image.GetPos("v"..p).X)-2;
tImageProperties.Y = 349;
Page.CreateObject(OBJECT_IMAGE, "p-4"..v, tImageProperties);
end
----------------------- -5 -----------------
for i = 1,16 do
p=i*5
v = i-8
tImageProperties.X = (Image.GetPos("v"..p).X)-2;
tImageProperties.Y = 374;
Page.CreateObject(OBJECT_IMAGE, "p-5"..v, tImageProperties);
end



التسمية متعمدة من اجل مشروع الرياضيات

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

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

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
اي رابط ......انا لم اضع رابطا ..........بل هي صورة فقط

[فرح صالحي]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
اي رابط ......انا لم اضع رابطا ..........بل هي صورة فقط
نعم قصدت رابط الصورة
اذا كانت ضرورية للملف المفتوح طبعا ؟

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

تتمة للموضوع ............. في مشروع لنجوم ليبيا هناك سؤال عن تحديد نقطة باحداثيات مطلوبة ........و من اجل عدم تكرار الكود لكل نقطة ....... اعتمدت على سيناريو اخر ...
...:abc_152:....كما نصحنا الاستاذ المهاجر من قبل ...:abc_152:.......
.. هو ان نجعل البرنامج ينشئ نقط و تسميتها هي نفس احداثياتها و من خلال الاجابة سيعمل زر التصحيح على المقارنة فقط بين نصين ............ النقطة محل السؤال ستعطينا موقعا هو ما سيشير اليه سهم الاجابة

لاحظ في حالة الاجابة الخاطئة

http://cdn.top4top.co/p_559ivu7jh42.png

في حالة الاجابة الصحيحة

http://cdn.top4top.co/p_559h49j2m01.png

المشروع المفتوح :
http://up.top4top.net/downloadf-559jmwu1va1-rar.html

تحياتي للجميع
:abc_152::abc_152:

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

نعم قصدت رابط الصورة
اذا كانت ضرورية للملف المفتوح طبعا ؟

وعليكم السلام ورحمة الله وبركاته
انا - على الاقل تظهر الصورة عندي و الرابط يعمل -
لا ادري اين المشكل ......و هل هي غير واضحة للجميع ............

على كل حمل المشروع و فيه الصور
ارجو ان يكون يعمل :abc_152:

[فرح صالحي]

وعليكم السلام ورحمة الله وبركاته
انا - على الاقل تظهر الصورة عندي و الرابط يعمل -
لا ادري اين المشكل ......و هل هي غير واضحة للجميع ............

على كل حمل المشروع و فيه الصور
ارجو ان يكون يعمل :abc_152:

المشروع يعمل كما ينبغي - جربت الاكواد في ملف بدون الصور وهو يعمل ايضا
:abc_152:جزاك الله خيرا كثيرا :abc_152:

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

المشروع يعمل كما ينبغي - جربت الاكواد في ملف بدون الصور وهو يعمل ايضا
:abc_152:جزاك الله خيرا كثيرا :abc_152:

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
كيف يعمل بدون صور ؟؟؟ لانه مبني اساسا على الصور

[فرح صالحي]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .
كيف يعمل بدون صور ؟؟؟ لانه مبني اساسا على الصور

أخي هذا الملف وانت احكم بنفسك
سأعود بعد صلاة العصر
http://up.top4top.net/downloadf-55959x90f71-rar.html

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

أخي هذا الملف وانت احكم بنفسك
سأعود بعد صلاة العصر
http://up.top4top.net/downloadf-55959x90f71-rar.html

امنا بالله ............لكن ضع صورة صغيرة حمراء مثلا و سميها L و صورة لنقطة سميها p
فسيكون سريعا جدا :abc_023:

[نجوم ليبيا]

السلام عليكم ورحمة الله وبركاته
اشكر الجميع فعلا عمل يدل على خبرة و اثقان جزاكم الله خيرا
الله يفتح عليكم
:abc_022:

[المصمم]

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

[أبو يوسف]

مشاركة رائعة ومتابعة حثيثة

بارك الله فيك اخانا المحترف :abc_152: