عرض الأراضي المعروضة للبيع على المخطط السكنى بعلامة او بلون

[at_aziz]

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

اخواني  

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

والحقيقه ماني عارف كيف تكون طريقتها

الفكره انه تعرض فيه الاراضي المحدده للبيع على المخطط السكني كما في  الصوره المرفقه 

بحيث لم افتح النموذج اللي فيه المخطط السكنى   تظهر عليه الاراضي المعروضه للبيع  في مكانها بالمخطط    وتكون مثلا عليها علامة حمرا او مربع بلون 

واذا تم النقر عليه  تظهر بيانات الارض

وبيانات الارض تشمل التالي

اسم المخطط: مثلا حي الروابي

البلك: أ    او   ب   يكون حرف واحد

رقم الارض على المخطط:

اسم المالك:

المبلغ:

 

هذه هي فكرة المطلوبه 

ارجو المساعدة كيف يتم تطبيق هذه الفكره على المخطط برمجيا 

وذا فيه امثله  تقارب لمثل هذه الفكره  

 

تم تعديل فبراير 10, 2021 بواسطه at_aziz

[at_aziz]

افيدونا اذا فيه حل او طريقه 

بارك الله فيكم جميعا 

[jjafferr]

وعليكم السلام 🙂

 

اعطني بعض الوقت حتى ابلور الفكرة 🙂

 

جعفر

[أبو إبراهيم الغامدي]

في ١٤‏/٢‏/٢٠٢١ at 06:53, at_aziz said:

افيدونا اذا فيه حل او طريقه 

الأمر ليس سهلا كما تظن.. لأمرين..

الأول ثبات مقاس الصورة ودقتها عند العرض..

الثاني ليس في أكسس نفسه أدوات تساعد على هذا ولابد من استعانة بمصادر أخري..

اسهل الطرق في نظري هو استخدام خرائط العنوان الوطني. 

[biskra]

مجرد رأي فكرة ألبوم صور، أو كما شاهدت في بعض المواقع استعمال قوقل إرث،

[biskra]

مثال من موقع أجنبي ربما يشكل بداية للفكرة

GetPhotoLocation v1.2.zip

[at_aziz]

 

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

شاكر ومقدر لكم تعاونكم

وبانتظاركم حفظكم الله 

[at_aziz]

3 ساعات مضت, jjafferr said:

اعطني بعض الوقت حتى ابلور الفكرة 🙂

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

شاكر ومقدر لك اهتمامك  وايانتظارك وفقك الله

2 ساعات مضت, أبو إبراهيم الغامدي said:

اسهل الطرق الطرق في نظري هو استخدام خرائط العنوان الوطني. 

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

بالنسبه لخرائط العنوان الوطني كيف يتم جلبها للاكسس والتعامل معا

 

42 دقائق مضت, biskra said:

مثال من موقع أجنبي ربما يشكل بداية للفكرة

بارك الله فيك وجزاك الله خير اخي الفاضل biskra

المثال المرفق ماعرفت كيف العمل عليها

 

 

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

تم تعديل فبراير 14, 2021 بواسطه at_aziz

[أبو عبدالله الحلوانى]

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

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

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

افتح المرفق واضغط علي النقاط الحمراء بالصورة وانظر النتيجة واضغط علي الخضراء ان اردت ولكن لن يحدث شئ!

طبعا حاولت اجعل فورم الوصف يتحرك تحت المؤشر ولكن لم استطع الوصول لعل احد اساتذتنا الكرام يتفضل بالتعديل

هذا المرفق وهذا تصوير من جهازي

 

ملاحظة: اجعل الصورة بجور البرنامج بنفس المسار

 

MoveOnMaps.rar

[أبو إبراهيم الغامدي]

13 ساعات مضت, أبو عبدالله الحلوانى said:

أشارك مع اساتذتي بهذه المحاولة البسيطة

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

مشاركة جميلة أ. محمد..

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

استخدام GetCursorPos يتعامل مع شاشة الحاسب، وبالتالي النقاط التي حددتها هي للشاشة ليس الصورة!

