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

[at_aziz]

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

اخواني  

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

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

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

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

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

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

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

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

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

اسم المالك:

المبلغ:

 

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

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

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

 

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

[at_aziz]

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

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

[jjafferr]

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

 

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

 

جعفر

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

  في 14‏/2‏/2021 at 03:53, at_aziz said:

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

Expand  

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

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

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

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

[biskra]

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

[biskra]

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

GetPhotoLocation v1.2.zipFetching info...

[at_aziz]

 

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

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

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

[at_aziz]

  في 14‏/2‏/2021 at 12:14, jjafferr said:

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

Expand  

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

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

  في 14‏/2‏/2021 at 12:23, أبو إبراهيم الغامدي said:

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

Expand  

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

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

 

  في 14‏/2‏/2021 at 14:36, biskra said:

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

Expand  

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

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

 

 

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

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

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

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

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

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

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

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

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

 

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

 

MoveOnMaps.rarFetching info...

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

  في 14‏/2‏/2021 at 21:21, أبو عبدالله الحلوانى said:

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

Expand  

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

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

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

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

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

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

 

[at_aziz]

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

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

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

 

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

 

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

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

 

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

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

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

 

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

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

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

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

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

Map Pointer.zip 1.15 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 106 downloads

 

[at_aziz]

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

 

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

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

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

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

 

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

 

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

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

  في 15‏/2‏/2021 at 12:29, أبو إبراهيم الغامدي said:

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

Expand  

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

  في 15‏/2‏/2021 at 12:29, أبو إبراهيم الغامدي said:

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

Expand  

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

  في 15‏/2‏/2021 at 12:51, at_aziz said:

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

Expand  

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

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

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

 

 

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

  في 15‏/2‏/2021 at 16:20, at_aziz said:

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

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

Expand  

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

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

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

 lbl.BackColor = vbRed

 

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

  في 15‏/2‏/2021 at 17:05, أبو عبدالله الحلوانى said:

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

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

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

 lbl.BackColor = vbRed

 

Expand  

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

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

  في 15‏/2‏/2021 at 16:20, at_aziz said:

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

Expand  

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

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

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

  في 15‏/2‏/2021 at 17:18, أبو إبراهيم الغامدي said:

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

Expand  

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

  في 15‏/2‏/2021 at 17:29, أبو إبراهيم الغامدي said:

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

Expand  

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

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

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

[at_aziz]

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

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

 

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

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

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

  في 15‏/2‏/2021 at 19:14, at_aziz said:

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

Expand  

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

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

Map Pointer.zipFetching info...

[at_aziz]

  في 15‏/2‏/2021 at 19:33, أبو إبراهيم الغامدي said:

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

Expand  

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

 

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

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

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

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

 

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

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

  في 15‏/2‏/2021 at 19:33, أبو إبراهيم الغامدي said:

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

Expand  

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

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

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

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

[أبوبسمله]

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

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

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

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

[kanory]

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

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

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

[Barna]

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

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