لم افلح في تحريك النص

[نجوم ليبيا]

السلام عليكم ورحمة الله وبركاته
بسم الله الرحمن الرحيم
حياكم الله جميعا
هذا ملف عجزت عن وضح الكود الخاص به
بحيث اتمكن من سحب الكلمات في الفراغ المناسب
ارجوا مساعدتي اخوتي الكرماء

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

مووفق باذن الله ... نحاول حتى يجيبك الخبراء

[نجوم ليبيا]

مووفق باذن الله ... نحاول حتى يجيبك الخبراء


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

[ياسرهتهت]

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

[سالم الفيتورى]

موفق بإذن الله

[الأمل القادم]

موفق بإذن الله

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

تقضل نجوم ليبا محاولة ارجو ان تكون حسب الطلب

حمل ثم معاينة ......فان اعجبك فيمكن تغيير الكود و الاصوات و الاسئلة ........فقط حمل الجاابات على شكل صور و ليس ازرار

موفق باذن الله


http://www.gulfup.com/G.png (http://www.gulfup.com/?TUIy7N)

http://www.gulfup.com/?TUIy7N

[عبود عبود]

تقضل نجوم ليبا محاولة ارجو ان تكون حسب الطلب

حمل ثم معاينة ......فان اعجبك فيمكن تغيير الكود و الاصوات و الاسئلة ........فقط حمل الجاابات على شكل صور و ليس ازرار

موفق باذن الله


http://www.gulfup.com/G.png (http://www.gulfup.com/?TUIy7N)

http://www.gulfup.com/?TUIy7N


إذا كانت هذة إجابتك على هذا السؤال فحتما أقول لك Excellent

http://s10.postimg.org/kfljn5m55/images.jpg

[نجوم ليبيا]

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

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

إذا كانت هذة إجابتك على هذا السؤال فحتما أقول لك excellent

http://s10.postimg.org/kfljn5m55/images.jpg



هذا من فضلكم ...منكم نتعلم استاذ عبود

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

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

طبعا ممكن هاهو مشروعك بعد تغيير الصور بازرار

http://www.gulfup.com/?hdAZzZ
http://www.gulfup.com/G.png (http://www.gulfup.com/?hdAZzZ)

غيرت كل ما هو Image في Global fonction بكلمة Button و ايضا في كود الصفحة
و موفق باذن الله

[نجوم ليبيا]

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

بارك الله فيك

[نجوم ليبيا]

ممكن اخي الكريم الفكرة سامحنا اتعبناك اريد الاستفاذة ماهو الكود الذى يجعل االزر يتحرك بسحب الماوس

[نجوم ليبيا]

طبعا ممكن هاهو مشروعك بعد تغيير الصور بازرار

http://www.gulfup.com/?hdAZzZ
http://www.gulfup.com/G.png (http://www.gulfup.com/?hdAZzZ)

غيرت كل ما هو Image في Global fonction بكلمة Button و ايضا في كود الصفحة
و موفق باذن الله

ممكن تشرحلي كود Global fonction

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

في البداية لست خبير اكواد و برمجة
كل ما في الامر انني انسخ كود من مشاريع سابقة
هناك مشروع للاستاذ ابو بلقيس يصلح مسابقة و فيه صفحة فيها تحريك صور
http://www.gulfup.com/?d3etpp

كل ما قمت به هو نشخ الكود الى مشروعك

عندما تضغط في خارج الصفحة بيمين الماووس تظهر لك خاصية glabol Fonction او من شريط الادوات فوق




------------------------------------------------------------------------------ ÊÍÑíß ÇáÕæÑ ----------------
--Enter global declarations and functions here...
--Like Worm's Function only with some additional features
function HitTestEx()
local mi
local mtblPos
local mObject
local mtblObj
local mtblPos = nil
local mtblDimension = nil
local mtblHits = {}
local mType

mtblObj = Page.EnumerateObjects()
for mi, mObject in pairs (mtblObj) do
mObjType = Page.GetObjectType(mObject)

------
if mObjType == OBJECT_BUTTON then
mtblPos = Button.GetPos(mObject)
mtblDimension = Button.GetSize(mObject)