عليك البقاء في إطارة الصورة، واستخدم حدث MouseDoun  وخذ مؤشر X، ومؤشر Y كقطة على الخريطة..

لمراقبة تحرك الفارة استخدم حدث MouseMove وخذ مؤشر X، ومؤشر Y كقطة وضعه كقيمة في مربع النص..

 

[at_aziz]

بارك الله فيك وجزاك الله خير اخي الفاضل أبو عبدالله الحلوانى

فكره جميله جدا 

لكن لم تعمل معي على الجهاز  

 

وكما تفضل الاخ الفاضل ابو ابراهيم   الافضل تكون في اطار الصوره

 

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

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

 

بارك الله فيكم جميعا

وشاكر ومقدر لكم تعاونكم وتفاعلكم معي

[أبو إبراهيم الغامدي]

 

أما عن مشاركتي..

استخدمت أدوات ActiveX لأنها قابلة للإستنساخ (التوريث)..

عند الضغط على زر الفارة الأيسر يقوم الحدث باستنساخ إداة العنوان ووضعها في موقع النقر تتضمن رقماً يمثل رقماً افتراصيا للأرض المعروضة للبيع..

 بعد ذلك يقوم الحدث بتسجيل المعطيات في جدول البيانات  (رقم الأرض الافتراضي، موقع أداة العنوان،..) 

الأدوات المستنسخة صورية لاتحفظ داخل النموذج.. ويتم محوها عند إغلاق النموذج! لكن يعاد استنساخ هذه الأدوات عند إعادة فتح النموذج بناءً على المعطيات التي سبق حفظها في الجدول..

Map Pointer.zip

 

[at_aziz]

بيض الله وجهك وجزاك الله خير ابا ابراهيم

 

الحقيقه في قمة الابداع  الله يعطيك العافيه

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

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

لاني والله حاولت   لكن ماعرفت كيف تجي الطريقه

 

الف شكر لك استاذي الكريم

 

وبانتظار ابداعات الاخوان على هذا الموضوع

[أبو عبدالله الحلوانى]

4 ساعات مضت, أبو إبراهيم الغامدي said:

استخدام GetCursorPos يتعامل مع شاشة الحاسب، وبالتالي النقاط التي حددتها هي للشاشة ليس الصورة!

نعم واعتقدت أن تثبيت موضع الصورة علي الفورم سيعمل علي توحيد موضع المؤشر ولكن يبدو ان الأمر سار علي خلاف ما أتوقع 

4 ساعات مضت, أبو إبراهيم الغامدي said:

عليك البقاء في إطارة الصورة، واستخدم حدث MouseDoun  وخذ مؤشر X، ومؤشر Y كقطة على الخريطة..

نعم أخذت نقطتي الـ X & Y  من اطار الصورة ولكن يبدو ان المشكلة ان الصورة تتمدد مع تمدد الفورم ولا أدري هل تثبيت موضع الصورة علي الفورم سيحل المشكلة أم لا؟!

3 ساعات مضت, at_aziz said:

لكن لم تعمل معي على الجهاز 

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

ولكن لا أنصحك بفعل كل هذا   ففي مرفق أستاذنا @أبو إبراهيم الغامدي الغنية عن كل هذا ان شاء الله

فعند تجربة المرفق تبين لي أنه يصلح للادخال وعرض البيانات من خلال النقر علي الصورة في آن واحد (وهذا هو الابداع المنتظر من الاساتذة )

 

 

[أبو عبدالله الحلوانى]

40 دقائق مضت, at_aziz said:

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

لاني والله حاولت   لكن ماعرفت كيف تجي الطريقه

في هذا السطر من الكود يأخذ الليبل لونه بطريقة عشوائية 

 lbl.BackColor = RGB(Int(150 * Rnd), Int(150 * Rnd), Int(150 * Rnd))

غيره الي هذا ليصبح باللون الأحمر مثلا 

 lbl.BackColor = vbRed

 

[أبو إبراهيم الغامدي]

13 دقائق مضت, أبو عبدالله الحلوانى said:

في هذا السطر من الكود يأخذ الليبل لونه بطريقة عشوائية 

 lbl.BackColor = RGB(Int(150 * Rnd), Int(150 * Rnd), Int(150 * Rnd))

