اذهب الي المحتوي
أوفيسنا

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


at_aziz
إذهب إلى أفضل إجابة Solved by أبو إبراهيم الغامدي,

الردود الموصى بها

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

اخواني  

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

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

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

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

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

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

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

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

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

اسم المالك:

المبلغ:

 

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

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

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

 

ssa.png

تم تعديل بواسطه at_aziz
رابط هذا التعليق
شارك

  • الردود 52
  • Created
  • اخر رد

Top Posters In This Topic

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

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

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

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

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

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

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

 

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

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

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

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

 

 

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

تم تعديل بواسطه at_aziz
رابط هذا التعليق
شارك

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

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

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

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

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

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

 

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

 

MoveOnMaps.rar

  • Like 2
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

 

  • Like 2
رابط هذا التعليق
شارك

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

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

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

 

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

 

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

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

 

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

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

  • Thanks 1
رابط هذا التعليق
شارك

 

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

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

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

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

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

Map Pointer.zip

 

  • Like 8
  • Thanks 1
رابط هذا التعليق
شارك

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

 

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

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

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

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

 

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

 

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

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

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

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

 

 

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

 lbl.BackColor = vbRed

 

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

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



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

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



 lbl.BackColor = vbRed

 

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

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

منذ ساعه, at_aziz said:

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

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

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

  • Like 1
رابط هذا التعليق
شارك

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

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

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

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

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

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

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

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

  • Like 1
  • Thanks 1
رابط هذا التعليق
شارك

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

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

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

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

Map Pointer.zip

  • Like 3
  • Thanks 2
رابط هذا التعليق
شارك

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

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

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

 

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

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

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

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

 

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

  • Like 1
  • Haha 1
رابط هذا التعليق
شارك

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

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

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

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

  • Like 3
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information