end
if mtblPos then
mX=String.ToNumber(DLL.CallFunction("AutoPlay\\Docs\\mouse.dll", "GetMouseX", Application.GetWndHandle(), DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL))
mY=String.ToNumber(DLL.CallFunction("AutoPlay\\Docs\\mouse.dll", "GetMouseY", Application.GetWndHandle(), DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL))
if (mtblPos.X <= mX) and (mX <= (mtblPos.X + mtblDimension.Width)) then
if (mY >= mtblPos.Y) and (mY <= (mtblPos.Y + mtblDimension.Height)) then
mtblHits[Table.Count(mtblHits) + 1] = {Type = mObjType, Name = mObject, Xpos=mtblPos.X, Ypos=mtblPos.Y};
end
end
end
end
return mtblHits;
end

--This Functions moves any object
function MoveObject(strObName,nObType,nXPos,nYPos)
if nObType == OBJECT_BUTTON then
mtblPos = Button.SetPos(strObName,nXPos,nYPos);

end
end

-----
-----
-----


لا ت سانلي عن معنى كل سطر
اسلوا اهل الذكر

[ثامر أبو بلقيس]

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

الأخت نجوم ليبيا تسأل عن كثرة الاكواد في
Global Functions وتعقيداتها

سنتخلى عنها كلها و نتخلى عن إجهاد البرنامج
بالأكواد في on timer
ولن نستعمل ملف mouse.dll أو إضافات

ونستغل حدث المرور على العنصر بدل احداثيات العناصر و حساباتها
و نحاول استغلال أنبوتات وسيطة لتمرير شروط معينة تنفذ عند ملامسة مكان الافلات

إن شاء الله :abc_152:

[ثامر أبو بلقيس]

بالتوفيق
http://www.gulfup.com/?qaPhiw

[امل الماضي]

جزاك الله كل خير

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

بالتوفيق
http://www.gulfup.com/?qaPhiw

:abc_052::abc_052::abc_052::abc_052:

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

[نجوم ليبيا]

بارك الله فيكم جميعا اخوتي ممكن يا اخي ثامر ابو بلقيس تشرحلنا الفكرة بالتفصيل
واشكركم جميعا :abc_152::abc_152::abc_152:

[نجوم ليبيا]

السلام عليكم ورحمة الله وبركاته

ممكن تفسير هذا الكود اخي

sObject = this;
------------------------
Input.SetText("Input1", "2");
Input.SetText("Input3", Button.GetText(this));

[ثامر أبو بلقيس]

sObject
متغير معلن عنه في الحدث ON MOUSE BUTON

كل زر يأخذ أو يساوي هذا المتغير سيكون بإمكاننا تحريكه

لذلك كتبنا
sObject = this;

أي هذا الزر يمكن تحريكه

وضعت إمكانية سحبه في الحدث EN ENTER أي عند الدخول عليه بالماوس

وربطت هذا الاجراء بتمرير قيمتين لأنبوتين مخفيين
واحد سيكتب فيه قيمة معينة سأحتاجها فيما بعد
Input.SetText("Input1", "2");


وواحد فيه ماكتب في الزر كونه الاجابة ليتم افلاته
Input.SetText("Input3", Button.GetText(this));


مكان الاجابة مربوط بقيمتين الاولى للأنبوت و قد
أخذت في مثالنا
الارقام 1 - 2 - 3 - 4
و ماكنب في الزر للأنبوت الثاني هو الاجابة
------------------------------------------------------------------

اذ كان الكلام مفهوم على نفس الملف ضيفي زر جديد
مكتوب فيه اجابة معينة ليتم افلاتها في مكان معين عنصر Label جديد
وقلدي ما كتب في الزر و ما كتب في مكان الافلات

ستكوني مطالبة فقط بتمرير مثلا القيمة 5 للانبوت 1
و مكان الافلات طبعا فيه أكواد تبقى نفسها فقط يتغير الرقم في الجملة الشرطية الثانية
متوافق مع نفس الرقم
--------------
اذن ارفعي ملفا مفتوحا مضاف له سؤال خامس:abc_152:

[نجوم ليبيا]

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

تعجز الكلمات عن شكركم بوركتم

[فاضل الجبوري]

السلام عليكم ورحمة الله وبركاته

[يوسف البراهيم]

السلام عليكم ورحمة الله وبركاته