غيره الي هذا ليصبح باللون الأحمر مثلا 

 lbl.BackColor = vbRed

 

عندما يشاركني أحد في مداخلاتي أطرب لذلك.. شكراً لك أبا عبدالله.. 

[أبو إبراهيم الغامدي]

منذ ساعه, at_aziz said:

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

نعم.. يمكن إن شاء الله.. 

حتى أنهي ذلك أطلب من أ. @أبو عبدالله الحلوانى أن يهتم بموضوع الخط..

[أبو عبدالله الحلوانى]

29 دقائق مضت, أبو إبراهيم الغامدي said:

عندما يشاركني أحد في مداخلاتي أطرب لذلك.. شكراً لك أبا عبدالله.. 

أعتذر عن المشاركة بغير استئذان - وانما الشكر لكم استاذي علي ما تقدمونه لنا من علم 

20 دقائق مضت, أبو إبراهيم الغامدي said:

حتى أنهي ذلك أطلب من أ. @أبو عبدالله الحلوانى أن يهتم بموضوع الخط..

أما عن أمر الخط فكل ما يحتاجه أخونا @at_aziz هو اجراء تعديل كهذا 

        lbl.Font.Size = 9   <===   غير في الحجم هنا كما تريد
        lbl.Font.Bold = True   <====  أضفت هذا ويمكن الاستغناء عنه

ولكن العجيب أن الليبل له خصائص مختلفة تماما عن ليبل الأكسس فله خاصية صورة وخواص أخري كثير ما هذا الليبل؟!!

[at_aziz]

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

الله يعطيكم العافيه  ماقصرتو

 

شاكر ومقدر لكم   

ونحن بانتظارك ابا ابراهيم

[أبو إبراهيم الغامدي]

10 دقائق مضت, at_aziz said:

ونحن بانتظارك ابا ابراهيم

لن يطول انتظارك بإذن الله..

في الواقع قد رتبت لهذا من قبل! ولم يمنعني من رفعه دفعة واحدة إلا التشويق! وأن يرى الزملاء الأشياء الجديدة على مهل..

Map Pointer.zip

[at_aziz]

الان, أبو إبراهيم الغامدي said:

لن يطول انتظارك بإذن الله..

بيض الله وجهك وجزاك الله خير استاذي الفاضل ابو ابراهيم

 

والله كفيت ووفيت حفظك الله ورعاك

لقد ابدعت سلمت يمينك

الف شكر لك من اعماق قلبي 

ازحت عني هم بعد الله كان مشغلني من فتره ماني عارف كيف ابدا فيه

 

شاكر ومقدر وفقك الله والشكر موصول ايضا لجميع الاخوه  المشاركين

[أبو عبدالله الحلوانى]

9 دقائق مضت, أبو إبراهيم الغامدي said:

ولم يمنعني من رفعه دفعة واحدة إلا التشويق! وأن يرى الزملاء الأشياء الجديدة على مهل..

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

نحتاج الي (مهل..) كثير للفحص والتعلم 

قد واجهت قديما مشكلات مع اضافة عنصر ActveX لذي عزفت عن استخدامها بالكلية ، نرجو ان اتسع لكم وقت أن تفردو موضوعا لشرح هذه الأداة وبعض خصائصها وجزاكم الله خيرا

(أعتقد أن هذه الأداة لها علاقة بأداة الويب بروزر هل هذا صحيح)

[ابوبسمله]

السلام عليكم اخوانى واساتذتى

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

اتمنى ان اجد الوقت الكافى لاتفحص الامثله واتعلم منها فهذا مستوى متقدم على وان شاء الله ربنا يعينى عليه

جزاكم الله خيرا اساتذتى الكرام

[kanory]

يعطيك العافيه اخي @أبو إبراهيم الغامدي

طريقة رائعه و استاذ قدير ..... بارك الله فيك وفي وقتك

تم تعديل فبراير 15, 2021 بواسطه kanory

[Barna]

ما شاء الله تبارك الله

بارك الله فيك استادنا الكبير @أبو إبراهيم الغامدي مدرسة نتعلم منك الكثير ......